（35 ）设在工程文件中有一个标准模块，其中定义了如下记录类型：Type BooksName As String * 10Tel

（35 ）设在工程文件中有一个标准模块，其中定义了如下记录类型：

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.TelNum=InputBox(“ 输入电话号码 ” )

Write #1,B.Name,B.TelNum

Close #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.TelNum

Close #1

End Sub

C ） Private Sub Command1_Click()

Dim B As Books

Open “ Person.txt ” For Output As #`1

B.Name=InputBox(“ 输入姓名 ” )

B.TelNum=InputBox(“ 输入电话号码 ” )

Write #1,B

Close #1

End Sub

D ） Private Sub Command1_Click()

Open “ Person.txt ” For input As #`1

Name=InputBox(“ 输入姓名 ” )

TelNum=InputBox(“ 输入电话号码 ” )

Print #1, Name, TelNum

Close #1

End Sub