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

A．Private Sub Command1 Click()
Dim B AS Books
Open"Person txt"For Output As#1
B．Name=InputBox(”输入姓名”)
B．relNum=lnputBox(”输入电话号码”)
Wlite#1 B Name，B TelNum
Ch,se#1
End Sub
B．Private Sub Command1 Click()
Dim B AS Books
Open"Person txt"For Input As#1
B．Name=InputBox("输入姓名")
B．TelNum=InputBox("输入电话号码")
Print#1，B．Name，B．TelNam
Close#1
End Sub
C．Private Sub Command1 Click()
Dim BAS Books
Open"Person txt"For Output As#1
B．Name=InputBox("输入姓名")
B．TelNum=InputBox("输入电话号码")
Write#1，B
Close#1
End Sub
D．Private Sub Commandl Click()
Open"Person txt"For Input As#1
Name=lnputBox("输入姓名")
TelNum=lnputBox("输入电话号码")
Prim#1 Name TelNum
Close#1
End Sub