第九章 有答案文件

第九章文件

一、单选题

1．为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为___D____。

A）Get文件号，记录号，变量名B）Get文件号，变量名，记录号

C）Put文件号，变量名，记录号D）Put文件号，记录号，变量名

2．执行语句Open " Tel.dat" For Random As #1 Len = 50后，对文件Tel.dat中的数据能够执行的操作是___C_____。

A）只能写，不能读B）只能读，不能写

C）既可以读，也可以写D）不能读，不能写

3．以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。括号内应填写___A_____。

Private Sub Command1_Click()

Dim inData As String

Text1.Text = ""

Open ".\smtext1.txt" ( ) As #1

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

4．在用Open语句打开文件时，如果省略“For方式”，则打开的文件的存取方式是___C_____。

A）顺序输入方式B）顺序输出方式C）随机存取方式D）二进制方式5．在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串：Microsoft Visual Basic Programming

然后编写如下事件过程：

Private Sub Command1_Click()

Open "d:\temp\outf.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中的内容是____D____。

A）MVBP B）mvbp

C）M D）m

V v

B b

P p

6．文件号最大可取的值为___B_____。

A）255 B）511 C）512 D）256

7．Print #1, STR$ 中的Print是___A_____。

）文件的写语句B）在窗体上显示的方法

C）子程序名D）文件的读语句

8．为了建立一个随机文件，其中每条记录由多个不同数据类型的数据项组成，应使用____A____。

A）记录类型B）数组C）字符串类型D）变体类型

9．要从磁盘上读入一个文件名为“c:\t1.txt” 的顺序文件，下列___A_____是正确的语句。

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” 的顺序文件，下列___D_____是正确的语句。

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

二、填空题

1．全局记录类型定义语句应出现在标准模块。

2．建立文件名为"C:\stud1.txt"的顺序文件，内容来自文本框，每按Enter键写入一条记录，然后清除文本框的内容，直到文本框内输入"END"字符串。

Private Sub Form_Load()

Open "C:\stud1.txt" For Output As #1

Text1.text = ""

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If UCase(Text1.Text) = "END" Then

Close #1

End

Else

Print #1 , Text1.Text

Text1.text = ""

End If

End If

End Sub

3．将C盘根目录下的一个文本文件old.txt复制到新文件new.txt中，并利用文件操作语句将old.txt文件从磁盘上删除。

Private Sub Command1_Click()

Dim str1$

Open "C:\old.txt" For Input As #1

Open "C:\new.txt" For Output As #2

Do While Not EOF(1)

Line Input #1,str1

Print #2 , str1

Loop

Close #1,#2

Kill "C:\old.txt"

End Sub

4．下面程序的功能是将文本文件合并。即将文本文件“t1.txt”合并到“t.txt”文件中，请将程序填写完整。

Private Command1_Click()

Dim s$

Open "t.txt" For Append As #1

Open "t1.txt" For Input As #2

Do While Not EOF(2)

Line Input #2 , s

Print #1 , s

Loop

Close #1, 2#

End Sub

5．下面程序的功能是将文本文件“t.txt”的内容一个字符一个字符地读入文本框Text1中。请将程序填写完整。

Private Command1_Click()

Dim InputData as String * 1

Text1.Text = ""

Open "t.txt" For Input As #1

Do While Not EOF(1)

InputData = Input(1, #1)

Text1.Text = Text1.Text + InputData

Loop

Close #1

End Sub