第九章测试1.
设有如下程序代码：
Private Sub Command1_Click()
Dim Sname As String, SNo As String, Score As Single
Open "D:Score.txt" __________ As #1
SNo = InputBox("输入学号：")
Sname = InputBox("输入姓名：")
Score = Val(InputBox("输入成绩："))
Print #1, SNo, Sname, Score
Close #1
End Sub
以上程序的功能是，向文件D:Score.txt中写入一名同学的学号、姓名和成绩，当文件不存在时，则新建该文件；当文件存在时，则覆盖原文件的内容。在横线处应填入的内容是________。
A:For Random
B:For Output C:For Input
D:For OverWrite
答案:B
2.
Visual Basic的窗体文件（.frm文件）是一个文本文件，它________。
A:可以当作顺序文件读取 B:不能作为Visual Basic的数据文件来访问 C:可以当作随机文件读取 D:既可当作顺序文件读取也可当作随机文件读取
3.
在一个有若干个整数的顺序文件中查找一个数（这个数从文本框中输入），找到后在标签Label1中显示该数是文件中第几个数；如果没找到，则显示文件中没有该数的信息
Private Sub Command1_Click()
Dim x As Integer, n As Integer
a = Val(Text1.Text)
Open "file1.txt" For Input As #1
Do While Not EOF(1)
Input __________________
n = n + 1
If x = a Then
Label1.Caption = a & "是文件中第" & n & "个数"
Close #1
Exit Sub
End If
Loop
Close #1
Label1.Caption = "文件中没有" & a
End Sub
要使上面的程序代码实现上述功能，在横线处应填写的是________。
A:#1, x B:1, n
C:#1, a D:1, a
4.
下列关于随机文件的描述中，错误的是________。
A:每条记录的长度必须相同 B:只能随机存取 C:每条记录都有一个记录号
D:数据存取灵活方便，容易修改
5.
在窗体Form1上画一个名称为Command1的命令按钮，编写如下程序代码：
Private Type stu
sn As String * 20
class As String * 20
End Type
Private Sub Command1_Click()
Dim s As stu
Open "c:allstu.dat" For Random As #1 Len = Len(s)
s.sn = "John"
s.class = "Computer 2013"
Put #1, , s
Close #1
End Sub
则以下叙述中正确的是________。
A:定义记录类型stu的Type语句可以移到事件过程Command1_Click中
B:语句'Put #1, , s'中没有指明记录号，因此系统总是把记录写到文件的头部
C:文件c:allstu.dat中的每条记录是等长的
D:如果文件c:allstu.dat不存在，则Open语句执行中出现'文件未找到'的错误
6.
Print #语句的作用是________。
A:向窗体上输出数据
B:从顺序文件中读入数据 C:向顺序文件中写数据
D:向随机文件中写数据
7.
以下关于文件的叙述中，错误的是________。
A:随机文件一般占用空间比较小
B:顺序文件中各记录的长度是固定的
C:读取顺序文件的记录时，只能从头至尾逐记录进行
D:顺序文件有多种打开文件的方式
8.
以下不属于Visual Basic数据文件的是________。
A:二进制文件
B:数据库文件
C:顺序文件 D:随机文件 9.
下列关于顺序文件的描述中，正确的是________。
A:文件的组织与数据写入的顺序无关
B:每条记录的长度是固定的
C:不能像随机文件一样灵活地存取数据
D:主要的优点是占空间少，且容易实现记录的增减操作
10.
下列关于数据文件的描述中，错误的是________。
A:VB数据文件不包括VB的窗体文件 B:VB应用程序不能把一个二维表格中的数据存入文件 C:VB应用程序在读写数据文件之前，必须用Open语句打开该文件 D:VB应用程序可以用随机方式读写数据文件 11.
下面关于文件叙述中错误的是________。
A:VB数据文件需要先打开，再进行处理
B:顺序文件的记录是顺序存放的，可以按记录号直接访问某个记录
C:随机文件每个记录的长度是固定的
D:不论是顺序文件还是随机文件，都是数据文件 12.
以下关于文件的叙述中，错误的是________。
A:顺序文件中的记录是一个接一个地顺序存放 B:随机文件中记录的长度是随机的 C:文件被打开后，自动生成一个文件指针 D:EOF函数用来测试是否到达文件尾 13.
以下关于文件的叙述中，正确的是________。
A:随机文件记录中的各个字段具有相同的长度
B:随机文件通常比顺序文件占用的空间小 C:随机文件的记录是定长的
D:用Append方式打开的文件，既可以进行读操作，也可以进行写操作
14.
关于随机文件，以下叙述中错误的是________。
A:随机文件中，每个记录的长度相等 B:随机文件记录中，每个字段的长度是固定的 C:随机文件的每个记录都有一个记录号 D:使用随机文件能节约空间 15.
在Open语句中可以用Output和Append两种方式打开顺序文件，其主要区别是________。
A:Output在文件最后一个记录后面添加数据，而Append总是从文件的第一个记录开始写 B:Output总是从文件的第一个记录开始写，而Append在文件最后一个记录后面添加数据
C:Output和Append都可以在文件的最后一个记录后面添加数据
D:Output和Append都只能从文件的第一个记录开始写数据
16.
窗体上有一个名称为Command1的命令按钮。要求编写程序，把文件f1.txt的内容写到文件f2.txt中，然后将f1.txt删除。命令按钮的单击事件过程如下：
Private Sub Command1_Click()
Open "c:f1.txt" For Input As #1
Open "c:f2.txt" For Output As #2
Do While Not EOF(2)
Line Input #1, str1
Print #2, str1
Loop
Close
Kill "c:f1.txt"
End Sub
该程序运行时发生错误，应该进行的修改是________ 。
A:打开f1.txt应该使用Output 方式，打开f2.txt 应该使用Input 方式 B:Close语句改为Close All C:Not EOF(2)应该改为Not EOF(1) D:Line Input应改为Get 17.
设在工程文件中有一个标准模块，其中定义了如下记录类型：
Type Books
Name As String * 10
TelNum As String * 20
End Type
在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是________。
A:Private Sub Command1_Click()Dim B As BooksOpen 'Person.txt' For Output As #1B.Name＝InputBox('输入姓名')B.TelNum＝InputBox('输入电话号码')Write #1， B.Name， B.TelNumClose #1End Sub
B:Private Sub Command1_Click()Dim B As BooksOpen 'Person.txt' For Output As #1B.Name＝InputBox('输入姓名')B.TelNum＝InputBox('输入电话号码')Write #1， BClose #1End Sub
C:Private Sub Command1_Click()Dim B As BooksOpen 'Person.txt' For Input As #1B.Name＝InputBox('输入姓名')B.TelNum＝InputBox('输入电话号码')Print #1， B.Name， B.TelNumClose #1End Sub
D:Private Sub Command1_Click()Open 'Person.txt' For Input As #1Name＝InputBox('输入姓名')TelNum＝InputBox('输入电话号码')Print #1， Name， TelNumClose #1End Sub
18.
窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据：
Private Sub Command1_Click()
Dim s1 As String， s2 As String
Open "c：d4.dat" For Append As #3
Line Input #3， s1
Line Input #3， s2
Text1.Text＝s1＋s2
Close
End Sub
该程序运行时有错误，应该进行的修改是________。
A:将Open语句中的For Append改为For Input B:将Close语句改为Close #3 C:将两条Line Input语句合并为Line Input #3， s1，s2 D:将Line Input改为Line 19.
窗体上有一个名称为Command1的命令按钮。其单击事件过程如下：
Private Sub Command1_Click()
Open "c:f1.txt" For Input As #1
Open "c:f2.txt" For Output As #2
Do While Not EOF(1)
Line Input #1, str1
Print #2, str1
Loop
Close
End Sub
以下关于上述程序的叙述中，错误的是________。
A:EOF函数可以判断是否已到文件的末尾 B:程序的功能是将f2.txt文件的内容复制到f1.txt中
C:Close能够把打开的两个文件都关闭 D:f1.txt和f2.txt均是顺序文件 20.
为了保存数据，需打开顺序文件"E:UserData.txt"，以下正确的命令是________。
A:Open 'E:UserData.txt' For Input As #2
B:Open E:UserData.txt For Input As #1
C:Open 'E:UserData.txt' For Output As #2 D:Open E:UserData.txt For Output As #1 21.
用Open语句打开文件时，如果省略"For 方式"，则该文件的存取方式是________。
A:顺序存取方式
B:随机存取方式
C:二进制存取方式 D:不确定 22.
如果希望向一个顺序文件写入数据，但又要保留文件中的原有内容，应采取的文件打开方式是________。
A:Append B:Input C:Random D:Output 23.
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim s1 As String, s2 As String
Open "D:data.txt" For Input As #1
Seek #1, 5
s1 = Input$(2, #1)
s2 = Input$(3, #1)
Print Seek(1)
Close #1
End Sub
假设有磁盘文件D:data.txt，且文件足够长，当程序运行时，单击Command1，在窗体上输出的结果是________。
A:10
B:5 C:9
D:11
24.
某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中：
Private Sub Command1_Click()
Open "out.txt" For Output As #2
Print "Text1"
Close #2
End Sub
调试时发现没有达到目的，为实现上述目的，应做的修改是________。
A:把Print 'Text1' 改为Write 'Text1' B:把Print 'Text1' 改为Print #2， Text1
C:把所有 #2 改为 #1
D:把Print 'Text1' 改为 Print Text1 25.
某人编写了向随机文件中写一条记录的程序，代码如下：
Type RType
Name As String * 10
Tel As String * 20
End Type
Private Sub Command1_Click()
Dim p As RType
p.Name＝InputBox("姓名")
p.Tel＝InputBox("电话号")
Open "Books.dat" For Random As #1
Put #1， ， p
Close #1
End Sub
该程序运行时有错误，修改的方法是________。
A:Put语句应该写为Put #1，p.Name ，p.Tel B:在类型定义'Type RType'之前加上'Private'
C:应把Open语句中的For Random 改为 For Output
D:Dim p As RType必须置于窗体模块的声明部分 26.
有如下过程：
Sub proc()
Dim ch As String
Open "file1.txt" For Input As #1
Open "file1_bak.txt" For Output As #2
Do While Not EOF(1)
ch = Input$(1, #1)
Print #2, ch;
Loop
Close #1, #2
End Sub
这一过程的功能是________。
A:把文件file1.txt复制为file1_bak.txt文件 B:把文件file1_bak.txt复制为file1.txt文件 C:读入文件file1.txt的内容在窗体上显示 D:读入文件file1_bak.txt的内容在窗体上显示 27.
窗体的单击事件过程如下：
Private Sub Form_Click()
n = FreeFile
Open "e:f1.txt" For Input As n
Do While Not EOF(n)
Line Input #n, str1
Print str1
Loop
Close
End Sub
对于以上程序，如下叙述中错误的是________。
A:n = FreeFile的作用是自动获取文件号，并赋值给n B:Not EOF(n)的含义是没有到达n所对应文件的末尾
C:Open打开一个随机文件
D:Line Input语句从#n对应的文件中读数据，并赋值给str1
28.
为了返回或设置磁盘驱动器的名称，应使用的驱动器列表框的属性是________。
A:ChDrive B:Drive C:ListIndex D:List 29.
以下说法中正确的是________。
A:能获取列表框List1中最后一个列表项内容的表达式是List1.List(ListCount-1)
B:当一个复选框被选中时，它的Value属性的值是1
C:当在名称为Drive1的驱动器列表框中选取不同的驱动器时，系统将执行事件过程Drive1_Click
D:Shape控件可以将同一个窗体上的多个单选按钮分成多个组
30.
窗体上有一个名称为Command1的命令按钮，一个名称为List1的列表框。命令按钮的单击事件过程如下：
Private Sub Command1_Click()
Open "c:f1.txt" For Input As #1
Do While Not EOF(1)
Input #1, str1
List1.AddItem str1
Loop
Close
End Sub
对于上述程序，以下叙述中错误的是________。
A:以输入方式打开随机文件f1.txt B:运行程序后，列表框中的列表项都是f1.txt中的记录 C:Close的作用是关闭已经打开的数据文件 D:单击命令按钮后，把f1.txt中的所有内容添加到列表框中
