Programación VB, aleatoriza 3 números de mayor a menor, hermano y hermana pueden ayudar, ¡gracias!
Private Sub Command1_Click()
Dim s(1 a 3) como entero, str como cadena, Max como entero, Min como entero
Aleatorio
Min = 10
Para i = 1 a 3
s(i) = Int(Rnd * 10 1)
str = str amp s(i) amp; ; ","
Si s(i) gt; Máx. Entonces Máx = s(i)
Si s(i) lt; Mín. Entonces = s(i)
p>Siguiente
str = "Los 3 números aleatorios son:" amp str amp vbCrLf
Para i = 1 a 3
Si s(i) lt;gt; Max y s(i) lt;gt; Min Entonces str = str amp; "gt; amp; "gt;" amp; s(i) amp; " gt;" amp; Min
Siguiente
MsgBox str
End Sub