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

题目：

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

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

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

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

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