以下程序的功能是 产生10个0～1000的随机整数 放入数组Arr中 然后输出其中的最大值。请完善下
以下程序的功能是，产生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
请帮忙给出正确答案和分析，谢谢！
参考解答
461***263
2023-07-21 21:20:55
正确答案：Arr(1) Arr(i)＞Max
本题用Int(Rnd*1000)产生0～1000的随机整数，通过一个For循环将这些整数放入数组Arr中，变量Max用来存放数组的最大值。为了求出数组的最大值，首先应将数组的第一个元素(即Arr(1))赋给变量Max，然后进入循环，将Max依次与数组中的其他各元素进行比较，如果某个元素比Max大，就将该元素的值赋给Max。循环结束后，变量Max中存放的就是数组的最大值。最后输出Max的值。Randomize语句称为初始化随机数生成器，即为Rnd函数产生新的随机整数。
相似问题
Visual Basic识别对象靠的是对象的【 】属性。请帮忙给出正确答案和分析 谢谢！
Visual Basic识别对象靠的是对象的【 】属性。请帮忙给出正确答案和分析，谢谢！
为了使一个标签透明且没有边框 必须将它的【 】属性设置为0 并将BackStyle属性设置为0。请帮
为了使一个标签透明且没有边框，必须将它的【 】属性设置为0，并将BackStyle属性设置为0。请帮忙给出正确答案和分析，谢谢！
为了建立窗体的Click事件过程 即Form_Click 应先在代码窗口的【 】栏中选择Form 然
为了建立窗体的Click事件过程，即Form_Click，应先在代码窗口的【 】栏中选择Form，然后在【 】栏中选择Click。请帮忙给出正确答案和分析，谢谢！
下列程序的功能是：将数据1 2 … 10写入顺序文件Base．txt中 请填空。 Private S
下列程序的功能是：将数据1，2，…，10写入顺序文件Base．txt中，请填空。 Private Sub Form_Click() Dim i As Integer Open【 】As 1 For i
浮点数由3部分组成 即符号 【 】和尾数。请帮忙给出正确答案和分析 谢谢！
浮点数由3部分组成，即符号、【 】和尾数。请帮忙给出正确答案和分析，谢谢！
