计算机二级
单击命令按钮时，下列程序的执行结果是 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 SubA．23 47B．10 36C．22 44D．24 50
题目
单击命令按钮时，下列程序的执行结果是 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
相似问题和答案
第1题：
单击命令按钮时，下列程序的执行结果是 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。
第2题：
单击命令按钮，下列程序的执行结果是 Private Sub Blck (x As Integer) x = x * 2 + l If x ＜6 Then Call Blck(x) End If x = x * 2 + 1 Print x； End Sub Private Sub Commandl_Click() Blck 2 End Sub
A．23 47
B．10 36
C．22 44
D．24 50
解析：考查考生对过程的理解。@解析@此题在函数调用过程中采用了简单递归的方式，具体流程如下：主调过程调用Blck过程，把实参2传递给Blck过程中的形参x，由x=x*2+1语句推出x=5，此时满足Blck过程体中判断语句的判断条件，执行CallBlck(x)语句，第二次调用Blck过程。由x=x*2+1语句得到x值为11，判断条件116为假，故返回此调用过程，执行x=x*2+l语句，的x=23并输出，结束此次调用过程。由于两次调用Blck过程，第二次仍返回调用时的断点语句，即执行x=x*2+1，Printx，输出x的值为47，返回到主调过程，两次输出为2347。
第3题：
单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click() BT4 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语句得到。值为18并输出，结束此次调用过程，返回到主调过程结束程序，输出结果为18。
第4题：
单击命令按钮时，下列程序的执行结果是 Private Sub Book( x As Integer) x=x*2+1 If x＜6 Then Call Book(x) End If x=x * 2 + 1 Print x; End Sub Private Sub Command2_Click( ) Book 2 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过程体中判断语句的判断条件，执行Call Book(x)语句，第二次调用Book过程。由x=x*2+1语句得到x值为11，判断条件116为假，故返回此调用过程执行x=x*2+1语句得x=23并输出，结束此次调用过程。由于两次调用Book过程，第二次仍返回调用时的断点语句，即执行x=x*2+ 1，Print x，输出x的值为47，返回到主调过程，结束程序，两次输出为23 47，正确答案为选项A。注意： 递归调用法是Visual Basic中一种特殊的函数调用方法。这种函数采用嵌套调用函数本身的方式调用函数。
第5题：
单击命令按钮时,下列程序的执行结果是
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。
第6题：
在窗体上画一个命令按钮，然后编写如下程序：
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
第7题：
单击命令按钮时，下列程序的执行结果是
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=x*2+1语句推出x=9，此时不满足BT过程中判断语句的判断条件，执行x=x*2；Print x；语句。由x=x*2语句得到x值为18并输出，结束此次调用过程，返回到主调过程结束程序，输出结果为18。
第8题：
单击命令按钮时，下列程序的执行结果是
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
第9题：
单击命令按钮，下列程序的执行结果是
Private Sub Blck（x As Integer）
x=x * 2 + 1
If x < 6 Then
Call Blck（x）
End If
x=x * 2 + 1
Print x;
End Sub
Private Sub Command1_Click（）
Blck 2
End Sub（ ）。
A．23 47
B．10 36
C．22 44
D．24 50