单击命令按钮时，下列程序的执行结果是 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

参考答案和解析

正确答案：C
解析：主调过程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
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

正确答案：D
解析：此题在函数调用过程中采用了简单递归的方式,具体流程如下:主调过程调用BT过程,把实参4传递给BT过程中的形参x,由x=x2+1语句推出x=9,此时不满足BT过程中判断语句的判断条件,执行x=x2;Print x;语句。由x=x2语句得到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

正确答案：D

第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

正确答案：D
解析：此题在函数调用过程中采用了简单递归的方式，具体流程如下：主调过程调用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
D。【解析】事件过程的命名方式一般为事件对象_事件名，所以该事件应为“Click”的“MouseDown”事件。

第6题：

设有命令按钮Commandl的单击事件过程，代码如下：运行程序，单击命令按钮，消息框输出结果是（）。

A. 7

B. 8

C. 15

D. 22

正确答案：D
本题考查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
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
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

正确答案：A
解析：此题在函数调用过程中采用了简单递归的方式，具体流程如下：主调过程调用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的各个数组元素赋值，然后通过数组下标嵌套本身。注意：这样的嵌套时，要保证数组下标不出界，否则程序将出错。

单击命令按钮时,下列程序的执行结果是 Private Sub Command1_Click( ) Dim a As Integer,b As In

题目

参考答案和解析

相似问题和答案

相关内容