Red de conocimiento informático - Problemas con los teléfonos móviles - Problema de programación de VB: genera aleatoriamente 100 números enteros dentro de 1000 y muestra los valores máximo y mínimo.

Problema de programación de VB: genera aleatoriamente 100 números enteros dentro de 1000 y muestra los valores máximo y mínimo.

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

Escriba estos códigos más tarde.

Private Sub Command1_Click()

Aleatorio 'Genera una semilla de número aleatorio para evitar el mismo resultado cada vez

Dim a(1 To 100) As Integer 'Declara una matriz para almacenar datos y guardar los resultados de números aleatorios

Dim max As Integer, min As Integer 'Declara dos variables para almacenar los valores máximo y mínimo

min = 1000: max = 0 'Establece el valor inicial

Para i = 1 a 100 'Recorre 100 veces

a(i) = Int(Rnd() * 1000 + 1) 'Utiliza rnd para generar un número aleatorio ya que el rango de rnd es un decimal entre 0-. 1. Entonces *1000 establece su rango entre 0 y 999 más 1 para convertirse en entre 1 y 1000

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

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

Siguiente

MsgBox "El valor máximo es" & max

MsgBox "El valor mínimo es" & min

End Sub