VB suma de números aleatorios

dim i como entero, s como entero, s1 como único

s=0

para i =1 a 20

Aleatorio

s=s (100)rnd 1 'suma

siguiente i

imprimir s <

s1=s/20 'media

print s1

Algoritmo para valor máximo:

atenuar a(1 a 21)

a(1)=1

para i =1 a 20

Aleatorizar

a(i 1)=(100) rnd 1

si a(i)gt;a(i 1) entonces x=a(i)

siguiente i

imprimir x