第九章 文件
第一题：是非题（共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
printform 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:\”
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. 以下程序的功能是：把当前目录下的顺序文件的内容读入内存，并在文本框Text1中显示出来。请填空。10
Private Sub Command1_Click()
Dim inData As String
Text1.Text = ""
Open ".\" 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:\中字符“$”出现的次数。并将统计结果写入到文本文件D:\中。
Private Sub Form_Click()
Dim Inputdata As String, Count As Integer
Open "D:\" For Input As #1
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论