以下程序的功能是，产生10个0～1000的随机整数，放入数组Art中，

问题填空题

以下程序的功能是，产生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

答案

参考答案：Arr(1)

解析：本题用Int(Rnd*1000)产生0～1000的随机整数，通过一个For循环把这些整数放入数组Arr中。变量Max用来存放数组的最大值。为了求出数组的最大值，首先应把数组的第一个元素(即Arr(1))赋给变量Max，然后进入循环，把Max依次与数组中的其他各元素进行比较，如果某个元素比Max大，就把该元素的值赋给Max。循环结束后，变量Max中存放的就是数组的最大值。最后输出Max的值。Randomize语句称为初始化随机数生成器，即为Rnd函数产生新的随机整数。