文件操作1

1 文 件 一、 单选题 1．关于顺序文件的描述，下面正确的是 ________。 A） 每条记录的长度必须相同 B） 可通过编程对文件中的某条记录方便地修改 C） 数据只能以ASCII码形式存放在文件中，所以可通过文本编辑软件显示 D） 文件的组织结构复杂 3．按文件的组织方式，文件分为 ________。 A） 顺序文件和随机文件 B） ASCII文件和二进制文件 C） 程序文件和数据文件 D） 磁盘文件和打印文件 4．顺序文件是因为 ________。 A） 文件中按每条记录的记录号从小到大排序好的 B） 文件中按每条记录的长度从小到大排序好的 C） 文件中按记录的某关键数据项从小到大排序好的 D） 记录按进入的先后顺序存放的，读出也是按原写入的先后顺序读出 6．文件号最大可取的值为 ________。 A） 255 B） 511 C） 512 D） 256 7. Print #1, STR$ 中的Print是 ________。 A） 文件的写语句 B） 在窗体上显示的方法 C） 子程序名 D） 文件的读语句 9. 要从磁盘上读入一个文件名为“c:t1.txt” 的顺序文件，下列________是正确的语句。 A） F = "c:t1.txt" Open F For Input As #2 B） F = "c:t1.txt" Open "F" For Input As #2 C） Open c:t1.txt For Input As #2 D） Open “c:t1.txt” For Output As #2 10. 要从磁盘上新建一个文件名为“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 11. 以下能判断是否到达文件尾的函数是_______。 A）BOF B）LOC C）LOF D）EOF 12. 在顺序文件中______。 2

A）每条记录的记录号按从小到大顺序 B）每条记录的长度按从小到大顺序 C）按记录的某个关键数据项的排序组织文件 D）记录按写入的先后顺序存放，并按写入的先后顺序读出 15. 在窗体上有一个文本框，代码窗口中有如下代码，则下述有关该段程序代码所实现的功能的错误的说法是______。 Private Sub form_load() Open "C:data.txt" For Output As #3 Text1.Text = "" End Sub Private Sub text1_keypress(keyAscii As Integer) If keyAscii = 13 Then If UCase(Text1.Text) = "END" Then Close #3 End Else Write #3, Text1.Text Text1.Text = "" End If End If End Sub A）在C盘当前目录下建立一个文件 B）打开文件并输入文件的记录 C）打开顺序文件并从文本框中读取文件的记录，若输入End则结束读操作 D）在文本框中输入的记录按回车键存入，然后文本框内容被清除 16. 执行语句Open"C:StuData.dat"For Input As #2后，系统______。 A）将C盘当前文件夹下名为StuData.dat的文件的内容读入内存 B）在C盘当前文件夹下建立名为StuData.dat的顺序文件 C）将内存数据存放在C盘当前文件夹下名为StuData.dat的文件中 D）将某个磁盘文件的内容写入C盘当前文件夹下名为StuData.dat的文件中 17. 如果在C盘当前文件夹下已存在名为StuData.dat的顺序文件，那么执行语句 “Open"C：StuData.dat"For Append As #1”之后将 ______。 A）删除文件中原有的内容 B）保留文件中原有的内容，可在文件尾添加新内容 C）保留文件中原有内容，在文件头开始添加新内容 D）以上均不对 18. 以下关于文件的叙述中，错误的是______。 A）使用Append方式打开文件时，文件指针被定位于文件尾 B）当以输入方式(Input)打开文件时，如果文件不存在，则建立一个新文件 C）顺序文件各记录的长度可以不同 D）随机文件打开后，既可以进行读操作，也可以进行写操作 21. 以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。括号内应填写______。 Private Sub Command1_Click() Dim inData As String Text1.Text = "" Open ".smtext1.txt" ( ) As #1 3

Do While Not EOF(1) Input #1, inData Text1.Text = Text1.Text & inData Loop Close #1 End Sub A）For Input B）For Output C）For Random D）For Binary 22. 在用Open语句打开文件时，如果省略“For方式”，则打开的文件的存取方式是______。 A）顺序输入方式 B）顺序输出方式 C）随机存取方式 D）二进制方式 23. 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串: Microsoft Visual Basic Programming （注：空格的ASCII码值小于65） 然后编写如下事件过程: Private Sub Command1_Click() Open "d:tempoutf.txt" For Output As #1 For i = 1 To Len(Text1.Text) c = Mid(Text1.Text, i, 1) If c >= "A" And c <= "Z" Then Print #1, LCase(C） End If Next i Close End Sub 程序运行后,单击命令按狃,文件outf.txt中的内容是______。 A）MVBP B）mvbp C）M V BP D）mvbp 24. 下面叙述中不正确的是______。 A）对顺序文件中的数据的操作只能按一定的顺序执行 B）顺序文件结构简单 C）能同时对顺序文件进行读写操作 D）顺序文件的数据是以字符（ASCII码）的形式存储的 26. 以下程序段实现的功能是______。 Option Explicit Sub appeS_file1() Dim StringA As String, X As Single StringA="Appends a new number:" X=-85 Open "d:S_file1.dat" For Append As #1 Print #1, StringA; X 4

Close End Sub A）建立文件并输入字段 B）打开文件并输出数据 C）打开顺序文件并追加记录 D）打开随机文件并写入记录 27. 设有语句 Open "C:Test.dat" For Output As #1 则以下错误的叙述是 A）该语句打开C盘根目录下一个已存在的文件Test.Dat B）该语句在C盘根目录下建立一个名为Test.Dat的文件 C）该语句建立的文件的文件号为1 D）执行该语句后，就可能通过Print #语句向文件Test.Dat中写入信息 28. 以下叙述中正确的是______。 A）一个记录中所包含的各个元素的数据类型必须相同 B）随机文件中每个记录的长度是固定的 C）Open命令的作用是打开一个已经存在的文件 D）使用Input #语句可以从随机文件中读取数据 29. 下面叙述中不正确的是______。 A）若使用Write #语句将数据输出到文件，则各数据项之间自动插入逗号，并且将字符串加上双引号 B）若使用Print #语句将数据输出到文件，则各数据项之间没有逗号分隔，且字符串不加双引号 C）Write #语句和Print #语句建立的顺序文件格式完全一样 D）write #语句和Print #语句均实现向文件中写入数据 30. 在下面的4个叙述中，______是不正确的。 A）在一个程序执行END语句后，系统自动将所有打开的文件关闭 B）可以使用CLOSE语句关闭一个或几个指定的文件 C）使用不带语句体的CLOSE语句可关闭所有文件 D）执行完一个程序段的所有语句程序自动关闭文件 二、 填空题 2. 顺序文件的建立。建立文件名为" C：stud1.txt"的顺序文件，内容来自文本框，每按Enter键写入一条记录，然后清除文本框的内容，直到文本框内输入"END"字符串。 Private Sub Form_Load() 【2】 Text1.text = "" End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If 【3】 Then Close #1 End Else 【4】 Text1.text = "" End If End If End Sub