假定在工程文件中有一个标准模块，其中定义了如下记录类型：

问题单项选择题

假定在工程文件中有一个标准模块，其中定义了如下记录类型： Type BooksName As String*10TelNum As String*20 End Type 要求当执行事件过程Command1_Click时，在顺序文件Person. txt中写入一条记录。下列能够完成该操作的事件过程是______。

A．Private Sub Command1_Click() Dim B As Books Open"c:\Perso txt" For Output As #1Name=InputBox("输入姓名")TelNum=InputBox("输入电话号码") Write #1, Name, TelNum Close #1 End Sub

B．Private Sub Command1_Click() Dim B As Books Open"c:\Person txt" For Output As #1Name=InputBox("输入姓名")TelNum=InputBox("输入电话导码") Print #1, Name, TelNum Close #1 End Sub

C．Private Sub Command1_Click() Dim B As Books Open"c:\Perso txt" For Output As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print #1, B Close #1 End Sub

D．Private Sub Command1_Click() Dim B As Books Open "c:\Person txt" For Output As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print #1, B Name, TelNum Close #1 End Sub

答案

参考答案：A

解析：[分析] 要向顺序文件中写入记录必须用For Output参数打开文件，然后用Print#或Write#语句将内容写入文件，因此选项B和选项D不正确；又因为自定义数据类型变量的引用要用“变量名. 变量元素名”，所以选项C不正确。故本题的正确答案只有选项A。