首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,请先装入该工程文件,然后完成以下操作:在名称为Form1的窗体上画三个命令按钮,其名称分别为C1、C2和C3,标题分别为“读入数据”、“计算”和“存盘”(如图 1-107所示)。程序运行后,如果单击“读入数据”
在考生文件夹下有一个工程文件sjt5.vbp,请先装入该工程文件,然后完成以下操作:在名称为Form1的窗体上画三个命令按钮,其名称分别为C1、C2和C3,标题分别为“读入数据”、“计算”和“存盘”(如图 1-107所示)。程序运行后,如果单击“读入数据”
admin
2019-05-14
43
问题
在考生文件夹下有一个工程文件sjt5.vbp,请先装入该工程文件,然后完成以下操作:在名称为Form1的窗体上画三个命令按钮,其名称分别为C1、C2和C3,标题分别为“读入数据”、“计算”和“存盘”(如图 1-107所示)。程序运行后,如果单击“读入数据”按钮,则调用题目已提供的ReadData1 和 ReadData2过程读入datain1.txt 和 datain2.txt 文件中的各20个整数,分别放入Arr1和 Arr2两个数组中;如果单击“计算”按钮,则把两个数组中对应下标的元素相整除,其结果放入第三个数组中(即第一个数组的第n 个元素整除第二个数组的第n 个元素,其结果作为第三个数组的第n 个元素。这里的n 为 1,2,…,20),然后计算第三个数组各元素之和,并把所求得的和在窗体上显示出来:如果单击“存盘”按钮,则调用题目中给出的WriteData 过程将所求得的和存入考生文件夹下的dataout.txt 文件中。
注意:考生不得修改窗体文件中已经存在的程序,必须把求得的结果单击“存盘”按钮存入考生文件夹下的dataout.txt 文件中,否则没有成绩。最后把修改后的文件以原来的文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt5.vbp,在窗体中如表2-36画出控件,并设置其属性。 [*] 步骤2:在代码编辑窗口编写以下事件过程。 参考代码: Dim Sum As Integer Private Sub C1_Click() ReadData1 ReadData2 End Sub Private Sub C2_Click() Dim Arr3(20) As Integer Sum = 0 For i = 1 To 20 Arr3(i) = Int(Arr1(i) / Arr2(i)) Sum = Sum + Arr3(i) Next i Print "Sum = "; Sum End Sub Private Sub C3_Click() WriteData "Dataout.txt", Sum End Sub 步骤3:按要求将文件保存至考生文件夹中。 步骤4:按<F5>键运行程序,先单击“读入数据”按钮,然后单击“计算”按钮,最后单击“存盘”按钮。
解析
转载请注明原文地址:https://kaotiyun.com/show/GUUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面的程序执行时,将把当前目录下的顺序文件smtext1.txt的内容读入内存,并在文本框Text1显显示出来。在横线处应填写()。PrivateSubCommandl—Click()DiminDataAsString
下面()不是VB的文件系统控件。
下列程序的功能是调用字体对话框来设置文本框中的字体,单击Commandl按钮弹出对话框,进行相应的字体、字号等的设置,然后单击“确定”按钮退出列话框,则文本框中将发生哪些变化()。PrivateSubCommandl—Click0
在窗体上有两个文本框:Text1和Text2,然后编写如下事件过程:PrivateSubForm_Load()ShowText1.Text=“”:Text2.Text=“”:Yext2.SetFocusEnd
在窗体上画1个命令按钮,名称为Commandl,然后编写如下程序:DimFlagAsBooleanPrivateSubCommandl—Click()DimintNumAsIntegerintNum=I
若将变量TestDate声明为Date类型,则下列为变量TestDate赋值的语句中正确的是()。
函数过程F1的功能是:如果参数a为奇数,则返回值为1,否则返回值为0。以下能正确实现所述功能的代码的是()。
关于MDI窗体下列说法正确的是()。
在属性窗口中把窗体的KeyPreview属性设置为True,然后编写如下两个事件过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(
设在工程中有一个标准模块,并定义了如下类型:TypeStutypeinoAsIntegerstmameAsString*20strsexAsString*2smarkAsSingle
随机试题
Inthethrillingprogressiveyearsoftheearly20thcentury,fewthingsweremoreattractivethanthepromiseofscientifickno
产妇,28岁,妊娠高血压综合征,剖宫产术后静脉滴注硫酸镁。若发生硫酸镁中毒,护士最先观察到
《中华人民共和国公路法》规定,在中华人民共和国境内从事公路的()均适用本法。
下面的行为中当事人应当承担缔约过失责任的是( )。
某政府机关在城市繁华地段建一幢办公楼。在施工招标文件的附件中要求投标人具有垫资能力,并写明:投标人承诺垫资每增加500万元的,评标增加1分。某施工总承包单位中标后,因设计发生重大变化,需要重新办理审批手续。为了不影响按期开工,建设单位要求施工总承包单位按照
下列属于车船税征税范围的有()。
每个人在受到有效刺激的一刹那,往往会__________地表现出瞬间的不被思维控制的真实反应,这就是微反应。填入划横线部分最恰当的一项是:
2016年1—7月份,全国房地产开发投资55361亿元,同比名义增长5.3%,增速比1—6月份回落0.8个百分点。其中,住宅投资36981亿元,增长4.5%,增速回落1.1个百分点。1—7月份,东部地区房地产开发投资31201亿元,同比增长3.4
设X的概率密度为求:(1)FY(y);(2)Cov(X,Y).
TheChineseScienceandTechnologyPapersBeingIncludedinSCIA.Studythechartscarefullyandwriteanessayof160-200
最新回复
(
0
)