Ayuda: no hay restricciones en el lenguaje de programación. Es mejor tener diagramas de flujo e instrucciones de programación correspondientes: genere aleatoriamente 20 números enteros positivos y genere los valores máximo y mínimo entre ellos.

Dim num(1 a 20) As Integer 'Guardar números aleatorios

Dim max As Integer, min As Integer 'Guardar los valores máximo y mínimo

Me.Display'

max = 0: min = 100 'Inicializar

Aleatorizar temporizador'

Para i = 1 a 20

num(i) = Fix(Rnd() * 100) + 1

Si num(i) > entonces max = num(i)

Si num( i) < min Entonces min = num(i)

Imprimir num(i);

Siguiente i

Imprimir

Impresión máxima

Impresión mínima