VB第8章 数据文件.docVIP

第8章 数据文件 一．例题解析 （1）以下能判断是否到达文件尾的函数是 。 A)BOF B)LOC C)LOF D)EOF 【答案】D 【解析】EOF函数用于测试文件的结束状态。对于顺序文件，如果己到文件末尾，则EOF函数返回True，否则返回False；对于随机文件，如果最后执行的Get语句未能读到一个完整的记录，则返回True。 （2）设有语句“Open c:\test.dat For Output As #1”，则下列叙述中错误的是 。 A)该语句打开C盘根目录下一个已存在的文件test.dat B)该语句在C盘根目录下建立一个名为test.dat的文件 C)该语句建立的文件的文件号为1 D)执行语句后，就可通过Print #语句向文件test.dat中写入信息 【答案】A 【解析】Open语句具有两种功能，即打开和建立文件。当从输出（Output）方式打开的文件不存在时，则建立相应的文件。 （3）执行语句Open Tel.dat For Random As #1 Len=50后，对文件Tel.dat中的数据能够执行的操作是 。 A)只能写，不能读 B)只能读，不能写 C)既可以读，也可以写 D)不能读，也不能写 【答案】C 【解析】使用Random方式打开的文件称为随机文件，所谓随机的概念即文件打开后既可以读又可以写。 （4）按文件的存取方式，可以分为 。 A) 顺序文件和随机文件 B) 文本文件和二进制文件 C) 程序文件和数据文件 D) 输入文件和输出文件 【答案】A 【解析】文件可以从多种角度加以分类，按文件的内容可分为程序文件和数据文件；按文件的编码可分为文本文件和二进制文件；按文件的存取方式可以分为顺序文件和随机文件；按数据的流向可以分为输入文件和输出文件。 二．练习题 1．单项选择 1）在当前窗体有一个文本框，名称为Text1，文本框的MultiLine（多行）属性设置为True，在D:盘的根目录存在数据文件goods.dat，数据文件的内容是： HIF 003 12 16 ATC 005 15 18 若运行程序，要在文本框中按数据文件的格式多行显示数据内容，正确的程序代码是 。 A)Private Sub Form_Click() Open d:\goods.dat For Input As #1 Do Until EOF(1) Line Input #1, lines Text1.Text = lines + vbCrLf Loop Close #1 End Sub B) Private Sub Form_Click() Open d:\goods.dat For Input As #1 Do Until EOF(1) Line Input #1, lines Text1.Text = Text1.Text + lines + vbCrLf Loop Close #1 End Sub C) Private Sub Form_Click() Open d:\goods.dat For Input As #1 Do Until EOF(1) Line Input #1, lines Text1.Text = lines Loop Close #1 End Sub D) Private Sub Form_Click() Open d:\goods.dat For Input As #1 Do Until EOF(1) Line Input #1, lines Text1.Text = Text1.Text + lines Loop Close #1 End Sub 2） 有如下程序 Private Sub Form_Click() Open d:\goods.dat For Input As #1 Do Until EOF(1) Line Input #1, lines Loop Close #1 Print lines End Sub 数据文件goods.dat的内容是 HIF 003 12 16 ATC 005 15 18 运行程序后，单击窗体，输出结果是 。 A) 18 B) ATC 005 15 18 C) 16 D) 空 3）有如下程序