在考生文件夹下有一个工程文件sjt5．vbp，按照要求完成以下操作：在名称为Form1的窗体上添加两个命令按钮，其名称分别为C1和C2，标题分别为“读入数据”和“计算”(如图所示)。程序运行后，如果单击“读入数据”按钮，则调用题目所提供的Read

admin2019-05-14 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 C1iCk() Call ReadData1’调用过程ReadData1 Call ReadData2’调用过程ReadData2 End Sub Private Sub C2 C1ick() Dim Arr3(1 To 20)As Integer Dim sum As Integer sum＝0 For i＝1 To 20’将Arr1中对应于Arr2中的教相减，结果存入Arr3中 Arr3(i)＝Arrl(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/hTUp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类