2014年全国计算机二级VB上机考试试题五

　　三、综合应用题

　　【审题分析】本题源程序已提供 ReadData 和 WriteData 两个自定义过程，只需编写"读数"、"计算"和"保存"命令的单击事件过程，并在事件过程中调用 ReadData 和 WriteData自定义过程。程序设计思路：在"读数"菜单项的 Click 事件过程中，通过调用 ReadData过程将数据从 dw1.dat 文件读入到数组 Arr(窗体变 )中;在"计算"菜单项的 Click 事件过程中，利用 For 循环语句(循环变 i 的初值为 1，终值为 100，步长为 2)依次将数组 Arr 中下标为奇数的元素的值显示在文本框中，并将其值累加到变Sum，循环结束将 结果显示在窗体上。在"保存"菜单项的 Click 事件过程中，通过调用 WriteData 过程将Sum 的值写入数据文件 dw1.dat。

　　注意：调用 WriteData 过程时需传递参数 dw1.dat 和 Sum，变 Sum 应声明为窗体变 。

　　【操作步骤】

　　步骤 1：打开考生文件下的本题工程文件 vbsj5.vbp，利用菜单设计器，按表 54-3 中的设置建立菜单项。

　　表 54-3

　　步骤 2：在窗体 Form1 中画一个文本框，其相关属性及其值见表 54-5。

　　表 54-5

　　步骤 3：在代码编辑窗口，分别编写"读数"、"计算"和"保存"按钮的 Click 事件过程。

　　参考代码：

　　Private Sub mnuCal_Click()

　　For i = 1 To 100 Step 2

　　Txt1.Text = Txt1.Text & Arr(i) & Space(5)

　　sum = sum + Arr(i)

　　Next

　　Print sum

　　End Sub

　　Private Sub mnuRead_Click()

　　ReadData

　　End Sub

　　Private Sub mnuSave_Click()

　　WriteData "dw291.dat", sum

　　End Sub

　　步骤 4：按要求将文件保存至考生文件夹中。

　　编辑推荐：

　　2014年上半年计算机等级考试报名时间及入口专题

　　各地2014年计算机等级考试费用汇总

　　2014年计算机等级考试时间