Encuentre un fragmento de código VB que guarde 10 números enteros generados aleatoriamente entre 20 y 50 en una matriz y programe los valores máximo, mínimo y promedio.
Subcomando privado1_Click()
Aleatorizar
Atenuar a(1 a 10)
Atenuar máximo, mínimo, promedio
mín = 50 : max = 20
Para i = 1 a 10
a( i) = Int(Rnd * 21 30)
Imprimir a(i);
Si max lt; a(i) Entonces max = a(i)
Si min gt; a(i) Entonces min = a(i)
ave = ave a(i)
Siguiente i<
ave = ave / 10
Imprimir
Imprimir " max", " min", " promedio"
Imprimir máximo, mínimo, promedio
End Sub