Modificación del programa de lotería vb

Dimxm y xmok' xmok se utiliza para guardar si se selecciona el nombre correspondiente.

Marcar I como un número entero

Private subform_load()

Xm = Array("Zhang San", "Li Si", "Wang Mazi", " Erwa", "Niu Da")

xmOk=Array(0, 0, 0, 0, 0)

Conector final

Subcomando privado1_Click()' Haga clic en el evento del botón de comando 1.

Temporizador 1. enable=true

Conector final

Subcomando privado2_click()

Temporizador1. enable = false

Conector final

Subtimer1_timer() privado

i = Int(Rnd * 5) 1

if xmOk(i )=1, luego

Etiqueta1. Título = xm(i)

Otro

xmOk(i)=1

Terminará si...

Finalizar conector