Ayuda de programación
El código es el siguiente:
Dim número en forma entera (22)
Subcomando privado 1_Click()
Dim x( 5) Para números enteros
Do
X(1) = Int(InputBox("Ingrese el número que determine (1~22):")
if x(1) lt; entonces 1
MsgBox "El número que seleccionó es demasiado pequeño, el rango correcto está entre 1 y 22.", tecla VB, "5 de 22"
p>ElseIf x(1)>Usemos 22
MsgBox "El número que seleccionó es demasiado grande. El rango correcto está entre 1 y 22.", tecla VB, "De 22 5 "
Otro
Salir Hacer
Terminará si...
Timbre
Texto1 = Formato ( x(1), " 00 ")
Hacer
x(2) = Int(Rnd * 22)
if x(2) lt; (1) y x(2) 1 lt; gt luego sale del anillo Do
x(3) = x(2) 1
0 = texto 1 amp;" formato amp(x(2)," 00") amp;" formato amp(x(3)," 00")
hacer
x(4 ) = Int(Rnd * 22 1)
Si (x(4) Mod 2) y x(4) lt; 4) lt; gtx(3) y luego salga del Do
ring
0 = text 1 amp;" amp format (x(4), "00")
Hacer
x(5) = Int(Rnd * 22 1)
Si (No (x(5) Mod 2)) y x(5) lt; gtx( 1) y x(5) lt; gtx(2) y x(5) lt; gtx(3) y x(5) gtx(4) y luego salir del bucle Do
0 = texto 1 amp;" formato amp(x(5), "00")
Conector final
Subform_Load privado()
yo .caption = " 5 de 22"
Texto1 = " "
Comando 1. Caption = "Ir "
Para i = 1 a 22
Número (i) = i
Siguiente I
Conector final