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

If Max < a(i) Then Max = a(i)
If Min > a(i) Then Min = a(i)
你仔細看看,Min始終是0
你說輸出是不是一定是0?

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

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

Private Sub Command1_Click()
Dim a(10) As Integer
   
    Print "随机数为:";
For i = 0 To 9
a(i) = Int(10 + Rnd * (90))
If i = 0 Then
    Max = a(0)
    Min = a(0)
End If

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

你给MIN，MAX赋的初始值是A（0），而给他们赋初始值的时候，A（0）还没有赋值呢。还好VB的语言比较松散，否则就要报错了。

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