Encuentre el número máximo de veces para la programación VB.

Si solo genera valores máximo y mínimo, simplemente agregue un comando.

Entonces escribe estos códigos.

Subcomando privado 1_Click()

"Randomize" genera una semilla de número aleatorio para evitar que el resultado sea el mismo cada vez.

Dim A (1 a 100) As Integer 'Declara la matriz para almacenar datos y almacenar resultados de números aleatorios.

' Dim max As Integer, min As Integer 'Declara dos variables con valores máximo y mínimo.

' Min = 1000: max = 0 'Establece el valor inicial.

Para i = 1 a 100' Realiza un bucle 100 veces.

a(I)= int(rnd()* 1001)' usa rnd para generar un número aleatorio. Dado que el rango de rnd es un decimal entre 0 y 1, *1000 establece su rango entre 0 y 999, donde 1 se convierte en 65438.

Si a(i)>= max Entonces max = a(i)' Si el valor actual es mayor que el valor máximo, guarde la variable.

Si a(I)<= min Entonces min = a(i)' Si el valor actual es menor que el valor mínimo, guarde la variable.

Entonces

El valor máximo de MsgBox es "&; Máximo

El valor mínimo de MsgBox es "&;Part

Fin conector