(1)在考生文件夹下有一个工程文件sj3．vbp，相应的窗体文件为sj3．frm。其功能是产生40个0～800的随机整数，放入一个数组中，然后输出其中的最小值。程序运行后，单击名称为Commandl的命令按钮，标题为“输出最小值”，即可求出其最小值，并在Textl文本框中显示出来，如图33—4所示。这个程序不完整，请把它补充完整，并能正确运行。 注意：去掉程序中的注释符“'”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件sj4．vbp，相应的窗体文件为sj4．frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出100～800范围内能被3整除和能被5整除的整数的个数，并在文本框中显示出来，如图33—5所示。在窗体的代码窗口中，已给出了部分程序。
【正确答案】正确答案：(1)在数组求最小值中，定义一个变量，用来存放数组中的最小值，在数组比较开始前，对变量进行赋初始值。在比较中，使用循环让变量和数组中的每个元素进行逐个比较，每次比较后变量中保存两个数中最小的数，循环结束后，变量中存放的数即为最小值。 由于要产生随机数，所以要调用Rnd()函数，Rnd函数返回小于1，但大于或等于0的值，其语法格式为：Rnd[(number)]。number参数是可选的，是Single或任何有效的数值表达式。number的值决定了Rnd函数生成随机数的方式。为了生成某个范围内的随机整数，可使用公式：Int((upperbound-lowerbound+1)*Rnd+lowerbound)。这里，upperbound是随机数范围的上限，而lowerbound则是随机数范围的下限。具体代码如下： Private Sub Commandl_Click() Dim a(40)As Long Dim i As Integer Dim tmp As Integer For i=1 To 40 a(i)=
Rnd()
*(800—0) '产生0～800的随机数，放人数组中 Next i tmp=a(1) For i=2 To 40 If tmp>
a(i)
Then tmp=a(i) '获得最小值 End If Next i Textl．Text=tmp'在Textl中显示最小值 End Sub 单击
按钮运行程序，并按要求保存。 (2)本题使用Mod运算符来判断一个数是否可以被另一个数整除，如果计算结果为0，则表示可以整除，否则不能整除。具体代码如下： Private Sub Commandl_Click() Dim i As Integer Dim num As Integer num=0 For i=100 To 800'for循环从100到800 If i
Mod
3=0 And i
Mod
5=0 Then num=num+1 '如果能同时被3和5整除，计数加1 End If Next i Textl．Text=num'在Textl中输出个数 End Sub 单击
按钮运行程序，并按要求保存。 (2)本题使用Mod运算符来判断一个数是否可以被另一个数整除，如果计算结果为0，则表示可以整除，否则不能整除。具体代码如下： Private Sub Commandl_Click() Dim i As Integer Dim num As Integer num=0 For i=100 To 800'for循环从100到800 If i
Mod
3=0 And i
Mod
5=0 Then num=num+1 '如果能同时被3和5整除，计数加1 End If Next i Textl．Text=num'在Textl中输出个数 End Sub 单击
【答案解析】