设在工程中有一个标准模块,其中定义了如下记录类型:Type Books Name As String *10 Te1Num As String *20End Type 在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是。
A.
Private Sub Command1_Click() Dim B As Books Open'c':/Person.txt'For Output As #1 B.Name=InputBox('输入姓名') B.Te1Num=InputBox('输入电话号码') Write #1,B.Name,B.Te1Num 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.Te1Num=InputBox('输入电话号码') Prite #1,B.Name,B.Te1Num Close #1 End Sub
C.
Private Sub Command1_Click() Dim B As Books Open'c':/Person.txt'For Output As #1 B.Name=InputBox('输入姓名') B.Te1Num=InputBox('输入电话号码') Write #1,B Close #1 End Sub
D.
Private Sub Command1_Click() Open'c':/Person.txt'For Input As #1 Name=InputBox('输入姓名') Te1Num=InputBox('输入电话号码') Prite #1,Name,Te1Num Close #1 End Sub