VBA入门到进阶常用知识代码总结46

第46集 组合之递归算法
203、 递归基础
1 什么是递归？
递归就是自已调用自已。
2 用递归有什么好处？
简化代码，让程序更简捷。特别是在循环层数不定的情况下可以大大简单代码。
3 递归有什么坏处？
因为递归在使用时会产生大量储存临时信息的“栈”（按先进先出储存信息），所以运行效果比较低，所以一般不建议使用递归设计程序。
204、 示例
计算4的阶乘 (4 * 3 * 2 * 1 = 24)
Sub 一般方法()
Dim k, x
k = 1
For x = 4 To 1 Step -1
k = k * x
Next x
MsgBox k
End Sub

递归方法计算阶乘：
Sub 递归1()
MsgBox jiecheng(5)
End Sub

'函数法
Function jiecheng(n As Integer) As Integer
If n = 1 Then
jiecheng = 1
Else
jiecheng = n * jiecheng(n - 1)
End If
End Function

组合问题：

Option Explicit
Dim arr1(1 To 100, 1 To 1) '把分组后的结果放在arr1中
Dim k As Integer '作为arr1填充时的行数
Sub 组合(