2012年计算机等级考试二级VB考点及习题（6）

会计考友 · 发表于 2012-7-31 22:10:12

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

		自动登录	找回密码
密码			立即注册

[Visual Basic] 2012年计算机等级考试二级VB考点及习题（6）