2. 计算机
  3. 在考生文件夹下有一个工程文件sjt5．vbp，请先装入该工程文件，然后完成以下操作： 在名称为Forml的窗体上画两个命令按钮，其名称分别为C1和C2，标题分别为“读入数据”和“计算”(如图1-133所示)。程序运行后，如果单击“读入数据”按钮：则调用题目

在考生文件夹下有一个工程文件sjt5．vbp，请先装入该工程文件，然后完成以下操作： 在名称为Forml的窗体上画两个命令按钮，其名称分别为C1和C2，标题分别为“读入数据”和“计算”(如图1-133所示)。程序运行后，如果单击“读入数据”按钮：则调用题目

admin2010-09-02  50
问题 在考生文件夹下有一个工程文件sjt5．vbp，请先装入该工程文件，然后完成以下操作：
在名称为Forml的窗体上画两个命令按钮，其名称分别为C1和C2，标题分别为“读入数据”和“计算”(如图1-133所示)。程序运行后，如果单击“读入数据”按钮：则调用题目所提供的ReadDatal和ReadData2过程读入datailll．txt和datation2．txt文件中的各20个整数，分别放入Artl和Arr2两个数组中：如果单击“计算”按钮，则把两个数组中对应下标的元素相减，其结果放入第三个数组中(即第一个数组的第n个元素减去第二个数组的第n个元素，其结果作为第三个数组的第n个元素。这里的n为1，2，…，20)，最后计算第三个数组各元素之和，把所求得的和在窗体上显示出来；并调用题目中给出的WriteData过程将所求得的和存入考生文件夹下的DataOut．txt文件中。
注意：考生不得修改窗体文件中已经存在的程序，且必须执行此程序一次，最后把修改后的文件以原来的文件名存盘。
选项
答案 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt5．vbp，在窗体中如表2-74画出控件，并设置其属性。 [*] 步骤2：在代码编辑窗口编写以下事件过程。 参考代码： Dim Sum As Integer Private Sub C1_Click() ReadDatal ReadData2 End Sub PriVate Sub C2_Click() Dim Arr3(20) As Integer Dim Sum As Integer Sum=0 For i=l To 20 Arr3(i) =Arrl(i) -Arr2(i) Sum=Sum+Arr3(i) Next i Print"Sum="；Sum WriteData"dataOUt．txt"， Sum End Sub 步骤3：按要求将文件保存至考生文件夹中。 步骤4：按键运行程序，先单击“读入数据”按钮， 然后单击“计算”按钮。
解析     本题原程序已提供用于读数的RcadDatal、ReadData2和用于写盘的WritcData几个自定义过程，只需编写“读入数据”和“计算”命令按钮的单击事件过程，并在事件过程中调用ReadDatal、RcadData2和WriteData自定义过程。
    程序设计思路：在“读入数据”按钮的Click事件过程中，通过调用RcadDatal和ReadData2过程将数据从文件datainl．txt和datain2．txt中读入到数组Arrl和Art2(窗体变量)中；在“计算”按钮的Click事件过程中，利用For循环语句(循环变量i的初值为1，终值为20)依次将数组Arrl和Art2同下标的元素相减放入第三个数组中并累加到变量Sum，循环结束后将Sum的值显示在窗体上，同时通过调用WriteData过程将Sum的值写入数据文件dataout．txt。
    注意：调用WriteData过程时需传递参数dataout．txt和Sum，变量Sum应声明为窗体变量。
转载请注明原文地址:https://kaotiyun.com/show/lUmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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