—Why are you so happy? —Because I catch two ________. So we can have ________ for dinner. [ ]
A.
chickens; chickens
B.
egg; egg
C.
fish; fish
D.
chicken; chicken
手机使用
分享
复制链接
新浪微博
分享QQ
微信扫一扫
微信内点击右上角“…”即可分享
反馈
参考答案:
举一反三
【简答题】设在工程中有一个标准模块,其中定义了如下记录类型: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