2014年计算机二级考试VB专家预测试卷及答案3

　　四、综合应用题

　　文本框显示的内容通过Text属性设置;按钮的标题通过Caption属性设置，单击命令按钮触发Click事

　　件。本题涉及文件的操作，读入顺序文件以顺序的方式打开，用”Input#”语句读取数据。另外需要注意的是，对文件操作结束后，一定要关闭文件。

　　①建立界面并设置控件属性。程序中用到的控件及其属性如下表所示：

　　②打开工埕资源管理器，在其空白处右键添加模块pr09.bas(此文件已在考生文件夹里)，模块代码

　　如下：

　　Option Explicit

　　Sub putdata(ByVal a As Long)

　　Dim sFile As String

　　sFile="\result.txt"

　　()pen App.Path&sFile For Output As#1

　　Print#1，a;

　　Close#1

　　End Sub

　　③打开工程资源管理器，右击窗体，选择查看代码项，在弹出的代码窗口输入代码如下：

　　Dim i(1 To 100)As Integer

　　Private Sub Cmd1 Click()

　　Dim j As Integer

　　j=0

　　Open App.Path&"\in.txt"For Input As#1

　　For j=1 To 100

　　Input#1，i(j)

　　Next j

　　Close#1

　　For j=1 To 100

　　Text1.Text=Text1.Text&i(j)&Space(5)

　　Next j

　　End Sub

　　Private Sub Cmd2 Click()

　　Dim sum As Long

　　Dim j.As Integer

　　sum=0

　　Text1.Text=""

　　For j=1 To 100

　　If i(j)>=400 And i(j)<800 Then

　　sum=sum+i(i)

　　End If

　　Next j

　　Text1.Text=Text 1.Text&sum&Spaca(5)

　　putdata sum

　　End Sub

　　’标准模块代码

　　Option Explicit

　　Sub putdata(ByVal a As Long)

　　Dim sFile As String

　　sFile="\result.txt"

　　Open App.Path&sFiie For Output As#1

　　Print#1，a;

　　Close#1

　　End Sub

　　相关推荐：

　　2014年计算机二级C++考试精选试题及答案汇总

　　考试吧考后首发2014年3月计算机等考真题及答案通知

　　考试吧推荐：2014年3月计算机二级考前冲刺备考专题