额。为什么要提问三次？好吧，粘贴一下，你看看是不是你要的效果Dim a(11) As Integer, n As IntegerPrivate Sub Command1_Click()
For i = 1 To 11
Randomize
a(i) = Int(Rnd * 100) + 1
Print a(i);
Next i
PrintEnd SubPrivate Sub Command2_Click()
Max = a(1)
n = 1
For i = 2 To 11
If Max < a(i) Then...
