文件处理 顺序文件和随机文件的打开(open)语句，EOF函数，读写语句。

do while not eof(1) do until eof(1)

print #1, write #1,

input #1,a,b,c line input #1,s input(#1,100)

get #1,a put #1,”af”

打开方式：

顺序文件Open "文件路径+文件名(包括文件后缀)" For Output As #1-511

Open "文件路径+文件名(包括文件后缀)" For Append As #1-511

Open "文件路径+文件名(包括文件后缀)"For Input As #1-511

随机文件：Open "文件路径+文件名(包括文件后缀)"For Random As #1-511

二进制文件：Open "文件路径+文件名(包括文件后缀)"For Binary As #1-511

Open语句打开文件的注意：

1.如果以Output、Append、Random、Binary模式打开一个不存在的文件时，VB自动创建一个相应文件;

2.在Input Random Binary模式下，可以用不同的文件号打开同一文件，但Output Append方式不可以;

3.所有当前使用的文件号必须是唯一的;

4.如果以Output模式打开一个已存在的文件，即使没有进行写操作原来数据也将被覆盖。

Close语句注意：(Reset)

1.直接使用 Close语句(缺省文件号)，则所有用Open语句打开的活动文件都被关闭;

2.当程序结束时，所有打开的文件自动被关闭。

Lock和Unlock语句注意：

1.对于二进制文件，Lock和Unlock的是字节范围;

2.对于随机文件，Lock和Unlock的是记录范围;

3.对于顺序文件，Lock和Unlock的是整个文件，即使指明范围也不起作用;

4.缺省情况下Lock和Unlock的范围是整个文件;

5.Lock和Unlock总是成对使用。

特别注意：在关闭文件或结束程序之前，必须用Unlock语句对先前锁定的文件解锁，否则会产生难以预料的错误。

试题

1.要对顺序文件进行写操作，下列打开文件语句中正确的是( )。

Open "file1.txt" for output as #1

Open "file1.txt" for input as #1

Open "file1.txt" for Random as #1

Open "file1.txt" for binary as #1

2.在VB中文件访问的类型有( )。

A.顺序、随机、二进制 B.顺序、随机、字符

A. 顺序、十六进制、随机 D.顺序、记录、字符

3.将文件Data1中的无序数据和Data2中的有序数据插入到Data3中，要求：Data3中的数据必须也是排好序。请填写空白处以实现该题功能。

Private Sub Form_Click()

Dim a() As Integer, b() As Integer

Dim k As Integer, i As Integer

Open "e:data1.txt" For Input As #2

Open "e:data2.txt" For Input As #3

Do While Not EOF(2)

k = k + 1

ReDim Preserve a(k)

Input #2, a(k)

Loop

_______k=0______________________

Do While Not EOF(3)

k = k + 1

ReDim Preserve b(k)

Input #3, b(k)

Loop

Call insert(a, b)

Open "e:data3.txt" For Output As #4

_k=ubound(b)____________________________

For i = 1 To k

Print #4, b(i)

Next i

Close

End Sub

Private Sub insert(a() As Integer, b() As Integer)

Dim m As Integer, i As Integer

Dim n As Integer, j As Integer

m = UBound(a): n = UBound(b)

_redim preserve b(m+n)_______________________

i = 0

Do While i < m

i = i + 1

j = n

Do While j >= 1 And a(i) < b(j)

If a(i) < b(j) Then

___b(j+1)=b(j)_______________________

j = j - 1

Else

Exit Do

End If

Loop

__b(j+1)=a(i)___________________________

n = n + 1

Loop

End Sub