题目内容：
假定在工程文件中有一个标准模块，其中定义了如下记录类型 TypeBooks
NameAsString*10
TelNumAsString*20
EndType
要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是（ ）。
A．PrivateSubCommand1_Click（）
DimBAsBooks
Open"c:\Person.txt"ForOutputAs#1
B.Name=InputBox（"输入姓名"）
B.TelNum=InputBox（"输入电话号码"）
Write#1,B.Name,B.TelNum
Close#1
EndSub
B．PrivateSubCommand1_Click（）
DimBAsBooks
Open"c:\Person.txt"ForInputAs#1
B.Name=InputBox（"输入姓名"）
B.TelNum=InputBox（"输入电话号码"）
Print#1,B.Name,B.TelNum
Close#1
EndSub
C．PrivateSubCommand1_Click（）
DimBAsBooks
Open"c:\Person.txt"ForOutputAs#1
Name=InputBox（"输入姓名"）
TelNum=InputBox（"输入电话号码"）
Write#1,B
Close#1
EndSub
D．PrivateSubCommand1_Click（）
DimBAsBook
Open"c:\Person.txt"ForInputAs#1
Name=InputBox（"输入姓名"）
TelNum=InputBox（"输入电话号码"）
Print#1,B.Name,B.TelNum
Close#1
EndSub
参考答案：
答案解析：