应用题
1. 在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。其功能是随机产生30个0～1000的整数，放入一个数组中，然后输出其中的最小值。程序运行后，单击命令按钮(名称为Command1，标题为“输出最小值”)，即可求出其最小值，并在窗体上显示出来(如图所示)。这个程序不完整，请把它补充完整，并使其能正确运行。
【正确答案】【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“'”，将问号改为正确的内容。
参考答案(字体加粗部分是需考生填入的内容)
Option Base 1
Private Sub Command1_Click()
Dim arrN(30)As Integer
Dim Min As Integer
Randomize
For i=1 To 30
arrN(i)=Int(Rnd*1000)
Next i
Min=arrN(1) '将第一个数赋给Min，以提供判断
For i=2 To 30
If arrN(i)＜Min
Then '比较最小值与其他数值，找出最小值
Min=arrN(i)
End If
Next i
Print Min
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】产生0～1000范围内的随机数，应该是Rnd×1000。
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“'”，将问号改为正确的内容。
参考答案(字体加粗部分是需考生填入的内容)
Option Base 1
Private Sub Command1_Click()
Dim arrN(30)As Integer
Dim Min As Integer
Randomize
For i=1 To 30
arrN(i)=Int(Rnd*1000)
Next i
Min=arrN(1) '将第一个数赋给Min，以提供判断
For i=2 To 30
If arrN(i)＜Min
Then '比较最小值与其他数值，找出最小值
Min=arrN(i)
End If
Next i
Print Min
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】产生0～1000范围内的随机数，应该是Rnd×1000。
【答案解析】[考点] 本题考点有：Randomize语句、Rnd()函数、Int()函数、循环语句、判断语句以及Print方法。
本题程序用变量Min记录最小数，最初把数组的第一个元素的值赋给Min，然后通过For循环语句将其后的元素依次与之比较，如果其值小于Min，则将其赋值给Min，依次类推，最终Min的值就是数组各元素中的最小值。
本题程序用变量Min记录最小数，最初把数组的第一个元素的值赋给Min，然后通过For循环语句将其后的元素依次与之比较，如果其值小于Min，则将其赋值给Min，依次类推，最终Min的值就是数组各元素中的最小值。