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

[解题思路]Rnd()函数用于产生一个小于1但大于或等于0的随机数。
本题程序用变量Max记录最大数，最初把数组的第一个元素的值赋给Max，然后通过For循环语句将其后的元素依次与之比较，如果其值大于Max则将其赋值给Max，依次类推，最终Max的值就是数组各元素中的最大值。
[操作步骤]
步骤1：打开本题工程文件。
步骤2：分析并编写程序代码。
程序提供代码
OptionBase1
PrivateSubCommand1_Click()
DimarrN(30)AsInteger
DimMaxAsInteger
Randomize
Fori=1To30
’arrN(i)=Int(Rnd*)
Nexti
’=arrN(1)
Fori=2To30
’IfThen
Max=arrN(i)
EndIf
Nexti
PrintMax
EndSub
程序结束

第1个处填入：1000
第2个处填入：Max
第3个处填入：arrN(i)＞Max或Max＜arrN(i)
步骤3：调试并运行程序，关闭程序后按题目要求存盘。