2. 计算机
  3. (1)在考生文件夹下有一个工程文件sj3．vbp，相应的窗体文件为sj3．frm。其功能是产生30个0～800的随机整数，放入一个数组中，然后输出这30个整数中小于400的所有整数的个数。程序运行后，单击名称为Commandl的命令按钮，其标题为“输出小于

(1)在考生文件夹下有一个工程文件sj3．vbp，相应的窗体文件为sj3．frm。其功能是产生30个0～800的随机整数，放入一个数组中，然后输出这30个整数中小于400的所有整数的个数。程序运行后，单击名称为Commandl的命令按钮，其标题为“输出小于

admin2010-07-13  47
问题 (1)在考生文件夹下有一个工程文件sj3．vbp，相应的窗体文件为sj3．frm。其功能是产生30个0～800的随机整数，放入一个数组中，然后输出这30个整数中小于400的所有整数的个数。程序运行后，单击名称为Commandl的命令按钮，其标题为“输出小于400的整数的个数”，即可求出这些整数的个数，并在名称为Textl的文本框上显示出来，如图34—4所示。这个程序不完整，请把它补充完整，并能正确运行。
    注意：去掉程序中的注释符“’”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
    (2)在考生文件夹下有一个工程文件sj4．vbp，相应的窗体文件为sj4．frm，在窗体上有一个命令按钮和两个文本框。程序运行后，单击命令按钮，即可计算出20～200范围内能被5整除的所有整数的和及个数，并分别在文本框中显示出来，如图34—5所示。在窗体的代码窗口中，已给出了部分程序，其中计算能被5整除的整数的和及个数的操作在通用过程Func中实现，请编写该过程的代码。

    注意：请勿改动程序中的任何内容，只在Function Func()和End Function之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。
选项
答案(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(30)As Integer’声明一个数组 Dim num As Integer num=0 For i=1 To 30 a(i)=Rnd()*(800-0) ’将0～800的随机数存人数组 If a(i)<400 Then num=num+1 ’如果数小于400，计数加1 End If Next i Textl．Text=num’将得到的总数放在Textl中显示 End Sub 单击[*]按钮运行程序，并按要求保存。 (2)要判断一个数能不能被5整除，使用求余运算符Mod，如果余数不为0，则表示该数不能被整除。程序提供的代码如下： Dim num As Integer Private Sub Commandl_Click() Textl．Text=Func ’调用Func函数 Text2．Text=num’全局变量 End Sub 补充后的Func函数参考代码如下： Function Func()As Long’返回Long型数值 Dim i As Integer Func=0 num=0 For i=20 To 200 If i Mod 5=0 Then num=hum+1 ’如果能被5整除，则计数加l Func=Func+i’算人总和中 End If Next i End Function 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/tGmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)