二、综合应用题

　　在考生文件夹下有一个工程文件sjt5.vbp，按照要求完成以下操作：

　　在名称为Forml的窗体上添加两个命令按钮，其名称分别为Cl和c2，标题分别为“读人数据”和“计算”(如图所示)。程序运行后，如果单击“读人数据”按钮，则调用题目所提供的ReadDatal和ReadData2过程读入datainl.txt和datain2.txt文件中的各20个整数，分别放入Arrl和Arr2两个数组中;如果单击“计算”按钮，则把两个数组中对应下标的元素相减，其结果放入第三个数组中(第1个数组的第n个元素减去第2个数组的第n个元素，其结果作为第3个数组的第n个元素。这里的n为1、2…20)，最后计算第3个数组各元素之和，把所求得的和在窗体上显示出来;并调用题目中给出的WriteData过程将所求得的和存人考生文件夹下的dataout.txt文件中。

　　注意：考生不得修改窗体文件中已经存在的程序，且必须执行一次，最后将修改后的文件以原来的文件名存盘。

　　参考答案

　　【考点分析】本题考点有：命令按钮的Name和Caption属性、OptionBase数组下标、Call语句、Print方法、For循环语句以及文件操作。

　　【解题思路】本题源程序已给出读文件中的数据和向文件中写数据的三个过程，只需适时调用它们，即在“读人数据”和保存过程中调用;要把数组Arrl和Arr2中对应下标的元素相减并把结果存入第3个数组中，需利用For循环逐一取出Arrl和Arr2对应元素;由于数组Arrl、Arr2及存储第3个数组和的变量要跨过程使用，因此需定义成窗体级变量;调用过程WnteData时需传递两个参数，分别是存入数据的文件名和存储第3个数组和的变量;语句0ptionBase1用于限定数组下标的下限，默认为1。

　　【操作步骤】

　　步骤1：打开本题工程文件，按照题目要求建立命令按钮控件并设置命令按钮的相应属性，程序中用到的控件及属性见表3.23。

　　步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。

　　参考答案

　　PrivateSubCl_Click()

　　CallReadDatal´调用过程ReadDatal

　　CallReadData2´调用过程ReadData2

　　EndSub

　　PrivateSubC2_Click()

　　DimArr3(1To20)AsInteger

　　DimsumAsInteger

　　sum=0

　　Fori=1T020´将Arrl中对应于Arr2中的数

　　相减，结果存入Arr3中

　　Arr3(i)=Arrl(i)-Arr2(i)

　　sum=sum+Arr3(i)将Arr3中的元素累加

　　Nexti

　　Print”sum=";sum´在窗体打印sum

　　WriteData"dataout.txt"，sum

　　EndSub

　　步骤3：调试并运行程序，关闭程序后按题目要求存盘。

长按二维码关注即可获得等考资料

2017等考成绩查询时间

2017等考各科通关技巧

2017各科最新预测试卷

2017等考各科真题答案

微信搜索"考试吧"获取更多考试资讯、备考资料

　　相关推荐：

　　2017年全国计算机等级考试考前必做试题及答案汇总

　　各地2017年3月计算机等考成绩查询时间|免费查分提醒

　　计算机等级考试成绩评定流程及标准|合格证书样本及证书说明

　　历年真题汇总|考试吧特别策划：2017年计算机等级考试报考指南