|
|
所谓的递归，讲得简单一点就是一个函数在其代码中反复调用自身。
以下为几种VBA递归的函数代码，希望对您有所帮助。
一、普通级的VBA递归函数代码
①累加循环
Function sum2_2(m) As Long '1+2+3+……+10 '也可以自定义从 任何数 n - n+m 之间
For i = 1 To m
sum2_2 = sum2_2 + i
Next
End Function
Function sum2(m) As String '1+2+3+……+10 '也可以自定义从 任何数 n - n+m 之间
If m = 1 Then sum2 = 1 Else sum2 = m + sum2(m - 1)
End Function
②阶乘递归 '1*2*3*……*10 '也可以自定义从 任何数 n - n+m 之间
Function jc(m) As String
If m = 1 Then jc = 1 Else jc = m * jc(m - 1)
End Function
'1*2*3*……*10 '也可以自定义从 任何数 n - n+m 之间
Function jc_2(m) As Long
For i = 1 To m
If i = 1 Then
jc_2 = 1
Else
jc_2 = jc_2 * i
End If
Next
End Function
③组合递归
Function COMBIN2(m, n) As String
If n = 1 Then COMBIN2 = m Else COMBIN2 = COMBIN2(m - 1, n - 1) * m / n
End Function
Function COMBIN2_2(m, n) As String
Dim i As Long, x As String, y As String, z As String
x = 1
For i = 1 To m
x = x * i
Next i
y = 1
For i = 1 To n
y = y * i
Next i
z = 1
For i = 1 To m - n '从这里可以看出 m > n 为好
z = z * i
Next i
COMBIN2_2 = x / (y * z)
End Function
二、著名的递归函数代码
①菲波纳契数列循环
'我们求 从 第一步 1, 第二步 2 第三步(1+2=3)…… 到 20 步 后 得到是什么呢 ?
Function FBNQ_2(m&, n&, k&) As String
Dim i As Long
For i = 1 To k - 2
If i = 1 Then
m = m + n
ElseIf i = 2 Then
n = m + n
Else
FBNQ_2 = m + n
m = n '迭代
n = FBNQ_2 '迭代
End If
Next
End Function
②菲波纳契数列递归
Function FBNQ(m&, n&, k&) As String
FBNQ = m + n
m = n '迭代
n = FBNQ '迭代
If k < 4 Then Exit Function
FBNQ = FBNQ(m&, n&, k - 1)
End Function
|
|
