第11章文件 答案
- 格式：doc
- 大小：71.00 KB
- 文档页数：8
一、判断题
1．在Visual Basic中文件列表框的FileName属性返回或设置一个选中的文件全名（包含路径）字符串。
2．在顺序文件中增加记录，实际上是在文件的末尾附加记录，方法是先找到文件最后一个记录号，然后把要增加的记录写在它的后面。
3．驱动器列表框、目录列表框是下拉列表框。
4．目录列表框的Path属性，只能用程序代码设置，不能通过属性窗口设置。
5．Open语句中的For字句缺省，则默认打开的文件是随机文件。
6．用Write＃语句向文本文件输出时，VB自动为同一行上的不同数据间加逗号作为间隔符。
7．用OUTPUT模式打开文件，如果指定文件和路径不存在，则会自动创建指定文件及路径。
8．若某文件已存在，用OUTPUT方式打开该文件，等同于用APPEND方式打开该文件。
9．在Open语句中用Input方式所打开的文件必须已经存在，否则会出现运行错误。
10．文件列表框与盘驱动器列表框、目录列表框一样，都能响应Change事件。
二、选择题
1．设定文件列表框中所显示的文件类型，应修改该控件的 属性。
A．Pattern B．Path C．FileName D．Name
2． 函数可以用来获取未打开文件的长度。
A．Len B．FileLen C．LOF D．EOF
3．下列 方法或函数可以调用外部的可执行文件。
A．Show B．Shell C．Input D．Open
4．若目录列表框控件Dir1的Path属性当前值为“C：\”，双击该列表框的表项“Pwin2000”后，控件Dir1的Path属性当前值为 。
A．“c:\Pwin2000” B．“c:\\Pwin2000\”
C．“c:\Pwin2000\” D．“c:Pwin2000\”
5．Kill语句在Visual Basic中的功能是 。
A．杀病毒 B．清屏幕 C．清内存 D．删除文件
6．要在C盘根目录下建立名为File.dat的顺序文件，应先使用 语句。
A．Open "File1.dat" For Input As #1
B．Open "File1.dat" For Output As #1
C．Open "C:\File1.dat" For Input As #1
D．Open "C:\File1.dat" For Output As #1
7．执行语句“Write #1，123；-34.56，"input"；time”后，相应文件内被写入 。
A．123，-34.56，input，2005-06-08
B．"123"，"-34.56"，"input"，"2005-06-08"
C．123，-34.56，"input"，#2005-06-08#
D．123 -34.56 input2005-06-08
8．下面的叙述不正确的是： 。
A．Write＃语句和Print#语句建立的顺序文件格式完全一样。
B．Write＃语句和Print#语句都能实现向文件中写入数据。
C．用Write＃语句输出数据，各数据项之间自动插入逗号，并且将字符串加上双引号。
D．若使用Print#语句输出数据，各数据项之间没有逗号，并且字符串不加双引号。 9．改变驱动器列表框的Drive属性将激活 事件。
A．Change B．KeyDown C．Click D．MouseDown
10． 方式打开的文件只能读不能写。
A．append B．random C．output D．input
11．下列Write语句中，错误的语句是 。
A．Write #1, x ; y B．Write #1
C．Write #1; x ; y D．Write #1, “x”, “y”
12．设a＝10，b＝20，c＝30。要使这三个数可写入顺序文件中，且写到不同的打印区，应该使用 。
A．Print #1, a, b, c B．Print #1, a; b; c
C．Write #1; a, b, c D．Write #1, a; b; c
13．设有语句：
Open "c:\test.dat" For Output As #1
则以下错误的叙述是： 。
A．该语句打开C盘根目录下一个已存在的文件test.dat
B．该语句在C盘根目录下建立一个名为test.dat的文件
C．该语句建立的文件的文件号为1
D．执行该语句后，就可以通过Print#语句向文件test.dat中写入信息
14．从打开的顺序文件中读取数据，错误的语句是 。
A．x=Input (#1, 1) B．x=Input(1, #1)
C．Line Input #1, x D．Input #1, x
15．向随机文件写入数据，使用的语句是 。
A．Input #文件号, 变量名 B．Write #文件号，表达式列表
C．Put＃文件号, 变量名 D．Get＃文件号，变量名
16．设已打开3个文件，文件号为1、2、3。要关闭所有文件，正确的是 。
A．Close 1,2,3,4,5 B．Close #1; #2; #3; #4; #5
C．Close #1-#5 D．Close
三、程序阅读题
1．写出程序运行时单击Form后，该文件中的最终结果。
Private Sub Form_click()
Open "d:\shunxu.txt" For Output As #1
Print #1, "print:"
Print #1, "A"; "B"; "C",
Print #1, "1234567,abcdefg"
Write #1, "write:"
Write #1, "A"; "B"; "C",
Write #1, "1234567,abcdefg"
Close # 1
End Sub
2．在窗体的通用声明区声明两个模块级变量a和y。
Dim a As Integer, y As Integer
Private Sub Form_Load()
Open "c:\a1.dat" For Output As #1
Close #1
End Sub
Private Sub Command1_Click()
Open "c:\a1.dat" For Append As #1 Call aa(5)
y = y + a
Print #1, "y="; y, "a="; a
Close #1
End Sub
Sub aa(i As Integer)
x = 1
Do Until x > i
a = a + x
x = x + 3
Loop
End Sub
写出程序运行时连续三次单击Command1后，a1.dat文件的最终结果。
3．写出程序运行时单击窗体后，a1.dat文件的结果和窗体上的输出结果。
Private Sub Form_Click()
Dim xx(6) As Integer, k As Integer
Open "c:\a1.dat" For Output As #1
For i = 1 To 6
j = i * i: Print #1, j;
Next i
Close #1
Open "c:\a1.dat" For Input As #2
k = 0
Do While Not EOF(2)
k = k + 1: Input #2, xx(k)
Loop
Close #2
For i = k To k / 2 Step -1: Form1.Print xx(i);: Next i
End Sub
4．写出程序运行时单击窗体后，abc.txt文件中的结果。
Private Sub Form_Click()
Open "d:\abc.txt" For Output As #2
Dim m, n As Integer
For n = 1 To 20
If n Mod 5 = 0 Then
Print #2, n
m = m + n
End If
Next n
Print #2, "m="; m
Close #2
End Sub
四、程序填空题
1．程序说明：从指定的任意一个驱动器中的任何一个文件夹下查找文本文件（不含汉字），并将选定的文件的完整路径显示在文本框Text1中，文件的内容显示在文本框Text2中。
Private Sub Form_Load()
File1. (1) = "*.txt"
Text1.Text = "": Text2.Text = ""
End Sub
Private Sub Dir1_Change()
(2)
End Sub
Private Sub Drive1_Change()
(3)
End Sub Private Sub File1_Click()
If Right(File1.Path, 1) <> "\" Then
Text1.Text = File1.Path + "\" + File1.FileName
Else
Text1.Text = File1.Path + File1.FileName
End If
(4)
Do While Not EOF(1)
(5)
Text2.Text = Text2.Text + s$ + Chr(13) + Chr(10)
Loop
Close #1
End Sub
2．程序说明：从已存在与磁盘的顺序文件Data1中读取数据，计算出数据的平方值。将该数据及其平方值存入新的顺序文件Data2中。
Private Sub Form_Click()
Dim x As Single, y As Single
Open "data1.dat" For Input As #1
Open "data2.dat" For Output As #2
