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

[填空题] 以下程序的功能是，产生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

参考答案：

问题解析: