Programa de lotería Vb6.0

¿oscuro? xm,? ¿norte? ¿Como? Entero

¿Privado? ¿Sub? Command1_Click()

¿Electricidad estática? k

k? =?k? +?1

¿Y si? k? ¿Modificación? 2?=?1?Entonces

Temporizador 1. ¿Intervalo? =?20

Comando 1. ¿título? =?"Parar"

Otro

Temporizador 1. ¿Intervalo? =?0

Comando 1. ¿título? =?"Ir"

¿Fin? Si

¿Finalizar? Submarino

¿Privado? ¿Sub? Form_Load()

xm? =?Array ("Zhang San",? ¿"Li Si"? ¿"Wang Wu"? ¿"Liu Zhao"? ¿"Qian Qi"? ¿"Sun Ba"? ¿"Nine Zhou"? ¿"Familia Wu"? "Zheng Tu")

n? =?UBound(xm)? +?1

Texto1. ¿Tamaño de fuente? =?16

Texto1? =?""

Comando 1.

¿título? =?"Ir"

¿Fin? Submarino

¿Privado? ¿Sub? Timer1_Timer()

x? =?Int(Rnd?*?n)

Texto1? =?xm(x)

¿Fin? Submarino