假定在工程文件中有一个标准模块，其中定义了如下记录类型： Type Books Name As String*10 TelNum As String*20 End Type 要求当执行事件过程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 Output 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"c:\Person. txt" For Output As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print #1, B Close #1 End Sub
D. Private Sub Command1_Click() Dim B As Books Open "c:\Person txt" For Output As #1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print #1, B Name, B. TelNum Close #1 End Sub

设在工程中有一个标准模块，其中定义了如下记录类型______。 Type Books Name As String*10 TelNum As String*20 End Type 在窗体上画一个名为Commandl的命令按钮，要求当执行事件过程Commandl_click时，在顺序文件Person．txt中写入一条记录。下列能够完成该操作的事件过程是______。

A. Ptivate Sub Commandl Click() Dim B As Books Open"C:\Person.txt"For Output AS#1 BName=InputBox("输入姓名") BTelNum=InputBox("输入电话号码") Write#1,BName,BTeLNum Clodr#1 End Sub
B. Ptivate Sub Commandl_C1iok() Dim B As Books Opcn"c:\Person.txt"For Input As#1 BName=InputBox("输入姓名") BTelNum=InpuBox("输入电话号码") Print#1,BName,@B@TelNum C1ose#1 End Sub
C. Private Sub Commandl Click() Dim B As Books Open"c:\Person.txt"For Output As #1 BName=InputBox("输入姓名") BTelNum=InputBox("输入电话号码") Write#1、B Close#1 End Sub
D. Private Sub Command1 C1ick() Dim B As Books Open"c:\Person.txt"For Input As #1 Name=InputBox('输入姓名') TelNum=InputBox("输入电话号码") Print#1,Name,TelNum Close#1 End Sub

设在工程中有一个标准模块，其中定义了如下记录类型：Type Books Name As String *10 TelNum As String*20 End Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_ Click时，在顺序文件 Person.txt中写入一条记录。下列能够完成该操作的事件过程是______。

A. Private Sub Command1_ Click() Dim x As Books Open "C：\Person. txt" for Output As #1 x. Name=InputBox(“输入姓名”) x. TelNum=InPutBox(“输入电话号码”) Write #1，x.Name，x.TelNum Close #1 End Sub
B. Private Sub Command1_ Click() Dim x As Books Open "c：\Person. txt" for Input As #1 x.Name=InputBox(“输入姓名”) x. TelNum=InputBox(“输入电话号码”) Print #1，x. Name，x. TelNum Close #1End Sub
C. Private Sub Command1_ Click() Dim x As Books Open "c：\Person. txt" for Output As #1 x. Name=InputBox(“输入姓名”) x. TelNum= InputBox(“输入电话号码”) Write #1，x Close #1End Sub
D. Private Sub Command1_ Click() Dim x As Books Open "c：\Person. txt" for Input As #1 x. Name= InputBox(“输入姓名”) x.TelNum=InputBox(“输入电话号码”) Print #1，Name，TeINum Close #1End Sub

单击命令按钮时，下列程度段的执行结果为()。 Pfivate Sub Command1_Click() Dima As Integer，b As Integer, c As Integer a=2:b=4:c=6 Call S1(a，B) Print "a="；a；"b="；b；"c="；c Call S2(a，B) Print "a="；a；"b="；b；"c="；c； End Sub Private Sub S1(x As Integer, y As Integer) Dim c As Integer x=2*x:y=y+2:c=x+y End Sub Sub S2(x As Integer, By Val y As Integer) Dim e As Integer x=2*x:y=y+2:e=x+y End Sub

A. a=4 b=6 c=6 a=4 b=6 c=6
B. a=8 b=6 c=6 a=8 b=6 c=6
C. a=4 b=6 c=6 a=8 b=6 c=6
D. a=8 b=6 c=6 a=4 b=6 c=6

在窗体上画一个名称为List1的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名消失。下列在List1_Click事件过程中能正确实现上述功能的语句是

A. List1．Removeltem List1．Text
B. List1．Removeltem List1．CIear
C. List1．Removeltem List1．ListCount
D. List1．Removeltem List1．Listlndex

在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程： Private Sub Command1_Click() a$="software and hardware" b$=Right(a$,8) c$=Mid(a$,1,8) MsgBox a$,,b$,c$,1 End Sub 则在弹出的信息框的标题栏中显示的信息是()。

A. hardware
B. software
C. hardware
D. 1

支持子程序调用的数据结构是（）

设x是整型变量，与函数IIf(X＞0，-x，x)有相同结果的代数式是

A. IxI
B. =-IxI
C. x
D. =-X

在窗体中添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Com- mand1)，然后编写如下程序： Private Sub Command1_Click() x=0 Do While x＜20 x=(x+1) *(x+2) n=n+1 Loop Text1.Text=Str(n) TextText=Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框Text1和Text2中分别显示的值是

A. 1和0
B. 2和12
C. 3和182
D. 3和12

以下语句的输出结果是 Print Format $(123 467，"000.00.00")

A. 1234.567
B. 12，34.567
C. 01，234.57
D. 1234.57