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