VB utiliza un cuadro combinado para diseñar una máquina de lotería sencilla

¿Privado?Sub?Command1_Click()

Dim?A?As?Integer,?B?As?Integer

A?=?5

Temporizador1.Enabled?=?False

B?=?Val(Text1.Text)

Si?A?=?B?Entonces

MsgBox?"¡Jaja! ¡Gané el premio! ¡Vuelve!"

Timer1.Enabled?=?True

Else

MsgBox?"¡Oye! ¿No? ¡No ganarás el premio! ¡Vuelve! "

Timer1.Enabled?=?True

End?If

End?Sub

¿Privado?Sub?Form_Load( )

Temporizador1.Enabled?=?True

Temporizador1.Interval?=?10

Fin?Sub

Privado?Sub? Timer1_Timer()

Aleatorio

Texto1.Text?=?Int(Rnd?*?9?+?1)

Fin ?Sub