Red de conocimientos turísticos - Conocimientos sobre calendario chino - Subprograma VB sobre el juego de lotería
Subprograma VB sobre el juego de lotería
El primer paso es colocar tres botones, una etiqueta y un temporizador en la interfaz.
En el segundo paso, copia el código siguiente.
Dim x como entero, y como entero
Subcomando privado1_Click()
Hacer
x = Val(InputBox("Por favor ingrese el número de su elección (1~10)"))
Si x < 1 o x > 10 Entonces
MsgBox "El rango de números es del 1 al 10, consulte lo que has elegido", vbCritical
Else
Salir Do
Fin
Bucle
Comando1. Falso
Command2.Visible = True
End Sub
Sub privado Command2_Click()
Timer1.Enabled = True
Comando2.Visible = Falso
Comando3.Visible = Verdadero