（C）文件中按每条记录的关键数据项的从大到小的顺序

（D）记录按进入的先后顺序存放的，读出也是按原先写入的先后顺序读出 5.随机文件是因为________。

（A）文件中的内容是通过随机数产生的 （B）文件中的记录号是通过随机数产生的

（C）可对文件中的记录根据记录号随机地读/写 （D）文件的每条记录的长度是随机的 6.文件号最大可取的值为________。

（A）255 （B）511 （C）512 （D）256 7.KILL语句在VB语言中的功能是________。

（A）清内存 （B）清病毒 （C）删除磁盘上的文件 （D）清屏幕 8.Print # 1,STAR1 $中的Print是________。

（A）文件的写语句 （B）在窗体上显示的方法 （C）子程序 （D）以上均不是

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

（A）记录类型 （B）数组 （C）字符串类型 （D）变体类型

10.要从磁盘上读入一个文件名为＂c: \\ t1.txt＂的顺序文件，下列________正确。 （A）F =＂c: \\ t1.txt＂

Open F For Input As # 1 （B）F =＂c: \\ t1.txt＂

Open ＂F＂For Input As # 2

（C）Open＂c: \\ t1.txt＂For Output As # 1 （D）Open c: \\ t1.txt For Input As # 2

11.要从磁盘上新建一个文件名为” c: \\ t1.txt ”的顺序文件，下列________正确。 （A）F =＂c: \\ t1.txt＂

Open F For Append As # 2 （B）F =＂c: \\ t1.txt＂

Open＂F＂For Output As # 2 （C）Open c: \\ t1.txt For Output As # 2 （D）Open＂c: \\ t1.txt＂For Output As # 2

12.全局记录类型定义语句应出现在________。

（A）窗体模块 （B）标准模块

（C）窗体模块、标准模块都可以 （D）窗体模块、标准模块均不可以

13.要建立一个学生成绩的随机文件，如下定义了学生的记录类型，由学生号、姓名、三门课程成绩（百分制）组成，程序段________正确。

（A）Type stud （B）Type stud

no As Integer no As Integer

name As String name As String * 10 mark(1 To 3)As Single mark()As Single End Type End Type （C）Type stud （D）Type stud

- 72 -

no As Integer no As Integer

name As String * 10 name As String * 10 mark(1 To 3)As Single mark(1 To 3)As String End Type End Type

14.为了使用上述定义的记录类型，对一个学生的各数据项通过赋值语句获得，其值分别为9801、”李平”、78、88、96，下列________程序段正确。

（A）Dim S As stud （B）Dim S As stud stud.no = 9801 S.no = 9801

stud.name =＂李平＂ S.name =＂李平＂ stud.mark = 78,88,96 S.mark = 78,88,96 （C）Dim S As stud （D）Dim S As stud s.no = 9801 stud.no = 9801

s.name = ＂李平＂ stud.name = ＂李平＂ s.mark = 78,88,96 stud.mark = 78,88,96 s.mark(1) = 78 stud.mark(1) = 78 s.mark(2) = 88 stud.mark(2) = 88 s.mark(3) = 96 stud.mark(3) = 96

15.对已定义好的学生记录类型，要在内存存放10个学生的学习情况，如下数组声明： Dim s10(1 to 10) As Stud

要表示第3个学生的第3门课程和该生的姓名，________正确。

（A） s10(3).mark(3), s10(3).Name （B） s3.mark(3),s3.Name

（C） s10(3).mark,s10(3).Name （D） With s10(3) .mark .Name End With

16.要建立一个学生成绩的随机文件，文件名为＂stud.dat＂，该文件就由以上第14题赋了值的一条记录组成，下列程序段________正确。 （A）Open ＂stud.dat＂For Random As # 1 Put # 1,1 , stud Close # 1

（B）Open ＂stud.dat＂For Random As # 1 Len = len(s) Put # 1,1 , s Close # 1

（C）Open ＂stud.dat＂For Output As # 1 Put # 1,1 , s Close # 1

（D）Open ＂stud.dat＂For Random As # 1 Put # 1 s Close # 1

17. 若以读的方式打开顺序文件“d:\\file1.dat”,则正确的语句是________。

(A) Open “d:\\file.dat” For Output As #1 (B) Open “d:\\file.dat” For Input As #1

(C) Open “d:\\file.dat” For Binary As #1 (D) Open “d:\\file.dat” For Random As #1

- 73 -

18. 判断顺序文件中的数据是否读完，应使用________函数。 (A) LOF (B) LOC (C) EOF (D) FreeFile

19. 若要从1号的随机文件中读取数据，使用的语句为________。 (A) Print #1,r (B) Write #1,r (C) Put #1,r (D) Get #1,r 20. 改变驱动器列表框的Drive属性将引发________事件。 (A) Load (B) Click (C) Pattern change (D) Change 21. 目录列表框和文件列表框都有________属性。 (A) List (B) Value (C) Path (D) Pattern

22. 文件列表框FileListBox用于设置或返回文件类型的属性是________。 (A) Drive (B) Path (C) Pattern (D) FileTitle 23. 下列以读方式打开顺序文件的模式是________。 (A) Output (B) Input (C) Random (D) Binary

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

________。

(A) Get文件号,记录号,变量名 (B) Get文件号,变量名,记录号 (C) Put文件号,变量名,记录号 (D) Put文件号,记录号,变量名 25.设有语句Open\

则以下错误的叙述是________。

(A)该语句打开C:盘根目录下一个己存在的文件Test.Dat (B)该语句在C:盘根目录下建立一个名为Test.Dat (C)该语句建立的文件号为1

(D)执行该语句后,就可以通过Print 语句向文件Test.Dat中写入信息 26．设置或返回当前要操作的驱动器使用的属性为________。

(A) Value (B) List (C) pattern (D) Drive 27.下列属性中,目录列表框和文件列表框都有的属性为________。

(A) List (B) Path (C) Value (D) Pattern 28．在程序中,如果执行Close命令,则其作用是________。

(A)关闭当前正在使用的一个文件 (B)关闭第一个打开文件

(C)关闭最近一次打开的文件 (D)关闭所有已经打开的文件 二. 填空题

1. 顺序文件的建立。建立文件名为＂c:\\stud1.txt＂的顺序文件，内容来自文本框，每按Enter

键写入一条记录，然后清除文本框的内容，直到文本框内输入“END”字符串。 Private Sub Form_Load( ) ________ End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If ________ Then Close # 1 End Else

________

Text1. SelText = ＂＂

- 74 -

End If End If End Sub

2. 将C盘根目录下的一个文本文件old.dat复制到新文件new.dat中，并利用文件操作语句

将old.dat文件从磁盘上删除。 Private Sub Command1_Click( ) Dim str1 $

Open＂c: \\ old.dat＂________ As # 1 Open＂c: \\ new.dat＂________ Do While ________ ________ Print # 2,str1 Loop ________ ________ End Sub

3. 文本文件合并。将文本文件＂ttxt＂合并到＂t1.txt＂文件中 Private Sub Command1_Click ( ) Dim s $

Open＂t1.txt＂________ Open＂ttxt＂________ Do While Not EOF(2) Line Input # 2 , s Print # 1 , s Loop

Close # 1,# 2 End Sub

4. 随机文件的修改。对已建立的有若干条记录的文件名为＂c: \\ stud.dat＂的随机文件，记

录类型见本章选择题中第13题正确的结构。要读出记录号为5的那条记录，显示在窗体上，然后将其第2门课程的成绩加5分，再写入原记录的位置，再读出，显示修改成功与否。

Private Sub Command1_Click( ) Dim s As stud,________

Open ＂c: \\ stud.dat＂For Random As # 1 Len = len(s) ________

Print s.no,name,s.mark(1) ,s.mark(2),s.mark(3) ________ Put # 1,5,s ________

Print d.no,d.name,d.mark(1) ,d.mark(2) ,d.mark(3) Close # 1 End Sub

5. 顺序文件的修改。磁盘文本文件＂c:\\my\\zg.dat＂存放了职工的工资和职称情况，每条记

录由工号工资职称组成，之间用逗号分隔。现对有职称的职工加工资，规定＂教授＂或＂

- 75 -