Red de conocimiento informático - Problemas con los teléfonos móviles - Utilice la programación VB para generar 50 números aleatorios del 1 al 100. y ordenar en orden ascendente (usando el método de burbuja)

Utilice la programación VB para generar 50 números aleatorios del 1 al 100. y ordenar en orden ascendente (usando el método de burbuja)

Private Sub Form_Click()

Dim i, j, t, a(1 a 50)

Cls

Aleatorio

Imprimir " 50 números aleatorios: "

Para i = 1 a 50

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

Imprimir a(i);

Si i Mod 10 = 0 Entonces Imprimir

Rem Ordenar por burbujeo

Para i = 1 a 49

Para j = 1 a 50 - i

Si a(j) gt; a(j 1) Entonces

t = a(j 1)：a(j 1) = a(j)： a(j) = t

Finalizar si

Siguiente j

Siguiente i

Imprimir " Después de ordenar de mayor a menor: "

Para i = 1 a 50

Imprime a(i);

Si i Mod 10 = 0 Entonces imprime

Fin Sub