Vb haga clic en el código fuente del mouse
Agrega un botón de comando 1 y cámbialo para comparar.
Dim b es un número entero
Subcomando privado 1_Click()
Irregularizar
a = Int(Rnd * 3) 1 p>
Seleccione caso b
Caso 1
S = "Piedra"
Caso 2
S = "Tijeras"
Caso 3
S = "Tela"
Finalizar selección
Seleccionar caso a
Caso 1
S1 = "Piedra"
Caso 2
S1 = "Tijeras"
Caso 3
S1 = "tela "
Finalizar selección
Yo. Cls
Si a = b, entonces
Imprimir "es plano, usted seleccionó"; "Equipo seleccionado"; s1
Conector de salida
Terminará si...
Si a - b = 1 o a - b = -2, entonces
Imprimir "Tú ganas, tú eliges"; "La computadora eligió"; s1
Otro
Imprimir "Perdiste, elegiste"; "Equipo seleccionado"; s1
Terminará si...
Finalizar conector
Subform_Load() privado
I. AutoRedraw = Verdadero
Aplicación. Título = "Piedra, Tijeras, Papel"
Yo. Título=Aplicación. Títulos y títulos. Aplicación. Profesionalismo y arte. "."ampApp. Más pequeño
b = 1
Conector final
Subopción privada1_Click()
b = 1
Conector final
Subopción privada 2_Click()
b = 2
Conector final
Subopción privada 3_Click()
b = 3
Conector final