用VB程序写出“利用随机函数产生20个50~100范围内的随机数,显示他们的最大值、最小值和平均值.”怎么写

dim a,max,min,sum,average
sum=0
max=20
min=50
for i=1 to 20
a=(Rnd * 50) + 50
sum=sum+a
if amax then max=a
print a
next
print max
print min
average=sum/20
print average