应用题
1. 在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。其功能是随机产生30个0～1000的整数，将其放入一个数组中，然后输出其中的最大值。程序运行后，单击命令按钮(名称为Command1，标题为“输出最大值”，如图所示)，即可求出其最大值，并显示在窗体上。这个程序不完整，请把它补充完整，并能正确运行。
要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
【正确答案】[操作步骤]
步骤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：调试并运行程序，关闭程序后按题目要求存盘。
步骤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：调试并运行程序，关闭程序后按题目要求存盘。
【答案解析】 Rnd()函数用于产生一个小于1但大于或等于0的随机数。
本题程序用变量Max记录最大数，最初把数组的第一个元素的值赋给Max，然后通过For循环语句将其后的元素依次与之比较，如果其值大于Max则将其赋值给Max，依次类推，最终Max的值就是数组各元素中的最大值。
本题程序用变量Max记录最大数，最初把数组的第一个元素的值赋给Max，然后通过For循环语句将其后的元素依次与之比较，如果其值大于Max则将其赋值给Max，依次类推，最终Max的值就是数组各元素中的最大值。