在考生文件夹下有一个工程文件sjt5.vbp,请先装入该工程文件,然后完成以下操作:在名称为Form1的窗体上画三个命令按钮,其名称分别为C1、C2和C3,标题分别为“读入数据”、“计算”和“存盘”(如图1-173所示)。程序运行后,如果单击“读入数据”按

admin2018-10-29  49

问题 在考生文件夹下有一个工程文件sjt5.vbp,请先装入该工程文件,然后完成以下操作:在名称为Form1的窗体上画三个命令按钮,其名称分别为C1、C2和C3,标题分别为“读入数据”、“计算”和“存盘”(如图1-173所示)。程序运行后,如果单击“读入数据”按钮,则利用题目中提供的 ReadData1、ReadData2过程读入datain1.txt和datain2.txt文件中的各20个整数,分别放入两个数组Arr1和 Arr2中;如果单击“计算”按钮,则把两个数组中对应下标的元素相加,其结果放入第三个数组中(即第一个数组的第n个元素与第二个数组的第n 个元素相加,其结果作为第三个数组的第n 个元素。这里的n 为 1,2,…,20),最后计算第三个数组各元素之和,并把所求得的和在窗体上显示出来;如果单击“存盘”按钮,则调用题目中给出的WriteDate过程将计算结果存入考生文件夹下的dataout.txt 文件中。

    注意:请仔细阅读已有程序。考生不得修改窗体文件中已经存在的程序,必须把求得的结果单击“存盘”按钮存入考生文件夹下的dataout.txt文件中,否则没有成绩。最后把修改后的文件以原来的文件名存盘。

选项

答案【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt5.vbp,在窗体中如表2-78画出控件,并设置其属性。 [*] 步骤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) = 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://jikaoti.com/ti/6Dm0FFFM
0

相关试题推荐
最新回复(0)