设在工程文件中有一个标准模块，其中定义了下列记录类型：
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 BooksOpen"Person txt"For Output As#1Name=InputBox(”输入姓名”)relNum=lnputBox(”输入电话号码”)Wlite#1 B Name，B TelNumCh,se#1End Sub
B.Private Sub Command1 Click（　）Dim B AS BooksOpen"Person txt"For Input As#1>Name=InputBox("输入姓名")TelNum=InputBox("输入电话号码")Print#1，B．Name，B．TelNamClose#1End Sub
C.Private Sub Command1 Click（　）Dim BAS BooksOpen"Person txt"For Output As#1Name=InputBox("输入姓名")TelNum=InputBox("输入电话号码")Write#1，BClose#1End Sub
D.Private Sub Commandl Click（　）Open"Person txt"For Input As#1Name=lnputBox("输入姓名")TelNum=lnputBox("输入电话号码")Prim#1 Name TelNumClose#1End Sub