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

18 查阅

[填空题] 以下程序的功能是，产生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 10Arr(i)= Int(Rnd * 1000) Next i Max = 【14】 For i = 2 To 10If 【15】 Then Max = Arr(i)End If Next i Print Max End Sub

参考答案:

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

[15] Arr(i)＞Max

计算机考试