VB crea un "programa de adivinanzas".
Dim?n?As?Integer,?k?As?Integer
Privado?Sub?Form_Click()
Aleatorio
n?=?Int(Rnd?*?90)?+?10
Fin?SubPrivate?Sub?command1_click()
Dim?x?As?Integer
x?=?Text1.Text
k?=?k?+?1
Si?x?>?n?Entonces
Imprimir ?x;?"Es demasiado grande"
ElseIf?x?
Imprimir?x;?"Es demasiado pequeño"
Else
p>Imprimir?x;?"¡Felicitaciones por su suposición!"
MsgBox?"Adivinó *** veces"?&?k?&?" veces"
¿Fin?Si
¿Fin?Sub