求解释递归法的运用

raylenewu

摁了F8逐步执行后，还没弄懂下面的 Function myCombination 是怎样执行的，求各位能帮忙解释代码是怎样执行的吗。
在 Function myCombination ，先开始执行Else 部分，
lngSelID =0，lngResultID =0， lngRow=0，arrResult=（0，0）=arrilist(0)  ,
lngResultID+1 后在循环，
lngSelID =0，lngResultID =1， lngRow=0，arrResult=（1，0）=arrilist(0)  ,
lngResultID+1 后  执行 If lngResultID > lngMax Then。。。。。这个时候lngResultID=2 > lngMax=1  ---->为什么这个执行后返回
lngSelID =0，lngResultID =1，lngCur=1 的？此时 为什么 lngResultI ≠2，而是 lngResultID =1。

另外一个问题：
在执行第一个 lngCur =2 后，为什么此处 lngCur =1， lngSelID =0，lngResultID =0，然后再继续执行？

---------------------------------------------------------------------------------------------------------------------------------------
Sub Test()
    Dim arrList As Variant
    Dim arrResult As Variant

    arrList = Array(0, 1, 2)
    myCombination arrList, 0, 0, 1, arrResult

    arrResult = Application.WorksheetFunction.Transpose(arrResult)
    ActiveSheet.Range("A1").Resize(UBound(arrResult) - 1, UBound(arrResult, 2)) = arrResult

End Sub
'----------------------------------------------------------------------------------------------------------------------------------------------------
Function myCombination(arrList As Variant, lngSelID As Long, lngResultID As Long, lngMax As Long, ByRef arrResult As Variant)
    Dim lngCur As Long, lngRow As Long, lngCol As Long
    If lngResultID > lngMax Then
            lngRow = UBound(arrResult, 2) + 1
        ReDim Preserve arrResult(0 To lngMax, 0 To lngRow)
        For lngCol = LBound(arrResult) To UBound(arrResult)
            arrResult(lngCol, lngRow) = arrResult(lngCol, lngRow - 1)
        Next
    Else
        If IsArray(arrResult) = False Then ReDim arrResult(0 To lngMax, 0 To 0)

        For lngCur = lngSelID To UBound(arrList)
            lngRow = UBound(arrResult, 2)
                arrResult(lngResultID, lngRow) = arrList(lngCur)
            myCombination arrList, lngCur, lngResultID + 1, lngMax, arrResult
        Next
    End If
End Function

Manrce

推荐你去网易云课堂搜索一下视频教程，杨洋老师的那个。里面讲解的比较详细又通俗易懂。

chis3

F8 很難理解遞歸的,事實上也沒必要去看它的過程
複雜的是很難追蹤理解的,遞歸是在堆疊,不斷的堆疊過程,直到最後才由最後的開始返回最初
想用F8去理解複雜的幾乎不可能

小花鹿

递归本来就很难理解，先用最简单的例子理解递归的原理，然后再逐步理解复杂的：
Option Explicit
Dim ar(), n&
Sub main()
    Dim num&
    n = 0
    num = 60
    Call recursive(num)
    MsgBox num & "的质因数是：" & Join(ar)
End Sub
Sub recursive(num)
    If num > 1 Then
        Dim i&
        For i = 2 To num
            If num / i = Int(num / i) Then Exit For
        Next i
        n = n + 1
        ReDim Preserve ar(1 To n)
        ar(n) = i
        Call recursive(num / i)
    End If
End Sub

我是来讨说法的

要理解递归，可能要先理解 堆和栈 这两个概念，结合起来理解比较容易

yxbaju

运用递归的一个简单的案例, 阶乘:

1. <font face="Arial" size="3">Function f(n)</font>

复制代码

运用递归的思想解决汉诺塔问题，该例子是递归运用的一个经典案例

1. <font size="3" face="Arial">Option Explicit
   
2. Dim WAYSnbsp; '最终结果
   
3. Dim SEPnbsp; '分隔符(仅适用于本例的排版需求)
   
4. 
   
5. Private Sub Move(a$, b$)</font>

复制代码

huagou8

个人觉得，你只需理解递归的原理就行了，具体的执行过程没必要追溯，人的大脑处理递归的层次不超过3层，3层以上完全懵逼。
楼上的同学举例很好，汉诺塔，经典的递归应用。下面是我自己写的两个函数，可以参考交流。
'汉诺塔解法函数
Function hanoi(n As Integer, a As String, b As String, c As String)
    Dim arr()
    If n = 1 Then hanoi = "moving " & n & " from " & a & " to " & c & " "
    If n > 1 Then hanoi = hanoi(n - 1, a, c, b) & Chr(10) & "moving " & n & " from " & a & " to " & c & " " & Chr(10) & hanoi(n - 1, b, a, c)
End Function
'汉诺塔解决步骤数
Function hanoistep(n As Integer)
    If n = 1 Then hanoistep = 1
    If n > 1 Then hanoistep = hanoistep(n - 1) * 2 + 1   
End Function

lsdongjh

1. '这是我写的一个函数，解决“vba怎样用指定3个数组合，每一行有4个数” http://club.excelhome.net/thread-1517516-1-1.html
   
2. '
   
3. '其实就是一个全排列的递归算法
   
4. '
   
5. '全排列算法是一种非常经典的递归算法
   
6. '思路:
   
7. '1、先固定第一个元素，求剩下的全排列
   
8. '2、求剩下的全排列时，固定剩余元素中的第一个元素，再求剩下元素的全排列
   
9. '3、重复以上思路，直到就剩一个元素停止。
   
10. '
    
11. '整个函数的意义
    
12. '    从arrList数组中，抽取 lngMax+1个数，将结果返回arrResult 数组
    
13. '
    
14. '基础知识:
    
15. '    （1）数组索引下限从0开始
    
16. '    （2）多维数组只能改变最后的维度。如果是二维数组，且EXCEL的概念就是：行固定，列增加。
    
17. 
    
18. 
    
19. Function myCombination(arrList As Variant, lngSelID As Long, lngResultID As Long, lngMax As Long, ByRef arrResult As Variant)
    
20.     Dim lngCur As Long, lngRow As Long, lngCol As Long
    
21.     '边界条件:
    
22.     '   要取的个数已满足条件，则输出
    
23.     If lngResultID > lngMax Then
    
24.         '只能变更最后的维度
    
25.         lngRow = UBound(arrResult, 2) + 1
    
26.         '第二维对应最终结果是 行，所以定义名称lngRow
    
27.         ReDim Preserve arrResult(0 To lngMax, 0 To lngRow)
    
28.         For lngCol = LBound(arrResult) To UBound(arrResult)
    
29.             arrResult(lngCol, lngRow) = arrResult(lngCol, lngRow - 1)
    
30.         Next
    
31.     Else
    
32.         If IsArray(arrResult) = False Then ReDim arrResult(0 To lngMax, 0 To 0)
    
33.         '循环读取arrList数组中的内容，赋值于当前行
    
34.         For lngCur = lngSelID To UBound(arrList)
    
35.             lngRow = UBound(arrResult, 2) '读取arrResult的第二维，就是现在的列号，将来的行号
    
36.             arrResult(lngResultID, lngRow) = arrList(lngCur) '在当前列（lngRow）的指定行（lngResultID）赋值
    
37.             myCombination arrList, lngCur, lngResultID + 1, lngMax, arrResult '行+1后，自身再调用
    
38.         Next
    
39.     End If
    
40. End Function
    
41. 
    
42. 
    
43. 
    
44. Sub Test()
    
45.     Dim arrList As Variant
    
46.     Dim arrResult As Variant
    
47. 
    
48. '    arrList = Array(0, 1, 2, 3)
    
49. '    myCombination arrList, 0, 0, 4, arrResult
    
50.     arrList = Array(0, 1, 2)
    
51.    
    
52.     myCombination arrList, 0, 0, 3, arrResult
    
53.    
    
54.     arrResult = Application.WorksheetFunction.Transpose(arrResult)
    
55.    
    
56.     Sheet1.UsedRange.Clear
    
57.     '想一下，这里的行数为什么要减1
    
58.     Sheet1.Range("A1").Resize(UBound(arrResult) - 1, UBound(arrResult, 2)) = arrResult
    
59.     MsgBox "OK"
    
60. End Sub
    
61. 
    
62. 
    
63. '【myCombination arrList, 0, 0, 3, arrResult】运行结果
    
64. 
    
65. '     ***arrlist=[0,1,2] 不变
    
66. 
    
67. '（1）arrResult=[0,,,]  调用 myCombination arrList, 0, 1, 3, arrResult
    
68. '（2）arrResult=[0,0,,]  调用 myCombination arrList, 0, 2, 3, arrResult
    
69. '（3）arrResult=[0,0,0,]  调用 myCombination arrList, 0, 3, 3, arrResult
    
70. '（4）arrResult=[0,0,0,0]  调用 myCombination arrList, 0, 4, 3, arrResult
    
71. '（5）此时lngResultID(4)>lngMax(3)
    
72. '      arrResult增加一维 =[0,0,0,0][0,0,0,0]  ,退出当前调用函数，执行for循环，相当于lngCur+1=1，arrlist[1]=1
    
73. '               arrResult=[0,0,0,0][0,0,0,1]  调用 myCombination arrList, 1, 4, 3, arrResult
    
74. '     此时,lngResultID(4)>lngMax(3)
    
75. '      arrResult增加一维 =[0,0,0,0][0,0,0,1][0,0,0,1]  ,退出当前调用函数，执行for循环，相当于lngCur+1=2，arrlist[2]=1
    
76. '               arrResult=[0,0,0,0][0,0,0,1][0,0,0,2]  调用 myCombination arrList, 2, 4, 3, arrResult
    
77. '     此时,lngResultID(4)>lngMax(3)
    
78. '      arrResult增加一维 =[0,0,0,0][0,0,0,1][0,0,0,2][0,0,0,2]  ,退出当前调用函数，完成当前的for循环，返回上层循环
    
79. '               arrResult=[0,0,0,0][0,0,0,1][0,0,0,2][0,0,0,2]  调用 myCombination arrList, 1, 3, 3, arrResult
    
80. '               arrResult=[0,0,0,0][0,0,0,1][0,0,0,2][0,0,1,1]  调用 myCombination arrList, 1, 4, 3, arrResult
    
81. '      arrResult增加一维 =[0,0,0,0][0,0,0,1][0,0,0,2][0,0,1,1][0,0,1,1]  ,退出当前调用函数，完成当前的for循环，返回上层循环
    
82. '               arrResult=[0,0,0,0][0,0,0,1][0,0,0,2][0,0,1,1][0,0,1,2] 调用 myCombination arrList, 2, 4, 3, arrResult
    
83. '      arrResult增加一维 =[0,0,0,0][0,0,0,1][0,0,0,2][0,0,1,1][0,0,1,2][0,0,1,2]  ,退出当前调用函数，完成当前的for循环，返回上层循环
    
84. '               arrResult=[0,0,0,0][0,0,0,1][0,0,0,2][0,0,1,1][0,0,1,2][0,0,2,2] 调用 myCombination arrList, 2,3, 3, arrResult
    
85. '               arrResult=[0,0,0,0][0,0,0,1][0,0,0,2][0,0,1,1][0,0,1,2][0,0,2,2] 调用 myCombination arrList, 2,4, 3, arrResult
    
86. '
    
87. '不停循环

复制代码

raylenewu

lsdongjh 发表于 2020-1-19 11:54

谢谢 ，等到原代码主的回复

raylenewu

lsdongjh 发表于 2020-1-19 11:54

因为arrResult 数组是从0开始，下一个数组的值等于上一个数组的值，最后就产生了最后一个数组和上一个数组的值相同，所以要减1