¿Cómo programar una lotería aleatoria usando VB? Rápido, rápido, rápido

public a como entero

Subcomando privado 1_Click()

Si a & lt3 entonces marca 1. Visible = Verdadero

Si a & gt = 3 y a & lt = 6 entonces marque 2. visible = true

Si a & gt6 entonces marque 3. Visible = Verdadero

Conector final

Private Subform_Load()

Etiqueta1. visible=falso

Etiqueta2. visible=false

Etiqueta 3. Visible = Falso

Etiqueta1. Caption = "Registrarse"

Etiqueta 2. Caption="Etiqueta mediana"

Etiqueta 3.

Caption = "Descargar y firmar"

Conector final

Subtemporizador privado 1_Timer()

a = Int(Rnd() * 10)

Imprimir una copia

Conector final