全民一起VBA实战篇 专题4 第五回 递归算法流程独特 大事化小思路清奇

相关知识点：

区别于循环在于，把大问题转换成小问题，总结递进的推导公式；知道最小问题的答案（递归的停止条件）。

例1 阶乘(循环语句)

Sub demo()

       Msgbox 阶乘(4)

End Sub

Function 阶乘(n as long)

       Dim s, i

       s=1

       For i=1 To n

              s=s*i

       Next  i

       阶乘=s

End Function

 

例2阶乘（递归）

Sub demo()

       Msgbox 阶乘(4)

End Sub

Function 阶乘(n as long)

       Dim s

       If n=1 Then

              s=1

       Else

              s=n*阶乘(n-1)

       End If

       阶乘=s

End Function