【简答题】设在工程中有一个标准模块,其中定义了如下记录类型:Type Books Name As String ( 10 Te1Num As String * 20End Type在窗体上添加一个名为Command1的命名按钮。要求当执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。请在横线中填入适当的内容,将程序补充完整。Private Sub Command1_C...
【单选题】设在工程中有一个标准模块,其中定义了如下记录类型: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