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

admin2018-09-19  25

问题 在考生文件下有一个工程文件sjt5.vbp,按照要求完成以下操作:
    在名称为Form1的窗体上添加两个命令按钮,其名称分别为C1和C2。抓题分别为“读人数据”和“计算”(如图所示)。程序运行后,如果单击“读入数据”按钮,则调用题目所提供的ReadDatal和ReadDala2过程读入datain1.txt和datain2.txt文件中的各20个整数,分别放入Arr1和Arr2两个数组中;如果单击“计算”按钮,则把两个数组中对应下标的元素相减,其结果放人第三个数组中(第1个数组的第n个元素减去第2个数组的第n个元素,其结果作为第3个数组的第n个元素。这里的n为1、2…20),最后计算第3个数组各元素之和,把所求得的和在窗体上显示出来;并调用题目中给出的WriteDala过程将所求得的和存入考生文件夹下的dataout.txt文件中。
注意:考生不得修改窗体文件中已经存在的程序,且必须执行一次.最后将修改后的文件以原来的文件夹存盘。

选项

答案步骤1:打开本题工程文件,按照题目要求建立命令按钮控件并设置命令按钮的相应属性,程序中用到的控件及属性见表3.23。 [*] 步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。 参考答案 Private Sub Cl_Click() Call ReadDatal’调用过程ReadData1 Call ReadData2’调用过程ReadData2 End Sub Private Sub C2_Click() Dim Arr3(1 To 20)As Inteqer Dim sum As Inteqer 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:调试并运行程序,关闭程序后按题目要求存盘。

解析 本题源程序已给出读文件中的数据和向文件中写数据的三个过程,只需适时调用它们,即在“读入数据”和保存过程中调用;要把数组Arr1和Arr2中对应下标的元素相减并把结果存人第3个数组中,需利用For循环逐一取出Arr1和Arr2对应元素;由于数组Arr1、Arr2及存储第3个数组和的变量要跨过程使用,因此需定义成窗体级变量;调用过程writeData时需传递两个参数,分别是存人数据的文件名和存储第3个数组和的变量;语句OptionBase 1用于限定数组下标的下限,默认为1。
转载请注明原文地址:https://kaotiyun.com/show/UmFp777K
0

最新回复(0)