VB ha creado un programa similar a una lotería. ¿Cómo garantizar que los números ganadores ya no aparezcan?

Dim RStr(0 a 7) como cadena

Dim i,j,k,n

Subcomando privado 1_Click( )

Si el comando 1. Caption="Inicio"

Comando 1. Caption="End"

Mientras lo hago 1

Si comando 1. Caption = "Inicio"

Salir Hacer

Finalizar si...

Actividades múltiples

Hacer irregular

k = Int(Rnd * n)

Texto1. Texto = RStr(k)

Texto1. Actualizar

Para i = 1 a 30000

Si el comando 1. Caption = "Iniciar "y salir.

Múltiples actividades

A mi lado

Anillo

RStr(k)= RStr(n-1):n = n -1

Otro

Comando 1.

Caption = "Ir "

Finalizar si...

Mostrar Jzdcs como números enteros

Conector final

Subformulario privado_Load()

n = 8

RSr(0) = "Sección 1 8:00-8:45 Tema:"

RStr(1) = "Sección 8: 55-9: 40 Proyecto:"

RStr(2) = "Sección 3 9: 55-10: 40 Tema:"

RStr( 3) = "Sección 4 10: 50-11: 35 Tema:"

RStr(4) = "Sección V 13: 30-14: 15 Tema:"

RStr(5) = "Sección 6 14: 30-15: 15 Tema:"

RStr(6) = "Sección VII 15: 25-16: 10 Tema:"

RStr(7) = "Parte VIII 16: 20-17: 05 Tema:"

Conector final