Ayuda a escribir un juego de dados en VB

Definir objetos de negocio como valores booleanos

Subcomando privado 1_Click()

Label1 = " "

Hacer irregular

Texto1 = Val(Int(Rnd * 6))

Texto2 = Val(Int(Rnd * 6))

a = Val(Texto1) + Val(Texto 2)

etiqueta 1 = IIf(a & gt; 6, "más puntos" y "menos puntos")

Si Etiqueta1 = "una gran cantidad de puntos", entonces

bo = true

Otro

bo = false

Terminará si...

Comando 1. enable=false

Comando 2. enable=true

Conector final

Subcomando privado 2_Click()

Label1 = " "

Hacer irregular

Texto1 = Val(Int(Rnd * 6))

Texto2 = Val(Int(Rnd * 6))

b = Val(Texto1) + Val( Texto 2)

Si (b & gt6 y bo = true) o (b & lt6 y bo = false) entonces

Etiqueta1 = "¡Tú ganas!"

Otros

Label1 = "¡Pierdes!"

Terminará si...

Comando 1. enable=true

Comando 2. enable = false

Conector final

Private subform_Load()

Etiqueta1 = " "

Comando1. enable=true

Comando 2. enable=false

Finalizar ajuste