计算机二级考试VB2014年试题7_第2页

　文本框显示的内容通过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