全国计算机等级考试VB经典必考资料，知识点总结(5)

Close #文件号

b.写文件格式：

Open App.Path & \文件名(Out.txt)\文件号(#1) Print #文件号,变量 Close #文件号

注意：当写文件以Output方式时，原来的文件内容将被覆盖；当写文件以Append方式时，新的文件内容将被添加到文件尾部；

★ 如果源文件是数值类型，那么读写文件如下所示： a.读文件格式：

一维数组：

Dim a(10) As Integer

Open App.Path & \文件名(In.txt)\文件号(#1) For i=1 To 10

朱锦新

第 13 页

2013-4-21

“全国计算机等级考试”考试要点

Input #文件号,a(i) … Next i

Close #文件号

二维数组：

Dim a(10，5) As Integer

Open App.Path & \文件名(In.txt)\文件号(#1) For i=1 To 10 For j=1 To 5

Input #文件号,a(i,j) … Next j

Next i

Close #文件号

b.写文件格式： 一维数组：

Open App.Path & \文件名(Out.txt)\文件号(#1)

For i=1 To 10

Print #文件号,a(i)

Next i

Close #文件号 二维数组：

Open App.Path & \文件名(Out.txt)\文件号(#1)

For i=1 To 10 For j=1 To 5

Print #文件号,a(i,j)

Next j Next i

Close #文件号

例题：

(1)在考生文件夹下有文件in5.txt，文件中有字符串\。请在Forml的窗体上画一个文本框，名称为Text1，能显示多行；再画一个命令按钮，名称为Cl，标题为“存盘”。编写适当的事件过程，使得在加载窗体时，把in5.txt文件的内容中数字字符显示在文本框里。然后单击“存盘”按钮，把文本框中的内容存到文件out5.txt中。如图所示：

朱锦新 第 14 页 2013-4-21