综合操作题

　　5在窗体上建立三个菜单(名称分别为Read、Cale和Save，标题分别为“读人数据”、“计算并输出”和“存盘”)，然后再添加一个文本框，名称为Text1，MuhiLine属性设置为True，ScrollBars属性设置为2(如图所示)。程序运行后，如果执行“读人数据”命令，则读入考生文件夹下datain1.txt文件中的100个整数，放人一个数组中，数组的下界为1;如果单击“计算并输出”按钮，则把该数组中下标为偶数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来;如果单击“存盘”按钮，则把所求得的和存入考牛文件夹下的dataout.txt文件中。

　　在考生文件夹下有一个工程文件sjt5.vbp，窗体文件中的ReadData过程可以把datainl.txt文件中的100个整数读入Arr数组中;而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout.txt)。

　　注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍保存为sit5.vbp，窗体文件名仍保存为sjt5.frm。

　　参考解析：

　　【考点分析】本题考点有：文本框的Name、MultiLine、SerollBars和Text属性，文件操作，菜单编辑器的使用(名称、标题、内缩符号)，Art()函数以及Space()函数。

　　【解题思路】根据题意在“读人数据”命令的Click事件过程中，通过调用ReadData过程将数据从datainl.txt文件读入到数组Arr(窗体变量)中;在“计算并输出”命令的Click事件过程中，在For循环语句(循环变量i的初值为2，终值为100，步长为2)中依次将数组Art中下标为偶数的元素显示在文本框中，并将其值累加到变量sum;在“存盘”命令的Click事件过程中，通过调用WriteData过程将sum的值写入数据文件dataout.txt中。

　　【操作步骤】

　　步骤1：打开本题工程文件，利用菜单设计器，按表中的设置建立菜单项，在窗体Form1中绘制一个文本框，其相关属性及其值见表3.19和表3.20。

　　步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。

　　参考答案：

　　´需要考生编写的内容

　　Dim Sum As integer

　　考生编写程序结束

　　´需要考生编写的内容

　　Private Sub Calc_Click()

　　Text1.Text=""

　　For i=2 To 100 Step2’从2开始循环，以2为步长的下标都是偶数

　　Text1.Text;=Text1.Text&Art(i)&

　　Space(5)

　　Sum=Sum+Arr(i)。对下标为偶数的值求和

　　Next i

　　Print sum

　　End Sub

　　Private Sub Read_Click()

　　ReadData'调用ReadData子过程

　　End Sub

　　Private Sub Save_Click()´调用Save_Click函数

　　WriteData"dataout.txt"，sum

　　End Sub

　　´考生编写程序结束

　　步骤3：调试并运行程序，关闭程序后按题目要求存盘。

　　【易错提示】调用WriteData过程时需传递参数dataout.txt和sum，变量sum应为窗体变量。

　　相关推荐：

　　2015年计算机二级《MSOffice》全真模拟试题汇总

　　2015计算机二级《C语言程序设计》无纸化操作题汇总