Private Sub Command1_Click()
Dim a(20) As Integer
Max = -1
For i = 1 To 20
a(i) = Int(Rnd * 100) + 1
Print a(i);
If i Mod 10 = 0 Then Print
If a(i) > Max Then Max = a(i)
Next i
Print
Print "最大值="; Max
End Sub
