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