2014全国计算机二级VB上机试题及答案：综合应用题3

　三、综合应用题

　　在名为 Form1 的窗体上建立一个名为 Txt1 的文本框（其 MultiLine 属性为 True， ScrollBars 属性为 2）和两个名称分别为 Cmd1 和 Cmd2 的命令按钮（其标题分别为“读取” 和“保存”），如图 56-5 所示。

　　要求程序运行后，如果单击“读取”按钮，则读入 dr1.dat 文件中的 100 个整数，放 入一个数组中（数组下界为 1），同时在文本框 Txt1 中显示出来；如果单击“保存”按钮，则计算其中前 50 个数之和，并把求和结果在文本框 Txt1 中显示出来，同时把结果存入考 生文件夹中的文件 dw2.dat 中。

　　在考生的文件夹下有标准模块 model.bas，其中的 writedata 过程可以把结果存入指定的文件，考生可以把该模块文件添加到自己的工程中，直接调用此过程。

　　注意：文件必须存放在考生文件夹中，窗体文件名为  vbsj5.frm ，工程文件名为vbsj5.vbp，计算结果存入 dw2.dat 文件，否则没有成绩。

　三、综合应用题 

　　【审题分析】在读取按钮的单击事件过程中，用 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：按要求将文件保存至考生文件夹中。 

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