Red de conocimiento informático - Conocimiento del nombre de dominio - ¡Urgente! ¡urgente! ¡Urgente! Problema de programación VB! ! ! !

¡Urgente! ¡urgente! ¡Urgente! Problema de programación VB! ! ! !

Es demasiado lento ingresar números manualmente. Es mejor presionar botones. Cree un nuevo grupo comando1(29) con 30 botones.

Esto también es fácil de probar.

Opción explícita

Privada x(6) como entero, m como entero, n como entero

Atenuar i como entero

Subcomando privado1_Click( Índice como entero)

Imagen1.SetFocus

Comando1(Índice).Enabled = False

n = n + 1

Si n = 5 Entonces

Comando2.Enabled = Verdadero

Para i = 0 a 29

Si Comando1(i).Enabled = Verdadero Entonces Command1(i).Visible = False

Finalizar si

Fin Sub

Sub privado Command2_Click()

Imagen1.Cls

Imagen1.Print "Número ganador:"

m = 0: n = 0

Para i = 1 a 5

Hacer

x(i) = 1 + Int(30 * Rnd)

Bucle Mientras x(i) = x(i - 1)

Imagen1.Imprimir x(i);

Si Comando1(x(i) - 1).Enabled = False Entonces m = m + 1

Imagen1.Imprimir

Si m > 0 Entonces Imagen1.Imprimir "Felicitaciones por ganar" & 6 - m & "Segundo premio"

End Sub

Private Sub Command3_Click()

Imagen1.Cls

n = 0

Para i = 0 a 29

Comando1(i) .Enabled = Verdadero

Comando1(i).Visible = Verdadero

Comando2.Enabled = Falso

Fin Sub

Sub privado Form_Load()

Fin Sub