如有以下程序代码,请填空 Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer Dim max As Integer For i = 1 To 10 a(i) = Int(Rnd * 1000) Next i max=_______ For i = 2 To 10 if _______ then max = a(i) End If Print a(i); Next i Print "max is:"; max End Sub