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

A．Ptivate Sub Command1_Click() Dim B As Books Open"c:\Persotxt"For Output As#1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Write#1，Name，TelNum Close#1 End Sub
B．Private Sub Command1_Click() Dim B As Books Open"c:\Persotxt"For Input As#1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print#1，Name，TelNum Close#1 End Sub
C．Private Sub Command1_Click() Dim B As Books OPQl"c:\Persotxt"For Output As#1 Nallle=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Write#1，B Close#1 End Sub
D．Private Sub Command1_Click() Dim B As Books Open"c:\Persotxt"For lnput As#1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Write#1，Name，TelNum Close#1 End Sub