在考生文件夹下有一个工程文件vbsj5.vbp,请先装入该工程文件,然后完成以下操作:在名称为Forml的窗体上画两个命令按钮,其名称分别为cmdRead和cmdCal,标题分别为“读入数据”和“汁算保存”(如图2.42所示)。程序运行后,如果单击“跌入数

admin2020-07-22  39

问题 在考生文件夹下有一个工程文件vbsj5.vbp,请先装入该工程文件,然后完成以下操作:在名称为Forml的窗体上画两个命令按钮,其名称分别为cmdRead和cmdCal,标题分别为“读入数据”和“汁算保存”(如图2.42所示)。程序运行后,如果单击“跌入数据”按钮,则调用题目所提供的RcadData1和ReadData2过程读入in51.txt和in52.txt文件中的各20个整数,分别放入Aπ1和Aπ2两个数组中,如果单击“计算保存”按钮,则把两个数组中对应下标的元素相减,其结果放入第三个数组中(即:第一个数组的第n个元素减去第二个数组的第n个元素,其结果作为第三个数组的第n个元素。这里的n为1、2、…、20),最后计算第三个数组各元素之和,把所求得的和在窗体上显示出来;并调用题目中给出的WriteData过程将所求得的和存入考生文件夹下的0ut5.dat文件中。

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

选项

答案【操作步骤】 步骤1:打开考生文件夹中的本题工程文件vbsj5.vbp,按表3-26在窗体中画出控件并设置其相关属性。 [*] 步骤2:在代码编辑窗口,分别编写“读入数据”按钮和“计算保存”按钮的单击事件过程。 参考代码: Private Sub cmdRead_C1ick() ReadDatal ReadData2 End Sub Private Sub cmdCal CiiCk() Dim Arr3(20)As Integer Dim Sum As Integer Sum=0 For i=1 To 20 Arr3(i)=Arrl(i)一Arr2(i) Sum=Sum+Arr3(i) Next Print Sum WriteData”OHt5.dat”,Sum End Sub 步骤3:按键运行程序,先单击“读入数据”按钮,然后单击“计算保存”按钮。 步骤4:按要求将文件保存至考生文件央中。 【特别提示】为在多个过程中使用同一个变量,应将其声明为窗体变量。

解析
转载请注明原文地址:https://jikaoti.com/ti/IfS0FFFM
0

最新回复(0)