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

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

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