Red de conocimiento informático - Problemas con los teléfonos móviles - Vb haga clic en el código fuente del mouse

Vb haga clic en el código fuente del mouse

Agregue 3 botones de opción y cambie los títulos a Piedra, tijera y papel.

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

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