vb 比大小 平均数 急急！！！！！！

Private Sub Command1_Click()
Cls
Randomize
Dim a(10), min, max
min = 100
max = 0
For i = 1 To 10
a(i) = Int(Rnd * 70 + 30)
Print a(i);
If max < a(i) Then max = a(i)
If a(i) < min Then min = a(i)
sum = sum + a(i)
Next i
ave = sum / 10
Print
Print "平均数为："; ave
Print "最大数为："; max
Print "最小数为："; min
End Sub

Private Sub Command1_Click()
Dim s(10) As Integer
Dim num As Integer, sum As Integer, max As Integer, min As Integer

max = 0
min = 200
For i = 1 To 10
num = Int(Rnd * 70 + 30)

If num > max Then max = num
If num < min Then min = num
s(i) = num
Next i

Print "数组为： ";
For i = 1 To 10
sum = sum + s(i)
Print s(i) & " ";
Next i
Print

Print "最大值为："; max; "最小值为："; min; "平均值为："; sum /