Red de conocimiento informático - Problemas con los teléfonos móviles - VB utiliza la función aleatoria para generar 20 números aleatorios en el rango de 50 a 100 y muestra los valores máximo, mínimo y promedio.

VB utiliza la función aleatoria para generar 20 números aleatorios en el rango de 50 a 100 y muestra los valores máximo, mínimo y promedio.

Private Sub Form_Activate()

Atenuar a(1 a 20) como entero, b como entero, c como entero, d como entero, e como entero

Aleatorizar

Imprimir "Número aleatorio:";

Para i = 1 a 20

a(i) = Int(Rnd * 50) + 50

Si a(i) > d Entonces d = a(i)

e = e + a(i)

Imprime a(i);

c = a (1)

Para i = 2 a 20

Si c > a(i) Entonces c = a(i)

Imprimir

Imprimir "El valor mínimo es:"; c

Imprimir "El valor máximo es:";

Imprimir "El promedio es:"; e / i

End Sub