參考彭希仁的遞歸算法

Sub macro1()
Dim arr() As String
getall 9, 3, "", arr
Debug.Print Join(arr, ",")
End Sub
Sub getall(ByVal m As Byte, ByVal n As Byte, ByRef a As String, ByRef arr() As String, Optional ByRef count As Long)
??? If Len(a) = n Then
??????? count = count + 1
??????? ReDim Preserve arr(1 To count)
??????? arr(count) = a
??????? Exit Sub
??? End If
??? For i = 0 To m 'Val(Right(a, 1)) To m
??????? If InStr(a, i) = 0 Then getall m, n, a & i, arr, count
??? Next i
End Sub?

轉載于:https://www.cnblogs.com/fengju/archive/2007/10/30/6336269.html

總結

以上是生活随笔為你收集整理的递归实现数字排列组合的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。