VB复习答案_第九章文件

第九章文件

第一题：是非题（共10分，每项1分）

1. 在VB中，可通过函数Shell调用DOS或Windows下的可执行程序。

A.对√

B.错

第二题、单选题（共45分，每项1.5分）

1. 下面关于随机文件的描述，不正确的是______。10

A.每条记录的长度必须相同

B.一个文件中记录号不必惟一√

C.文件的组织结构比顺序文件复杂

D.可通过编程对文件中的某条记录方便地修改

2. 要使用FSO对象模型，必须通过【工程】菜单中的______命令将FSO对象模型引入到当前工程中。7

A.部件

B.工程属性

C.添加属性

D.引用√

3. 下面关于顺序文件的描述，正确的是______。12

A.每条记录的长度必须相同

B.可通过编程对文件中的某条记录方便地修改

C.数据以ASCII码形式存放在文件中，所有可通过文本编辑软件显示√

D.文件的组织结构复杂

4. 在顺序文件中______。11

A.文件中按每条记录的记录号从小到大排序

B.文件中按每条记录的长度从小到大排序

C.文件中按记录的某关键数据项的从小到大的顺序

D.记录是按写入的先后顺序存放的，读出也是按写入的先后顺序读出√

5. 按文件的组织方式分为______。6

A.顺序文件和随机文件√

B.文本文件和二进制文件

C.程序文件和数据文件

D.只读文件和读写文件

6. 在随机文件中______。12

A.文件中的内容是通过随机数产生的

B.文件中的记录号是通过随机数产生的

C.可对文件中的记录根据记录号随机地读写√

D.文件的每条记录的长度是随机的

7. 使用驱动器列表框的______属性可以返回或设置磁盘驱动器的名称。8

A.ChDrive

B.Drive√

C.List

D.ListIndex

8. 下列控件中，不属于文件系统控件的是______。6

A.驱动器列表框

B.文件列表框

C.目录列表框

D.图象列表框√

9. 文件列表框中用于设置或返回所选文件的文件名的属性是______。7

A.FilePath

B.File

C.Path

D.FileName√

10. 为了建立一个随机文件，其中每一条记录有多个不同数据类型的数据项组成，应使用______。9

A.自定义类型√

B.数组

C.字符串类型

D.变体类型

11. 使用目录列表框的______属性可以返回或设置当前工作目录的完整路径。5

A.Drive

B.ListIndex

C.Path√

D.Dir

12. Print #1，STR1$中的Print是______。4

A.顺序文件的写语句√

B.在窗体上显示的方法

C.子程序名

D.打印命令

13. 记录长度最大可取的值是______字节。6

A.32767√

B.32768

C.65535

D.65536

14. 为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为______。6

A.Get 文件号，记录号，变量名

B.Get 文件号，变量名，记录号

C.Put 文件号，变量名，记录号

D.Put 文件号，记录号，变量名√

15. 在下面选项中，不能完成对顺序文件的读操作的是______。2

A.LineInput#语句

B.Input#语句

C.Input（）函数

D.Get#语句√

16. 文件号最大可取的值为______。8

A.255

B.511√

C.512

D.256

17. 改变驱动器列表框的Drive属性值将激活______事件。2

A.Change√

B.Scoll

C.KeyDown

D.KeyUp

18. FSO对象只能访问______文件。2

A.文本文件

B.二进制文件

C.随机文件

D.磁盘文件√

第三题、简单程序（共15分，每项1.5分）

1. 下面的程序运行后，将产生______的结果。6

Private Sub Form_load()

Dim Str As String, Anum As Integer

Open "D:\Myfile.dat" For Output As #1

str1 = "ABCDEFG"

str2 = 12345

Print #1, Str, Anum

Write #1, Str, Anum

Close #1

End Sub

A.建立一个"D:\Myfile.dat"的文本文件

B.建立一个"D:\Myfile.dat"的文本文件，并写入一行数据，还在窗体上显示一行数据

C.建立一个"D:\Myfile.dat"的文本文件，并写入两行数据√

D.打开一个"D:\Myfile.dat"的文本文件，并读出两行数据

2. 下列程序运行后，其结果为______。4

Dim char As Byte

Open “D:\Abc.dat” For Binary As #1

Open “A:\Myfile.dat” For Binary As #2

Do While Not Eof(1)

Get #1, ,char

Put #2, ,char

Loop

Close #1,#2

A. 将A盘上的文件Myfile.dat复制到D盘，文件名改为Abc.dat。

B.将A盘上的文件Myfile.dat复制到D盘

C. 将D盘上的文件Abc.dat复制到A盘

D.将D盘上的文件Abc.dat复制到A盘，文件名改为Myfile.dat√

3. 下列程序运行后，其结果为______。5

Private Sub Form_Click ( )

Filename=“c:\testfile.txt”

Open filename For Output As #1

Print #1,“ABCD我是一个学生”

Close #1

Open filename For Input As #1

MsgBox Input(8,1)

Close #1

End Sub

A.在通用对话框中显示“ABCD我是一个”√

B.在通用对话框中显示“ABCD我是”

C.在窗体中显示“ABCD我是一个”

D.在窗体中显示“ABCD我是”

第二卷主观题

填空题（共30分，每项2分。注意：填两个空的题的时候，要按照从上至下，从左至右的顺序添入答题卡！）

1. 在C盘根目录下建立一个名为Student.dat的顺序文件。15

要求用InputBox函数输入10名学生的学号（StuNo）、姓名（StuName）和性别（StuSex）。Private Sub Form_Load ( )

Open “C:Student.dat” For Output As #1

For I=1 to 10

StuNo=InputBox(“请输入学号”)

StuName= InputBox (“请输入姓名”)

StuSex= InputBox (“请输入性别”)

Print #1 ,StuNo,Stuname,StuSex

Next I

Close #1

End Sub

2. 用FSO模型操作方法将“C:\My Documents”文件夹中的文件（不含子文件夹）复制到“C:\Temp”文件夹。2

Dim fsox As New FileSystemObject

Fsox.CopyFile“C:\My Documents\*.*”，“C:\Temp\”

3. 以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。10

Private Sub Command1_Click()

Dim inData As String

Text1.Text = ""

Open ".\smtext1.txt" For Input As #1

Do While Not Eof(1)

Input #1, inData

Text1.Text = Text1.Text & inData

Loop

End Sub

4. 打开顺序文件Student.dat，读取文件中的全部数据，并将数据显示在窗体上。5

Private Sub Form_Click ( )

Open "C:Student.dat" For Input As #1

Do While Not Eof(1)

Input #1, stuno, stuname, stusex

Print stuno; Tab(10); stuname; Tab(20); stusex

Loop

Close #1

End Sub

5. 编程统计D:\data.txt中字符“$”出现的次数。并将统计结果写入到文本文件D:\Mydir\result.txt中。Private Sub Form_Click()

Dim Inputdata As String, Count As Integer

Open "D:\data.txt" For Input As #1

Do While Not EOF(1)

Inputdata = Input(1, #1)

If Inputdata = “$”then

Count = Count + 1

End if

Loop

Close #1

Open "D:\res.txt" For Output As #1

Print #1,Count

Close #1

End Sub

6. 下面程序的功能是：输入一个字符串，在“d:\f1.dat”文件中查找输入的字符串是否存在，若存在，则输出“找到字符串”，否则输出“没找到字符串”。请将下列程序补充完整。2

Private Sub Form_Load()

a$ = InputBox("请输入要查找的字符串")

Open "d:\f1.dat" For Input As #1

b$ = Input(LOF(1),#1)

y%=0

y = InStr(1, b$, a$)

If y <> 0 Then

Print "找到字符串"; a$

Else

Print "没找到字符串"; a$

End If

End Sub

7. 打开顺序文件Student.dat，读取文件中的全部数据，并将数据显示在窗体上。3

Private Sub Form_Click ( )

Open "C:Student.dat" For Input As #1

Do While Not Eof(1)

Input #1, stuno, stuname, stusex

Print stuno; Tab(10); stuname; Tab(20); stusex

Loop

Close #1

End Sub