¿Cómo escribir el código para que el ganador de la lotería ya no aparezca en el programa de lotería de VB?
Dim i es un número entero, x es un número entero
Const n = 3 'El valor de n se puede asignar a diferentes variables según a las necesidades reales.
Subcomando privado 1_Click()
Temporizador 1. enable=True
Conector final
Subcomando privado2_Click()
Temporizador1. enable=false
Conector final
Private subform_Load()
"Randomize" inicializa el generador de números aleatorios.
A(1) = "Foxconn"'Guarda los nombres de n personas en la matriz a.
Uno (2) = "Pang"
Respuesta (3) = "No convencional"
Para i = 1 a n
Lista1. Apéndice a(1)
Luego
Temporizador 1. enable = false
Conector final
Subtimer1_Timer()
X = Rnd() * n+1 ' in [1, n] Genera un entero aleatorio y guárdelo en la variable x.
Etiqueta 2. 'Caption = a(x)' muestra el valor de la variable de subíndice a(x) (nombre de la persona x) en la etiqueta etiqueta2.
Conector final