Question

VB的初级题目,求问高手..

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
这段文字是什么意思啊,为什么运行结果是23 47

Answer 1

1、楼主应该明确blck的调用方式是byref传地址调用；
2、本程序采用了递归调用方式；
程序分析：
x=2*2+1=5
5<6
所以：
{
开始内层调用x=5
x=5*2+1=11
x=11 >6，则不再执行内层调用；
x=11*2+1=23
输出内层调用中 x的值为：23
}结束内层调用；
x=23*2+1=47
输出外层x的值为：47
本题关键是参数传递方式的处理；

Answer 2

这是一个递归过程，把2作为参数时
Private Sub Blck(x As Integer)
x=x * 2 + 1 '2做参数时 x=5
If x < 6 Then '执行到这里时，再把5作为参数，执行这个过程，此时x=2*5+1=11,然后跳到最下面那句，执行x=11*2+1=23,打印出23，然后跳出这个递归过程，在执行一遍 x*2+1 即是23*2+1＝47 ，打印出结果，所以是23 和47 这两个结果！
Call Blck(x)
End If
x=x * 2 + 1
Print x;
End Sub
Private Sub Command1_Click()
Blck 2
End Sub

Answer 3

这个是递归调用，第一次把23输出来，这时调用并没有结束，这个只是
If x < 6 Then
Call Blck(x)
End If
这一段结束了，这里调用Call Blck(x)就是递归了，调用完Call Blck(x) 之后，x=23
但是后面还有
x=x * 2 + 1
Print x;
End Sub
这段代码没有执行，所以把x=23代进去继续执行（继续执行x=x * 2 + 1 ，之后x=47），所以就又多了个47了