Private Sub Command1_Click()
Dim a(10) As Integer
Max = a(0): Min = a(0)
Print "随机数为:";
For i = 0 To 9
a(i) = Int(10 + Rnd * (90))
If i = 5 Then
 Print
 Print Tab(10);
End If
Print a(i);
Sum = Sum + a(i)
If Max < a(i) Then Max = a(i)
If Min > a(i) Then Min = a(i)
Next
s = Sum \ 10
Print
Print "最大值为:"; Max
Print "最小值为:"; Min '为什么等于0
Print "平均值为:"; s
End Sub

我还是不懂,你能不能把主要的执行语句写一下
多谢了!

[[it] 本帖最后由 yi157 于 2008-6-5 19:33 编辑 [/it]]

原来顺序弄错了,多谢大侠指点迷津,在下感激不尽!