设在工程中有一个标准模块，其中定义了如下记录类型：
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 Books
Open "C：\Person. txt" for Output As #1
x. Name=InputBox(“输入姓名”)
x. TelNum=InPutBox(“输入电话号码”)
Write #1，x.Name，x.TelNum
Close #1
End Sub

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

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

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