VB随机数求和

Private Sub Form_Click()
Dim i As Integer
Dim a(20) As Integer
Randomize
For i = 1 To 20
a(i) = Int(Rnd * (100 - 1 + 1)) + 1
Sum = Sum + a(i)
Next i
Print Sum / 20
End Sub

dim i as integer,s as integer,s1 as single
s=0
for i =1 to 20
Randomize
s=s+(100)rnd+1 '和
next i
print s
s1=s/20 '平均值
print s1

最大值的算法：
dim a(1 to 21)
a(1)=1
for i =1 to 20
Randomize
a(i+1)=(100)rnd+1
if a(i)>a(i+1) then x=a(i)
next i
print x

dim i as integer,s as integer
Randomize
s=0
for i =1 to 20
s=rnd(i*100)+1+s
next i
print s

Randomize
for i =1 to 20
a=rnd(i*100)+1
s=a+s
next i
print s