Red de conocimiento informático - Problemas con los teléfonos móviles - VB genera aleatoriamente 100 números naturales y los ordena de mayor a menor. y salida

VB genera aleatoriamente 100 números naturales y los ordena de mayor a menor. y salida

Private Sub Form_Click()

Form1.AutoRedraw = True

Form1.Cls

Dim A(100) As Integer p>

Dim I como entero, J como entero, K como entero

Aleatorizar

Imprimir "Los 100 números generados aleatoriamente son:"

Para I = 1 a 100

A(I) = Int(Rnd * 999 1)

Imprimir A(I);

Si modifico 10 = 0 Luego imprima

Para I = 1 a 99

Para J = I 1 a 100

Si A(I ) lt; A(J) Entonces

K = A(I)

A(I) = A(J)

A(J) = K

Finalizar si

Imprimir "El orden después de ordenar de grande a pequeño es:"

Para I = 1 a 100

Imprime A(I);

Si modifico 10 = 0, entonces imprime

End Sub

ya se ha ejecutado.