首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,按照要求完成以下操作: 在名称为Form1的窗体上添加两个命令按钮,其名称分别为c1和c2,标题分别为“读入数据”和“计算”(如图所示)。程序运行后,如果单击“读入数据”按钮,则调用题目所提供的ReadData
在考生文件夹下有一个工程文件sjt5.vbp,按照要求完成以下操作: 在名称为Form1的窗体上添加两个命令按钮,其名称分别为c1和c2,标题分别为“读入数据”和“计算”(如图所示)。程序运行后,如果单击“读入数据”按钮,则调用题目所提供的ReadData
admin
2016-06-23
23
问题
在考生文件夹下有一个工程文件sjt5.vbp,按照要求完成以下操作:
在名称为Form1的窗体上添加两个命令按钮,其名称分别为c1和c2,标题分别为“读入数据”和“计算”(如图所示)。程序运行后,如果单击“读入数据”按钮,则调用题目所提供的ReadData1和ReadData2过程读入datain1.txt和datain2.txt文件中的各20个整数,分别放入Arr1和Arr2两个数组中;如果单击“计算”按钮,则把两个数组中对应下标的元素相减,其结果放入第三个数组中(第1个数组的第n个元素减去第2个数组的第n个元素,其结果作为第3个数组的第n个元素。这里的n为1、2…20),最后计算第3个数组各元素之和,把所求得的和在窗体上显示出来;并调用题目中给出的writeData过程将所求得的和存入考生文件夹下的dataout.txt文件中。
注意:考生不得修改窗体文件中已经存在的程序,且必须执行一次,最后将修改后的文件以原来的文件名存盘。
选项
答案
[操作步骤] 步骤1:打开本题工程文件,按照题目要求建立命令按钮控件并设置命令按钮的相应属性,程序中用到的控件及属性见表3.23。 [*] 步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。 参考代码 Private Sub C1 Click() Call ReadData1’调用过程ReadData1 Call ReadData2’调用过程ReadData2 End Sub Private Sub C2 Click() Dim Arr3(1 To 20)As Integer Dim sum As Integer Sum=0 For i=1 To 20’将Arr1中对应于Arr2中的数相减,结果存入Arr3中 Arr3(i)=Arr1(i)-Arr2(i) sum=sum+Arr3(i)’将Arr3中的元素累加 Next i Print"sum=";sum’在窗体打印sum WriteData"dataout.txt",sum End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/MSLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:OptionBase1PrivateSubCommand1_Click()Dima s=0:j=1 a=Array(1,2,
窗体是一种对象,由属性定义其外观,由______定义其行为,由事件定义其与用户的交互。
引用列表框(List1)最后一个数据项应使用
要将窗体Form1标题设为“学习VB”,以下能正确实现该功能的语句为
下列事件过程运行后输出结果是PrivateSubCommand1_Click() PrintFormats(123,456,"###,##%")EndSub
如果希望定时器控件每秒产生10个事件,则要将Interval属性的值设为()。
下列程序的运行结果是()。s=0:t=0:u=0Forx=1To3Fory=1ToxForz=yTo3 s=s+1Nextzt=t+1Nextyu=u+1
同时按下______和“方向箭头”键也可以移动控件的位置。
在下列关于二叉树的叙述中,正确的一项是
随机试题
关于基因启动子的叙述,正确的是
不属于马尾神经受压的症状为
低渗性缺水的常见病因是代谢性酸中毒最易发生于
行政机关公开的信息应当准确,是下列哪一项行政法原则的要求?
土地权属争议解决的方式主要包括()。
【背景资料】某施工单位中标A省某机场航站楼标识引导系统工程。该引导系统由一系列标识牌组成,部分标识牌有方向要求,且有部分标识牌样式、尺寸接近。施工单位组建了现场项目部,项目经理为一级注册建造师甲。本次施工招标以工程量清单方式计价,其中某
行政处罚法定原则主要体现为()。
统筹城乡发展是国家发展战略的核心,是提高综合国力的关键。()
两同学需托运行李。托运收费标准为10公斤以下6元/公斤,超出10公斤部分每公斤收费标准略低一些。已知甲乙两人托运费分别为109.5元、78元,甲的行李比乙重了50%。那么,超出10公斤部分每公斤收费标准比10公斤以内的低了多少元?()
Thestudyshowedthatmostofthegirls______.Whatpercentageofthegirlsconsideredthemselvesoverweight?
最新回复
(
0
)