未分类题

设在工程中有一个标准模块,其中定义了如下记录类型 Type Books Name As String*10 TelNum As String*20 End 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.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 lnput As #1 B.Name=InputBox(“输入姓名”) B.TelNum=InputBox(“输入电话号码”) Print#1,B.Name,B.TeINum 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.TelNum=InputBox(“输入电话号码”) Write #1,B Close #1 End Sub
D.Private Sub Command1_Click() Dim B As Books Open'c:/Person.txt'For Input As #1 Name=InputBox(“输入姓名”) TelNum=InputBox(“输入电话号码”) Print #1,Name,TelNum Close #1 End Sub

A.txt中写入一条记录。下列能够完成该操作的事件过程是
B.Private
C.txt'For
D.Name=InputBox(“输入姓名”)
E.TelNum=InputBox(“输入电话号码”)
F.TelNum
G.Private
H.txt'For
I.Name=InputBox(“输入姓名”)
J.TelNum=InputBox(“输入电话号码”)
K.Name,B.TeINum
L.Private
M.txt'For
N.Name=InputBox(“输入姓名”)
O.TelNum=InputBox(“输入电话号码”)
P.Private
Q.txt'For

【参考答案】

A
解析:A选项正确。
B选项向文件中输出内容,打开方式应当为For output。
C选项记录......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)