VB实验指导习题 - 图文 下载本文

(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 -