假定在工程文件中有一个标准模块，其中定义了如下记录类型： Type Books Name As String * 10 TelNum As String * 20 End Type 要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是( )
A. Private Sub Command1_Click()
B. Dint B As Books
C. Open"c:\Person.txt"For Output As#1
D. B.Name=InputBox("输入姓名")
E. B.TelNum=InputBox("输入电话号码")
F. Write # 1,B.Name,B.TelNum
G. Close # 1
H. End Sub
I. Private Sub Command1_Click()
J. Dim B AS Books
K. Open"C:\Person.txt"For Input As#1
L. B.Name=InputBox("输入姓名")
M. B.TelNum=InputBox("输入电话号码")
N. Print # 1,B.Name,B.TelNum
O. Close # 1
P. End Sub
Q. Private Sub Command1_Click()
R. Dim B AS Books
S. Open"c:\Person.tXt"For Output As # 1
T. Name=InputBox("输入姓名")
U. TelNom=InputBox("输入电话号码")
V. Write # 1,B
W. Close # 1
X. End Sub
Y. Private Sub Command1_Click()
Z. Dim B A8 Book
[. Open"c:\Person.txt"For Input As # 1
\. Name=InputBox("输入姓名")
]. TelNum-InputBox("输入电话号码")
^. Print # 1,B.Name.B.TelNum
_. Close # 1
`. End Sub
微信支付 
支付宝支付