怎么用vb计算10个任意数的平均值

你的任意数是如何产生的？
随机在0-100之间选出10个数字 要求分别列出它的最大值，最小值，平均值
dim max as integer,min as integer,S as integer,i as integer,n as integer
max=0:min=100
for i=1 to 10
randomize
n=int(rnd*100)
if n>max then max=n
if n<min then min=n
s=s+n
next i

10个数相加除以10

计算器