设在工程中有一个标准模块，其中定义了如下记录类型：Type Book

问题单项选择题

设在工程中有一个标准模块，其中定义了如下记录类型：Type Books Name As String *10 TelNum As String*20 End Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_ Click时，在顺序文件 Person.txt中写入一条记录。下列能够完成该操作的事件过程是______。

A．Private Sub Command1_ Click()Dim x As BooksOpen "C：\Perso txt" for Output As #1 Name=InputBox(“输入姓名”) TelNum=InPutBox(“输入电话号码”)Write #1，Name，TelNumClose #1 End Sub

B．Private Sub Command1_ Click()Dim x As BooksOpen "c：\Perso txt" for Input As #1Name=InputBox(“输入姓名”) TelNum=InputBox(“输入电话号码”)Print #1， Name， TelNumClose #1End Sub

C．Private Sub Command1_ Click()Dim x As BooksOpen "c：\Perso txt" for Output As #1 Name=InputBox(“输入姓名”) TelNum= InputBox(“输入电话号码”)Write #1，xClose #1End Sub

D．Private Sub Command1_ Click()Dim x As BooksOpen "c：\Perso txt" for Input As #1 Name= InputBox(“输入姓名”)TelNum=InputBox(“输入电话号码”)Print #1，Name，TeINumClose #1End Sub

答案

参考答案：A

解析：本题的难点是顺序文件写数据的方式和自定义类型的使用。顺序文件写数据的格式为：“Open文件名for Output AS [#]文件号”，在执行写操作时，文件c:\ Person. txt中原来内容可能被覆盖。获取自定义类型的成员要用“.”符号进行操作，例如x.Name和x.TelNum。