首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生30个0~1000的整数,放入一个数组中,然后输出其中的最小值。程序运行后,单击命令按钮(名称为Command1,标题为“输出最小值”),即可求出其最小值
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生30个0~1000的整数,放入一个数组中,然后输出其中的最小值。程序运行后,单击命令按钮(名称为Command1,标题为“输出最小值”),即可求出其最小值
admin
2019-03-14
56
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生30个0~1000的整数,放入一个数组中,然后输出其中的最小值。程序运行后,单击命令按钮(名称为Command1,标题为“输出最小值”),即可求出其最小值,并在窗体上显示出来(如图所示)。这个程序不完整,请把它补充完整,并使其能正确运行。
要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后将修改后的文件按原名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体史件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~1000范围内不能被7整除的整数的个数,并在文本框中显示出来。在窗体的代码窗几中,已给出了部分程序,其中计算不能被7整除的整数的个数的操作在通用过程Fun中实现,请编写该过程的代码。
要求:请勿改动程序中的任何内容,只在Function Fun()和End Function之间填入你编写的若于语句。最后将修改后的文件按原文件名存盘。
选项
答案
(1)步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案 Option Base 1 PriVate sub Command1_Slick() 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)
0 Then s=s+1将满足条件的数的个数累加 End If Next i Fun=s’返回结果 End Function 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
(1)本题程序用变量Min记录最小数,最初把数组的第一个元素的值赋给Min,然后通过For循环语句将其后的元素依次与之比较,如果其值小于Min,则将其赋值给Min,依次类推,最终Min的值就是数组各元素中的最小值。
(2)可通过求余运算符Mod来计算某数M能否被7整除,如果M,Mod 7=0,那么M能被7整除;如果M Mod 7<>0,那么M不能被7整除。可利用For循环语句来逐个判断0~1000范围内的整数能否被7整除,然后用一个变量来统计不能被7整除的整数个数。
转载请注明原文地址:https://kaotiyun.com/show/FbUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下通用过程:PublicFunctionFun(xStrAsString)AsStringDimtSstAsString.strLAsIntegertStr=“”:strL=Len(xStr)i=strL/2DoWhi
数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是
语句PrintFormat$(23846.5,“000,000.00”)的输出结果是
输入VB源程序时,若一个命令行中包含两个语句,则两个语句之间的分隔符应使用
窗体上建立了一个名为CommonDialong1的通用对话框,用下面的语句建立一个对话框:CommonDialong1.Action=2,则以下语句与之等价的是()。
关于自定义数据类型,下面叙述中不正确的是()。
为了实现对象的自动拖放,应该设置该对象的一个属性。下面设置中正确的是
假定建立了一个名为Commandl的命令按钮数组,则以下说法中错误的是()。
某系统总体结构图如下图所示:该系统总体结构图的深度是()。
软件测试的目的是()。
随机试题
卫生行政法规是
某投资人拟投资股票,目前有两家公司股票可供选择:(1)A公司股票本年度每股利润1元,每股股利0.4元,每股净资产10元,预计公司未来不发行股票,且保持经营效率、财务政策不变。(2)B公司本年度的净收益为20000万元,每股支付股利2元。预计该公
当球面的铣削纹路是单向的,则球面形状不正确。
A.对α受体作用强,对β1受体作用较弱,对β2受体作用弱B.对α受体作用弱,对β1受体作用较强,对β2受体作用强C.对α、β1和β2受体作用都很弱D.对α、β1和β2受体作用都很强(2011年第121题)去甲肾上腺素作用于肾上腺素能受体的特点是
抢救中医生的口头医嘱护士()
关于正当防卫下列哪些说法正确?
( )导致的费用偏差,往往是无法避免和控制的,只能防患于未然,力求减少经济损失。
基金管理人、基金托管人和基金代销机构是基金信息披露的主要义务人。
据说犹太王大卫的戒指上有一句铭文:“一切都会过去。”而契诃夫小说中一个人物的戒指上也刻有一铭文:“一切都不会过去。”一位哲学家曾说:“成功和失败只代表过去,忘记过去才可能走进新天地。”而另一位哲人又说:“过去不能忘,因为历史是一个永远的存在。”忘与不忘,全
曲线绕z轴旋转而成的曲面介于z=1与z=2之间的体积为________.
最新回复
(
0
)