（ 23 ）已知有下面的过程（ ）

Private Sub proc1 （ a As Integer,b As String,Optional x As Boolean ）

……

E．nd Sub

正确调用此过程的语句是

A． ） Call procl （ 5 ）

B． ） Call proc1 5, ” abc ” ,False

C． ） proc1 （ 12, ” abc ” ,True ）

D． ） proc1 5, “ abc ”

[单选题]已知有下面过程： Private Sub proc1(a As Integer,b As String,Optional x As Boolean) ...... End Sub 正确调用此过程的语句是______。A．Call procl(5)B．Call procl 5,"abc",FalseC．procl(12,"abc",True)D．procl 5,"abc"

[单选题]单击按钮时，以下列程序运行后的输出结果是 Private Sub proc1(x As Integer，y As Integer，z As Integer) x=3*z y=2*z z=X+y End Sub Private Sub Command1_Click( ) Dim x As Integer，y As Integer，z As Integer x=1：y=2：z=3 Call proc1(x，x，2) Print x；x；z Call proc1(x，y，y) Print x；y；y

[单选题]阅读下面的程序： Private Sub Command1_Click() For i=1 To 3 For j=1 To i For k=j To 3 x=x+1 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，窗体上输出的结果是A．3B．9C．14D．21

[单选题]（ 13 ）设窗体文件中有下面的事件过程：Private Sub Command1_Click （）D．im sa%=100Print aE．nd Sub其中变量 a 和 s 的数据类型分别是A． ）整型，整型B． ）变体型，变体型C． ）整型，变体型D． ）变体型，整型

[单选题]给出下面的程序：Private Sub Command1_ Click() Dim Check, Counter Check= True: Counter = 0 do do while Counter ＜ 20 Counter = Counter +1 if Counter = 10 then Check=False exit do End if Loop Loop until Check=False MsgBox CounterEnd Sub 程序最后弹出的消息对话框的内容是______。A

[单选题]设窗体文件中有下面的事件过程：Private Sub Commandl_Click()D．im Sa％=100Print aE．nd Sub其中变量a和s的数据类型分别是A．整型，整型B．变体型，变体型C．整型，变体型D．变体型，整型

[单选题]（35）某人编写了下面的程序Private Sub Command1_Click( )D．im a As Integer, b As Integera=InputBox("请输入整数")b=InputBox("请输入整数")pro apro bC．all pro(a+b)E．nd SubPrivate Sub pro(n As Integer)While (n>0)Print n Mod 10;n=n/10WendPrintE．nd Sub此程序功能是：输入 2 个正整数，反序输出

[试题]执行下面的程序段，x的值为[ ]。Private Sub Command1_Click()F．or i=1 To 9a=a+iNextx=Val(i)MsgBox xE．nd Sub

[单选题]执行下面的程序段，x的值为 。private Sub Command1_Click()For i=1 To 5 a=a+iNext iX=Val(i)msgBox xEnd SubA．5 B．6 C．7 D．8

[单选题]有下列事件过程： Private Sub Command1_Click() b = 10 Do Until b = -1 a = InputBox(＂请输入a的值＂） a = Val(a) b = InputBox(＂请输入b的值＂） b = Val(b) a = a * b Loop Print End Sub程序运行后，依次输入数值30，20，10，-1后，输出结果是。A. 6000 B. -10 C. 200 D. -6000