斐波那契数序列分别用递归法和递推法输出这个数列的前20项VB代码

来源：百度知道 编辑：UC知道 时间：2024/07/06 16:19:55
分别用递归法和递推法输出这个数列的前20项VB代码
第二十项为6765
输出前二十项，就是显示全部二十项，并且分别用递归法和递推法排列前二十项！

Private Function F(n As Long) As Long
If n > 2 Then
F = F(n - 1) + F(n - 2)
Else
F = 1
End If
End Function

Private Sub Command1_Click()
Cls
Dim I as long
For i=1 to 20
Print "第" & I & "项:" & F(i)
Next
End Sub

Private Function F(n As Double) As Double
If n > 2 Then
F = F(n - 1) + F(n - 2)
Else
F = 1
End If
End Function

Private Sub Command1_Click()
Print F(20)
End Sub