VB genera aleatoriamente 10 números, entre 1 y 100, y los organiza en una fila de mayor a menor.

Atenuar shuzu(1 a 10) como entero

Atenuar i como entero

Private Sub Form_Load()

Me.AutoRedraw = Verdadero

Aleatorizar

i = 1

Para i = LBound(shuzu) a UBound(shuzu)

shuzu(i) = 1 + Int(100 * Rnd())

Imprimir shuzu(i);

Siguiente

Imprimir

paixu shuzu

Para i = LBound(shuzu) A UBound(shuzu)

Imprimir shuzu(i);

Siguiente

Fin Sub

Sub paixu(shuzu() Como entero)

Atenuar j como entero

Atenuar k como entero

Atenuar m como entero

j = 1

k = 1

Para j = 1 a UBound(shuzu) - 1

Para k = 1 a UBound(shuzu) - 1

Si shuzu(k + 1) < shuzu(k) Entonces

m = shuzu(k)

shuzu(k) = shuzu(k + 1)

shuzu(k + 1) = m

Finalizar si

Siguiente

Siguiente

Fin Sub