Red de conocimiento informático - Consumibles informáticos - Cómo programar en vb para generar aleatoriamente 100 números enteros entre 60 y 95, almacenarlos en una matriz y ordenarlos de mayor a menor

Cómo programar en vb para generar aleatoriamente 100 números enteros entre 60 y 95, almacenarlos en una matriz y ordenarlos de mayor a menor

Atenuar a(100) como entero

Subcomando privado1_Click() Imprimir "Entero aleatorio:" Para i = 1 a 100

a(i) = Int(36 * Rnd) 60

Imprimir a(i);

Si i Mod 20 = 0 Entonces Imprimir Siguiente i Imprimir

End Sub

Subcomando privado2_Click() Para i = 1 a 99

Para j = 1 a 100 - i Si a(j) lt a(j 1) Entonces

t = a(j): a(j) = a(j 1): a(j 1) = t Fin Si

Siguiente j Siguiente i Imprimir Imprimir "Enteros ordenados:" Para i = 1 A 100

Imprime a(i);

Si i Mod 20 = 0 Entonces imprime Siguiente i

End Sub