首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生30个0~1000的整数,放入一个数组中,然后输出其中的最小值。程序运行后,单击命令按钮(名称为Command1,标题为“输出最小值”),即可求出其最小值
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生30个0~1000的整数,放入一个数组中,然后输出其中的最小值。程序运行后,单击命令按钮(名称为Command1,标题为“输出最小值”),即可求出其最小值
admin
2020-07-22
81
问题
(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_Click() Dim arrN(30) As Integer Dim Min As Integer Randomize For i = 1 To 30 ’arrN(i) = Int(Rnd * ?) Next i ’? = arrN(1) For i = 2 To 30 ’If ? Then Min = arrN(i) End If Next i Print Min End Sub 程序结束 参考答案 第1个?处填入:1000 第2个?处填入:Min 第3个?处填入:arrN(i) < Min或Min > arrN(i) 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Sub SaveData() Open App.Path & "\" & "outtxt.txt" For Output As #1 Print #1, Text1.Text Close #1 End Sub Function Fun() End Function Private Sub Command1_Click() d = Fun() Text1.Text = d SaveData End Sub 程序结束 参考答案 Function Fun() Dim s As Integer, i As Integer For i = 0 To 1000 If i Mod 7 <> 0 Then s = s + 1 End If Next i Fun = s End Function 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/FNHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
结构化程序设计中,下面对goto语句使用描述正确的是
在设窗体上有一个通用对话框控件CD1,希望在执行下面程序时,打开如图所示的文件对话框:PrivateSubCommand1_Click() CD1.DialogTitle="打开文件" CD1.InitDir="C:" CD1.Filte
下列程序的执行结果是()。PriVateSubForm_Activate()Dimscore(3)AsInteger,totalAsIntegerDimaa_scoreAsV撕antscore(1)=50:score(2
设R是一个2元关系,有3个元组,S是一个3元关系,有3个元组。如T=R×S,则T的元组的个数为()。
在窗体上有一个名称为Check1的复选框数组(含4个复选框),还有一个名称为Text1的文本框,初始内容为空。程序运行时,单击任何复选框,则把所有选中的复选框后面的文字罗列在文本框中(如图1所示)。下面能实现此功能的事件过程是()。
窗体上有一个名称为Combol的组合框,要求在其编辑区输入文本并按回车键后,编辑区中的文本被添加到列表中。下面能实现这一功能的是()。
现有程序如下:OptionBase1PrivateSubForm_Click() Dimx(5,6)AsInteger,y(5)AsInteger Fori=1To5 Forj=1To6 x(i
在窗体上有一个名称为CDl的通用对话框和一个名称为Commandl的命令按钮。要求单击命令按钮时,打开一个保存文件的通用对话框。该窗口的标题为“保存”,缺省文件名为“ABC”,在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是()。
以下控件中,能显示滚动条的是
设:a=12,b=5,c=7,表达式x=(a\c+aModb)+Int(13/5)的值是()。
随机试题
下列选项中,用户可以使用的合法的IP地址是_________。
用于发汗、治疗无汗时合谷常配
施工资料预验收由监理单位组织,建设单位、施工单位项目负责人及档案员参加,城建档案机构负责审验。()
与活塞式压缩机相比,透平式压缩机的显著特点为()。
下列关于融资融券业务所涉及证券权益处理的说法中,正确的是()。Ⅰ.证券公司行使对证券发行人的权利,应当事先征求客户的意见,并按照其意见办理Ⅱ.证券登记结算机构受证券发行人委托以现金形式分派投资收益的,应当将分派的资金划人证券公司信用交易证券交
某企业出售—台设备(不考虑相关税费),原价160000元,已提折旧45000元,出售设备时发生各种清理费用3000元,出售设备所得价款113000元。该设备出售净收益为()元。
试述幼小衔接工作中应注意的问题。
运动员水平越高,竞技越激烈,心理素质对比赛结果的影响相对就越大。
法律面前人人平等观念是在近代资产阶级革命过程中首先提出的。而社会主义制度为实现法律面前人人平等的理想奠定了现实的经济、政治和文化基础,法律面前人人平等观念不仅被社会主义法治所承认,而且得到充分体现,成为社会主义法治的基本原则。法律面前人人平等包括
Weareaserioussellerandlookingforwardto(build)______longandreliablebusinessrelationswiththoseseriousbuyers.
最新回复
(
0
)