Pregunta de VB: seleccione aleatoriamente 3 números del 1 al 100 y ordénelos.

Este programa es válido para n números Aquí n=3

Subcomando privado1_Click()

n = 3

g =. n

ReDim a(n) siempre que

Aleatorio

For i = 1 To n

a(i) = Int( Rnd(1) * 101)

Siguiente i

Para j = 1 To (n ^ 2 - n) / 2

Para i = 1 To n - 1

Si a(i) < a(i + 1) Entonces

b = a(i)

a(i) = a (i + 1)

a(i + 1) = b

Fin si

Siguiente i

n = n - 1

Siguiente j

Para i = 1 A g

MsgBox a(i)

Siguiente i

Fin Sub