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

问题：

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

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

B．Private Sub Command1_Click() Dim B As BooksOpen "c:\Person.txt" For Input As #1B.Name = InputBox("输入姓名")B.TelNum = InputBox("输入电话号码")Print #1, B.Name, B.TelNumClose #1 End Sub

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

D．Private Sub Command1_Click() Dim B As BooksOpen "c:\Person.txt" For Input As #1Name = InputBox("输入姓名")TelNum = InputBox("输入电话号码") Write #1, B.Name, B.TelNumClose #1 End Sub