2012年计算机考试二级VB考点及习题（6）
|
§7、文件管理控件 文件处理 顺序文件和随机文件的打开(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.顺序、记录、字符 例如：将文件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 相关资料 |
