问题详情

以下程序的功能是，产生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= ______
For i = 2 To 10
If______Then
Max = Arr(i)
End If
Next i
Print Max
End Sub请帮忙给出正确答案和分析，谢谢！