[填空题] 以下程序的功能是，产生10个0～1000的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。 Option Base 1 Private

[填空题] 以下程序的功能是，产生10个0～1000的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。

Option Base 1

Private Sub Form_Click()

　　Dim Arr(10)As Integer

　　Dim Max As Integer

　　Randomize

　　For i = 1 To 10

　　　　Arr(i)= Int(Rnd * 1000)

　　Next i

　　Max = (14)

　　For i = 2 To 10

　　　　If (15) Then

　　　　　　Max = Arr(i)

　　　　End If

　　Next i

　　Print Max

End Sub

Arr(1)