[问答题] 在考生文件夹下有一个工程文件sjt3. vbp，相应的窗体文件为sjt3. frm。其功能是随机产生30个0～1000的整数，将其放入一个数组中，然后输出其中的最大值。程序运行后，单击命令

[问答题] 在考生文件夹下有一个工程文件sjt3. vbp，相应的窗体文件为sjt3. frm。其功能是随机产生30个0～1000的整数，将其放入一个数组中，然后输出其中的最大值。程序运行后，单击命令按钮(名称为Command1，标题为“输出最大值”，如图所示)，即可求出其最大值，并显示在窗体上。这个程序不完整，请把它补充完整，并能正确运行。
要求：去掉程序中的注释符，把程序中的改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。

参考答案：

[解题思路] Rnd()函数用于产生一个小于1但大于或等于0的随机数。 本题程序用变量Max记录最大数，最初把数组的第一个元素的值赋给Max，然后通过For循环语句将其后的元素依次与之比较，如果其值大于Max则将其赋值给Max，依次类推，最终Max的值就是数组各元素中的最大值。[操作步骤] 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Option base 1 Private Sub Command1_Click() Dim arrN(30) As Integer Dim Max As Integer Randomize For i = 1 To 30 ’arrN(i) = Int( Rnd * ) Next i ’ =arrN(1) For i = 2 To 30 ’If Then Max = arrN (i) End If Next i Print Max End Sub 程序结束 第1个处填入：1000 第2个处填入：Max 第3个处填入：arrN(i)＞Max或Max＜arrN(i) 步骤3：调试并运行程序，关闭程序后按题目要求存盘。

问题解析:

解析无