求VB递归的实例代码

2025-02-26 18:10:01

推荐回答（1个）

回答1：

下列代码是经典的递归调用. 函数F(n)计算n的阶乘.

Private Sub Command1_Click()
MsgBox F(10)
End Sub

'用递归的算法来算阶乘
Public Function F(ByVal n As Long) As Double
If n = 0 Then
'当 n=0 时, 是基本定义, 0!=1, 所以让 F=1 然后计算结束退出函数
F = 1
Exit Function
Else
'当 n>0 时, n! 为 n * (n-1)!
'所以以下语句再次调用函数本身计算 n-1 的阶乘, 这就叫递归调用
F = n * F(n - 1)
End If
End Function