二、选择题
1．设定文件列表框中所显示的文件类型，应修改该控件的 属性。 A、Pattern B、Path C、FileName D、Name 2． 函数用来获取已打开文件的长度。 A、Len A、Show
B、FileLen C、LOF D、LOE B、Shell
C、Input D、Open B、FileCopy \D、FileCopy \ \B、Name \D、Name d:\\gc.dat As gc.txt B、234 -34.56 \D、\ hello01-08-03\B、\D、234 -34.56 hello 2001-08-03
3．下列 方法或函数可以调用外部的可执行文件。 4．下列文件复制操作的语句中，格式正确的是 。 A、FileCopy d:\\gc.dat c:\\a.txt C、FileCopy \
5．下列文件操作的语句中，格式正确的是 。 A、Name \ C、Name \
6．执行语句“Print #1, 234; -34.56, \”后，相应的文件内被写入 。 A、234,-34.56,hello,01-08-03 C、234 -34.56 hello01-08-03 A、234,-34.56,hello,2001-08-03 C、234,-34.56,\
7．执行语句“Write #1, 234; -34.56, \”后，相应文件内被写入 。
8．执行语句Input #1,k,s,a,d1后，再执行语句Print k;s;a;d1 (k、s、a、d1分别是整型、Single、字符串、Date类型，文件中相应字符为“234,-34.56,\”)，输出结果为 。
A、234,-34.56,hello,2001-08-03 C、234,-34.56,\ A、常规文件 A、单击某表项
B、234 -34.56 hello2001-08-03 D、234 -34.56 hello#2001-08-03#
9．函数GetAttr(\值为2，表示该文件是 。
B、只读文件 C、隐藏文件 D、系统文件
B、双击某表项 C、右击某表项 D、单击某表项再按回车键 B、random C、output
D、input
10． 可以改变目录列表框的Path属性。 11． 方式打开的文件只能读不能写。 A、append 有 。
A、指定打开方式
B、指定文件号 C、指定文件名 D、指定打开类型
12．语句“open c:\\dat.txt for output”用于打开一个顺序文件，该语句的一个重要错误是没
三、填空题
1． 语句可以改变文件操作的当前目录。
2．检测未打开的文件总的字节数，可以用 函数。
3．选择了一个新的目录路径后，为了及时更新文件列表框的显示，可选用目录列表框的 事件来驱动。
4．文件的当前读写位置是否到达文件末尾，应用 函数。
5．读文件的 语句从文件的当前位置起至换行符前的所有字符读入到字符串变量。
四、程序阅读题
程序1. 写出程序运行时连续4次单击Command1后，a1.dat文件的最终结果。 Dim a As Integer, y As Integer, x As Integer Private Sub Command1_Click()
Open \ Call aa(5)
y = y + a: Print #1, \ Close #1 End Sub
Private Sub Form_Load()
Open \End Sub
Sub aa(i As Integer) x = 1
Do Until x>i
a = a + x: x = x + 5 Loop End Sub
程序2. 写出程序运行时单击窗体后，文件a1.dat中的结果。 Private Sub Form_Click()
Dim i As Integer,f1 As Integer,f2 As Integer,f3 As Integer Open \ f1 = 3: f2 = 4
Print #1, \ For i = 3 To 4 f3 = f1 + f2
Print #1, \ f1 = f2: f2 = f3 Next i Close #1 End Sub
程序3. 写出程序运行时单击窗体后，a1.dat文件的结果和窗体上的输出结果。 Private Sub Form_Click()
Dim a(1 to 6) As Integer, k As Integer, i As Integer, j As Integer Open \
For i = 1 To 6: j = i * i: Print #1, j; : Next i
Close #1
Open \ k = 0
Do While Not EOF(1)
k = k + 1: Input #1,a(k) Loop Close #1
For i = k To 1 Step - 1: Form1.Print a(i); : Next i End Sub
程序4. 写出程序运行时单击窗体后，a1.dat文件的结果和窗体上的内容。 Private Sub Form_Click() Dim n As byte,i As byte
Open \ n = 6
For i = 1 To n: Print #1,i*2; : Next i Close #1
Open \ For i = 1 To n Input #1, a
If i Mod 5 = 0 Then Print a*2 Next i Close #1 End Sub
程序5. 写出程序运行时单击窗体后，a1.dat文件的结果。 Private Sub Form_Click()
Open \ Call a(5): Close #1 End Sub
Private Sub a(ByVal k) Dim i As Integer If k <> 0 Then a(k - 1)
For i = 1 To k : Print #1,k; : Next i Print #1, End If End Sub
程序6. 写出点击3次窗体后，文件a1.txt中的内容。
Private Sub form_click() Static k As Integer Dim j As Integer k = k + 1
Open \
For j = 1 To k: Print #1, j; : Next j Print #1, Close #1 End Sub
五、程序填空题
1．【程序说明】右击窗体则打开Windows自带的计算器“C:\\windows\\calc.exe”；单击“退出”按钮时将右击窗体的次数写入磁盘文件。
（1）
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single)
If Button = 2 Then n = n + 1: Shell （2） End Sub
Private Sub Command1_Click() Open \（3） Print #1,n: Close #1 （4） End Sub
2．【程序说明】文件c:\\a1.dat中存放若干个学生信息的记录（行），按Command1按钮后，查找文件中姓名与输入姓名相同的记录，找到则删除该记录。
Private Sub Command1_Click() Dim bs As String,cs As String Open \ Open \（1） bs = InputBox(\输入学生姓名\ Do While Not Eof(1) Line Input #1, cs
if InStr(cs, Trim(bs)) = （2） Then print #2,cs Loop
Close #1: Close #2 Kill \
Name （3） End Sub
3．【程序说明】本程序求3～100之间的所有素数（质数）并统计个数；同时将这些素数从小到大依次写入顺序文件e:\\dataout.txt；素数的个数显示在窗体Form1上。
Private Sub Command1_Click()
Dim coun As Integer, flag As Boolean Dim t1 As Integer, t2 As Integer （1） coun = 0
For t1 = 3 To 100 flag = True
For t2 = 2 To Int(Sqr(t1))
If （2） then flag = False Next t2
（3） coun = coun+1 Write #1, t1 End If Next t1
（4） Close #1 End Sub
六、程序设计题
1．编制一个用于删除选定文件的应用程序，界面设计如图10-10所示。
图10-10 程序设计题1运行时的窗体显示
2．编写程序，输入若干个学生的姓名、出生年月、两门统考课程（外语、计算机），存入磁盘文件d:\\student.dat（可以用记事本打开，观察运行结果的正确）。
3．编写程序，将磁盘文件d:\\student.dat中若干个学生的姓名、出生年月、两门统考课程（外