首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sj3.vbp,相应的窗体文件为sj3.frm。其功能是产生30个0~800的随机整数,放入一个数组中,然后输出这30个整数中小于400的所有整数的个数。程序运行后,单击名称为Commandl的命令按钮,其标题为“输出小于
(1)在考生文件夹下有一个工程文件sj3.vbp,相应的窗体文件为sj3.frm。其功能是产生30个0~800的随机整数,放入一个数组中,然后输出这30个整数中小于400的所有整数的个数。程序运行后,单击名称为Commandl的命令按钮,其标题为“输出小于
admin
2010-07-13
37
问题
(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://kaotiyun.com/show/tGmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
使用如下( )保留字可以使只有在该类的包中的其他类才能访问该类。
下列不属于JComponent类的功能的是( )。
复选框通过【】来监听ItemEvent事件。
在Java语言中的实数,如数字后没有任何字母,计算机默认其为【】类型。
下面程序代码运行结果为( )。importjava.awt.*;publicclassTest{publicstaticvoidmain(Stringargs[]){String
现有一个整型数组a[4],它的所有数组元素为( )。
调用以下哪些方法可以使运行状态的线程进入阻塞状态?( )
下列程序的输出结果是( )。publicclassTest{publicstaticvoidmain(String[]args){chara1=’B’,a2=’c’;
下列关系运算中,能使经运算后得到的新关系中属性个数多于原来关系中属性个数的是
Java的图形界面技术经历了两个发展阶段,分别通过提供AWT开发包和【】开发包来体现。
随机试题
()()()()属于受著作权法保护的作品。
适合做大规模筛检的疾病有
省级药品不良反应监测中心向国家药品不良反应监测中心报告要求( )。
《建设项目经济评价方法与参数(第3版)》中规定的建设投资包括()。
考虑了生产过程中不可避免的损失、故障和偏差,具有客观性、现实性和激励性等特点的标准成本是()。
甲企业2014年1月对乙企业进行投资,投资成本为160万元,2018年1月乙企业进行清算,甲企业分得剩余资产204万元,其中含累计未分配利润和累计盈余公积24万元,甲、乙企业均属于境内居民企业,则该项业务甲企业应纳企业所得税()万元。
一个商品价格下降对其互补品最直接的影响是()。
“技能可以促进知识的掌握”这一命题所表达的观念在知识的分类体系中属于
Weareenteringaperiodinwhichrapidpopulationgrowth,thepresenceofdeadlyweapons,anddwindlingresourceswillbringin
Salt,shellsormetalsarestillusedasmoneyinout-of-the-waypartsoftheworldtoday.Saltmayseemratherastrange【B1】t
最新回复
(
0
)