首页 > 安全资讯 >

2011年计算机等级考试二级VB考点及习题(6)

11-09-08

文件管理控件  文件处理 顺序文件和随机文件的打开(open)语句,EOF函数,读写语句。  do while not eof(1) do until eof(1)  print #1, write #1,  input #1,a,b,c line inpu...

 §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.顺序、记录、字符

  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

相关文章
最新文章
热点推荐