Pregunta de programación de VB: genere aleatoriamente 10 números enteros entre 0 y 100 y colóquelos en una matriz, muestre los valores de cada elemento de la matriz y encuentre los valores máximo, mínimo y promedio.

Subcomando privado1_Click()

Atenuar a(9)

Aleatorizar

Dim sum como entero, mínimo como entero, máximo como Entero

suma = 0: min = 100: max = 0

Para i = 0 a 9

a(i) = Int(101 * Rnd) )

suma = suma a(i)

Si a(i) lt; Entonces min = a(i)

Si a(i) gt; ; max Entonces max = a(i)

Imprimir a(i);

Siguiente i

Imprimir vbCrLf amp "Valor máximo:"; /p>

Imprimir "Valor mínimo:"; min

Imprimir "Valor medio:"; suma / 10

End Sub