max=0
min=100
For i = 1 To 20
a=Int(Rnd*51+50)
if maxif min>a then min=a
s=s+a
Print a;
Next i
s就是总值 除以20 不就是平均值了~
max 最大值
min 最小值
s=0
p=50
q=100
For i = 1 To 20
a=Int(Rnd*51+50)
Print a;
if a>=p then
p=a
end if
if a<=q then
q=a
end if
s=s+a
Next i
b=s/20
print "最大值是";p
print "最小值是";q
print "平均值是";b
end sub
将你的部分改了一下,加上你原来的应该行了