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

　　三、综合应用题

　　【审题分析】在读取按钮的单击事件过程中，用 Open 语句以 Input 方式打开数据文件 dr1.dat，通过 For 循环语句(循环变i的初值为 1，终值为 100)将数据文件中的数据用 Input 语句依次读出并赋值给数组元素 a(i)，同时显示在文本框中，每个数据项后接 5 个空格(Space(5))以保持一定间隔。在保存按钮的单击事件过程中，使用 For 循环语句(循环变i 的初值为 1，终值为 50)将数组中前 50 个元素的值累加到变 Sum 中，循环结束后通过调用标准模块中的 writedata 过程(以 Sum 为参数)，将结果写入数据文件 dw2.dat。

　　【操作步骤】

　　步骤 1：新建一个标准 EXE工程。

　　步骤 2：在窗体 Form1 中加入一个文本框和两个命令按钮，并分别设置他们的相关属性，属性及其值见表 56-5。

　　步骤 3：选择【工程】?【添加模块】命令，打开添加模块对话框，将考生文件夹下的model.bas 添加到当前工程中。

　　步骤 4：打开代码编辑窗口输入如下代码：

　　Dim a(1 To 100) As Integer

　　Private Sub Cmd1_Click()

　　Open App.Path & \dr1.dat For Input As #1

　　Txt1.Text =

　　For i = 1 To 100

　　Input #1, a(i)

　　Txt1.Text = Txt1.Text & a(i) & Space(1)

　　Next i

　　Close #1

　　End Sub

　　Private Sub Cmd2_Click()

　　Txt1.Text =

　　s = 0

　　For i = 1 To 50

　　s

　　Next

　　= s + a(i)

　　Txt1.Text = s

　　writedata dw2.dat, s

　　End Sub

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

　　【考试误区】本题主要事件过程代码要求考生自己设计，因此理清程序运行流程是关键。

　　编辑推荐：

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

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

　　2014年计算机等级考试时间