vb生成10个两位随机数，求出其中最大值、最小值、平均值

Private Sub Command1_Click()
  Cls
  Randomize (Timer)
  Min = 100: Max = 10
  For i = 1 To 10
    n = Int(Rnd(i) * 90 + 10)
    Print n;
    If n < Min Then Min = n
    If n > Max Then Max = n
    s = s + n
  Next i
  Print
  Print "Max="; Max
  Print "Min="; Min
  Print "Average="; s / 10
End Sub

dim a(9) as integer,i as integer ,max as integer,min as integer , s as integer
for i=0 to 9
randomize
a(i)=rnd* 1)*90+10
if i=0 then or a(i)>max then max=a(i)
if i=0 or a(i)s=s+a(i)
print a(i);
next i
print
print "最大数为"& max & "，最小数为" & min & "，平均值为" & (s/10)