Red de conocimiento informático - Problemas con los teléfonos móviles - ¿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?

¿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 a (1 a 100) como una cadena

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