4 lines
134 B
Text
4 lines
134 B
Text
|
Public Function RFib(Term As Integer) As Long
|
||
|
|
If Term < 2 Then RFib = Term Else RFib = RFib(Term - 1) + RFib(Term - 2)
|
||
|
|
End Function
|