Question

求解一道VB递归方面的题 跪求详细过程

Option Explicit
Private Sub Command1_Click()
Dim a As Integer
a = 2
Call sub1(a)
End Sub
Private Sub sub1(x As Integer)
x = x * 2 + 1
If x < 10 Then
Call sub1(x)
End If
x = x * 2 + 1
Print x
End Sub
不懂递归的具体问题 为什么输出来一个23之后 又会循环出一个47呢？急 在线等~

Answer 1

递归就是调用他本身.....下面我写出你这段代码的详细执行过程,

Dim a As Integer
a = 2

'--函数调用第一层开始
'Call sub1(a)
x = x * 2 + 1 'x=2*2+1 = 5
If x < 10 Then 'x=5 小于10 成立,

'---函数调用第二层开始
'Call sub1(x) '于是又调用了sub1,会执行以下代码

x = x * 2 + 1 'x=5*2+1=11
If x < 10 Then 'x=11 小于10不成立,执行endif后语句
End If
x = x * 2 + 1 'x=11*2+1=23
Print x '输出x=23到窗体上
'End Sub
'---函数调用第二层结束,下面将返回第一层继续执行
End If
x = x * 2 + 1 'x=23*2+1=47
Print x '将x=47输出到窗体上
'End Sub
'--函数调用第一层结束

Answer 2

运行过程相当于

Option Explicit
Private Sub Command1_Click()
Dim a As Integer
a = 2
Call sub1(a)
End Sub
Private Sub sub1(x As Integer)
x = x * 2 + 1
If x < 10 Then
x = x * 2 + 1
x = x * 2 + 1
Print x
End If
x = x * 2 + 1
Print x
End Sub

Answer 3

递归，相当于自己调用自己，在子程序中出现的Call Sub1(x)就是递归
根据先进后出原则，输出的23只是完成了子程序中递归的调用，主程序的调用还没有完成，所以以23为x的调用还要继续下去，这样就会又输出一个47