单项选择题

假定在工程文件中有一个标准模块，其中定义了如下记录类型
Type Books
Name As String*10
TelNum As String *20
End Type
要求在执行事件过程Command1_Click时，在C盘目录下的顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是______。
A) Private Sub Command1_Click()
Dint B As Books
Open"c: \Person.txt" For Output As#1
B.Name=InputBox("输入姓名")
B.TelNum=InputBox("输入电话号码")
Write#1 ,B.Name,B.TelNum
Close#1
End Sub
B) Private Sub Command1_Click()
Dim B As Books
Open"C:\Person.txt" For Input As#1
B.Name=InputBox("输入姓名")
B.TelNum=InputBox("输入电话号码")
Print#1,B.Name,B.TelNum
Close#1
End Sub
C) Private Sub Command1_Click()
Dim B As Books
Open"c:\Person.txt" For Output As#1
Name=InputBox("输入姓名")
TelNom=InputBox("输入电话号码")
Write #1,B
Close#1
End Sub
D) Private Sub Command1_Click()
Dim B As Book
Open"C:\Person.txt" For Input As#1
Name=InputBox("输入姓名")
TelNum-InputBox("输入电话号码")
Print #1 ,B.Name.B.TeINum
Close#1
End Sub