计算机二级
单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click( ) Dim a As Integer，b As Integer，c As Integer a=3 b=4 C=5 Print SecProc(c，b，A)End Sub Function Fir Proc(x As Integer，y As Integer，z As Integer) Fir Proc=2*x+y+3*z End Function Function SecProc(x As Integer，y A
题目
单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click( ) Dim a As Integer，b As Integer，c As Integer a=3 b=4 C=5 Print SecProc(c，b，A)End Sub Function Fir Proc(x As Integer，y As Integer，z As Integer) Fir Proc=2*x+y+3*z End Function Function SecProc(x As Integer，y As Integer，z As Integer) SecProc=FirProc(z，x，y)+x End Function
A．20
B．22
C．28
D．30
参考答案和解析
解析：主调过程Command1_Click输出的是SecProc(c，b，a)的返回值，调用过程SecProc时，主调过程分别把实参c、b、a地址传给形参x、y、z，此时在过程SecProc中，SecProc=FirProc(a，c，b)+c。由此看出，程序段执行此语句时，将调用过程FirProc。把实参a、c、b的地址分别传给形参x、y、z，此时在过程FirProc中，FirProc=2*x+y+3*z，所以FirProc(a，c，b)=6+4+15=25，SecProc(a，c，b)=25+3=28。
相似问题和答案
第1题：
单击命令按钮时，下列程序段的执行结果为（ ）。
A.8
B.6
C.4
D.2
B)【解析】本题考查循环程序的分析。在函数Funcl中，程序主要由一条嵌套的循环语句构成，如果m<>n，外循环内部的第一条内循环为除去m中包含的所有的n的倍数。第二条内循环为除去n中包含的m的倍数。最后计算到m和n相等。
第2题：
单击命令按钮时,下列程序的执行结果是
Private Sub Command1_Click()
BT 4
End Sub
Private Sub BT(x As Integer)
x=x*2 + 1
If x < 6 Then
Call BT(x)
End If
x=x 2
Print x;
End Sub
A．15
B．16
C．17
D．18
解析：此题在函数调用过程中采用了简单递归的方式,具体流程如下:主调过程调用BT过程,把实参4传递给BT过程中的形参x,由x=x2+1语句推出x=9,此时不满足BT过程中判断语句的判断条件,执行x=x2;Print x;语句。由x=x2语句得到x值为18并输出,结束此次调用过程,返回到主调过程结束程序,输出结果为18。
第3题：
单击命令按钮时，下列程序的执行结果是
Private Sub Command1_Click（）
BT 4
End Sub
Private Sub BT（x As Integer）
x=x * 2 + 1
If x < 6 Then
Call BT（x）
End If
x=x * 2
Print x;
End Sub（ ）。
A．15
B．16
C．17
D．18
第4题：
单击命令按钮时，下列程序的执行结果是 Private Sub Commandl_Click( ) BT 4 End Sub PriVate Sub BT(x As Integer) X=X * 2 + 1 If x ＜6 Then Call BT(x) End If X=x * 2 Print x； End Sub
A．15
B．16
C．17
D．18
解析：此题在函数调用过程中采用了简单递归的方式，具体流程如下：主调过程调用BT过程，把实参4传递给BT过程中的形参x，由x=x*2+1语句推出x=9，此时不满足BT过程体中判断语句的判断条件，执行x=x*2；Printx；语句。由x=x*2语句得到x值为18并输出，结束此次调用过程，返回到主调过程结束程序，输出结果为18。
第5题：
若看到程序中确以下事件过程，则可以肯定的是，当程序运行时（ ）。
Private Sub Click—MouseDown(Button As Integer，Shift As Integer，X As Single，Y
As Single)
Print"VB Program"
End Sub
A.用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程
B.用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程
C.用鼠标右键单击名称为“MouseDown”的命令按钮时，执行此过程
D.用鼠标左键或右键单击名称为“Click”的命令按钮时，执行此过程
D。【解析】事件过程的命名方式一般为事件对象_事件名，所以该事件应为“Click”的“MouseDown”事件。
第6题：
设有命令按钮Commandl的单击事件过程，代码如下：
运行程序，单击命令按钮，消息框输出结果是（ ）。
A. 7
B. 8
C. 15
D. 22
本题考查VBA中二维数组和循环的知识。本题中的第一个二重循环为二维数组进行了赋值，第二个循环 完成累加，关键是分析出累加了哪些元素。由循环体可以看出，实 际上3次累加分别累加的是a(1，3)、a(2，2)、a(3、1)，实际上就是二维 数组的对角线，累加和为7+8+7=22。
第7题：
若看到程序中确以下事件过程，则可以肯定的是，当程序运行时（ ）。 Private Sub Click—MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) Print"VB Program" End Sub
A.用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程
B.用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程
C.用鼠标右键单击名称为“MouseDown”的命令按钮时，执行此过程
D.用鼠标左键或右键单击名称为“Click”的命令按钮时，执行此过程
D。【解析】事件过程的命名方式一般为事件对象_事件名，所以该事件应为“Click”的“MouseDown”事件。
第8题：
在窗体上画一个命令按钮，然后编写如下程序：
Dim x As Integer
Sub inc(a As Integer)
x=x+a
End Sub
Private Sub Command1_Click()
inc 2
inc 3
inc 4
Msgbox x；
End Sub
程序执行后，单击Command1命令按钮，消息框显示结果是【 】。
9 解析：inc函数每执行一次就向x上累加一次传入的参数，所以最后x的值为：2+3+4=90
第9题：
单击命令按钮时，下列程序的执行结果是 Private Sub Book(x As Integer) x=x * 2 + l If x＜6 Then Call Book(x) End If X=X * 2 + 1 Print x； End Sub Private Sub Command2_Click() Book2 End Sub
A．23 47
B．10 36
C．22 44
D．24 50
解析：此题在函数调用过程中采用了简单递归的方式，具体流程如下：主调过程调用Book过程，把实参2传递给Book过程中的形参x，由x=x*2+1语句推出x=5，此时满足Book过程体中判断语句的判断条件，执行CallBook(x)语句，第二次调用Book过程。由x=x*2+1语句得到x值为11，判断条件1l6为假，故返回此调用过程执行x=x*2+1语句，的x=23并输出，结束此次调用过程。由于两次调用Book过程，第二次仍返回调用时的断点语句，即执行x=x*2+1，Printx，输出x的值为47，返回到主调过程，结束程序，两次输出为2347，正确答案为选项A。
第10题：
在窗体上画一个名为Command1的命令按钮，编写如下程序：
程序运行后，单击命令按钮，输出的结果是_________。
4
【解析】本题考查了数组的嵌套使用。程序首先通过一个For循环给数组M的各个数组元素赋值，然后通过数组下标嵌套本身。注意：这样的嵌套时，要保证数组下标不出界，否则程序将出错。