Pídele a un experto en programación que te ayude a escribir un pequeño programa. Si tienes éxito, ¡serás recompensado con puntuaciones altas!

Usa vb, la interfaz tiene un botón y un cuadro de texto

El código es el siguiente:

Dim number (22) As Integer

Subcomando privado1_Click()

Dim x(5) As Integer

Do

x(1) = Int(InputBox("Por favor, introduzca un número que determinó (1~22):"))

Si x(1) < 1 Entonces

MsgBox "El número que eligió es demasiado pequeño. El rango correcto es desde 1. a 22 ", vbCritical, "22 elige 5"

ElseIf x(1) > 22 Then

MsgBox "El número que elegiste es demasiado grande. El rango correcto es 1. a. 22.

", vbCritical, "Elija 5 de 22"

De lo contrario

Salir Hacer

Finalizar si

Bucle

Texto1 = Formato(x(1), "00")

Hacer

x(2) = Int(Rnd * 22)

Si x( 2 ) <> x(1) y x(2) + 1 <> x(1) Luego salga del bucle Do

x(3) = x(2) + 1

Texto1 = Texto1 & " " & Formato(x(2), "00") & " " & Formato(x(3), "00")

Hacer

x(4) = Int(Rnd * 22 + 1)

Si (x(4) Mod 2) Y x(4) <> x(1) Y x(4) < > x(2) y x(4) <> x(3) Luego salga del bucle Do

Texto1 = Texto1 & " " & Formato(x(4), " 00 ")

Hacer

x(5) = Int(Rnd * 22 + 1)

Si (No (x(5) Mod 2)) Y x(5) <> x(1) Y x(5) <> x(2) Y x(5) <> x(3) Y x(5) <> x(4) Luego Salir Hacer

Bucle

Texto1 = Texto1 & " " & Formato(x(5), "00")

End Sub

Sub privado Form_Load( )

Me.Caption = "Elige 5 de 22"

Text1 = ""

Command1.Caption = "Inicio"

Para i = 1 a 22

Número (i) = i

Siguiente i

End Sub