首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt.frm。其功能是随机产生30个0~1000的整数,放入一个数组中,然后输出其中的最小值。程序运行后,单击命令按钮(名称为Command1,标题为“输出最小值”),即可求出其最小值,
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt.frm。其功能是随机产生30个0~1000的整数,放入一个数组中,然后输出其中的最小值。程序运行后,单击命令按钮(名称为Command1,标题为“输出最小值”),即可求出其最小值,
admin
2019-06-11
17
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt.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_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:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。 参考答案 Function Fun() Dim S As Integer,i As Integer For i=0 To 1000 ’求0~1000中满足条件的数 If i Mod 7<>0 Then s=s+1将满足条件的数的个数累加 End If Next i Fun=s ’返回结果 End Function 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/4VUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
文本框的Locked属性被设置为True后产生的效果是
某人为计算n!(0<n<=12)编写了下面的函数过程:PrivateFunctionfun(nAsInteger)AsLongDimpAsLongp=1Fork=n-1To2Step-1p=p*kNextkfun=pEn
设有下面的语句:PrintIIf(x>0,1,IIf(x<0,-1,0))与此语句输出结果不同的程序段是
关于KeyPress事件,以下叙述中正确的是
在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下事件过程:PrivateSubCommand1_Click()Counter=0Fori=1T04Fori=6To1Step-2Counter=Co
耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是
设有如下声明语句OptionBase1Dimart(2,-1To5)AsInteger则数组art中数组元素的个数是
下面能够将某个变量声明为局部变量的是
下列选项中不属于面向对象程序设计特征的是
下面函数的功能应该是:删除字符串str中所有与变量ch相同的字符,并返回删除后的结果。例如:若str="ABCDABCD",ch="B",则函数的返回值为:“ACDACD”Functiondelchar(strAsString,chAs
随机试题
抽油机减速箱在冬天应使用()标号的机油。
心力贮备包括()
下消化管是指()
对出具虚假报告,不构成犯罪的药品检验机构处以对出具虚假报告,不构成犯罪的药品检验机构的主管人员处以
物流服务的货物完好率指标说明()。
[2009年,第28题]一个气缸内有一定量的单原子分子理想气体,在压缩过程中对外界做功209J,此过程中气体的内能增加120J,则外界传给气体的热量为()。
网络计划中,工作的局部时差等于()。
我国某一股份有限公司形式设立的银行由于资本充足率严重低下,不良资产大量增加,拆入资金比例大大超过了规定标准,存款人大量挤提银行存款,财务状况严重恶化,自身求助力有限,终于走向倒闭。根据以上资料,回答下列问题:我国银行机构中,8%的资本充足率标
世界上最著名的智力测验量表有韦克斯勒智力测验量表和______智力测验量表。
下图是某学生设计的制取乙酸乙酯的实验装置图,并采取了以下主要实验操作:①在甲试管中依次加入适量浓硫酸、乙醇和冰醋酸;②小心均匀加热3~5分钟。该学生所设计的装置图及所采取的实验操作中,错误的是()。
最新回复
(
0
)