运行测试通过，希望对你有帮助。
Private Sub Command1_Click()
Dim a(9) As Integer
Dim i As Integer
Dim max As Integer
For i = 0 To 9
a(i) = Int(Rnd * 101)
Next i
max = a(0)
Print max
For i = 1 To 9
Print a(i)
If max <= a(i) Then
max = a(i)
End If
Next i
Print "最大的数是"; max
End Sub
没分
没分，刘明
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024