遞歸（VBA實現）

案列： 給定n個數，取任意g個數之和等於h的組合。

采用遞歸的方式實現：

Option Explicit
Dim arr1(1 To 10000, 1 To 1) As String
Dim k, g, h As Integer
Dim arr
Dim k1

Sub merge()
    k = 0
    Dim t
    t = Timer
    Erase arr1    ' 清空數組中數據
    arr = Range("a2:a" & Range("a65535").End(xlUp).Row)
    g = [b2]  '個數
    h = [c2]  '和
    zuhe 1, 0, "", 0
    Range("d2").Resize(k) = arr1
    [e1] = k1
    MsgBox "找到" & k & "個解！花費" & Format(Timer - t, "0.00") & "秒"

End Sub
Sub zuhe(x%, z%, sr$, gg As Byte)
    If z + arr(x, 1) = h And gg = g - 1 Then
        k = k + 1
        arr1(k, 1) = sr & arr(x, 1) & " = " & h
        Exit Sub
    End If
    If x < UBound(arr) And z < h Then
        If z + arr(x, 1) < h Then
            zuhe x + 1, z + arr(x, 1), sr & arr(x, 1) & "+", gg + 1
        End If
        zuhe x + 1, z, sr, gg
    End If
End Sub

　　遞歸依次取數，滿足x < UBound(arr)，And z < h,執行語句

zuhe x + 1, z + arr(x, 1), sr & arr(x, 1) & "+", gg + 1  '取出 

zuhe x + 1, z, sr, gg   '釋放

arr1(k, 1) = sr & arr(x, 1) & " = " & h     '生成的符合條件的組合存在arr1中，　

過程：

 

 遍歷（不斷的取值和釋放值）后得到符合條件的組合。