Utilice la programación vb para encontrar números enteros del 1 al 100.

Subbotón privado 1 _ Click(ByVal remitente como System. Object, ByVal e como System. EventArgs) maneja el botón 1. Haga clic en

'Randomize()' para generar una semilla de número aleatorio para evitar que el resultado sea el mismo cada vez.

Dim a(100) As Integer 'Declara la matriz para almacenar datos para 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 = 0 a 99' 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, y 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

MsgBox("El valor máximo es "&; máximo)

MsgBox("El valor mínimo es "&; mínimo)

Conector final