请问用递归法怎样写VB语句?还有 VB中的递归法是怎样的?Fibonacci数列的第一项和第二项为1,以后各项均是前两项的和,请用递归算法编写一程序,求出该数列的前N项.

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/28 03:07:41
请问用递归法怎样写VB语句?还有 VB中的递归法是怎样的?Fibonacci数列的第一项和第二项为1,以后各项均是前两项的和,请用递归算法编写一程序,求出该数列的前N项.

请问用递归法怎样写VB语句?还有 VB中的递归法是怎样的?Fibonacci数列的第一项和第二项为1,以后各项均是前两项的和,请用递归算法编写一程序,求出该数列的前N项.
请问用递归法怎样写VB语句?还有 VB中的递归法是怎样的?
Fibonacci数列的第一项和第二项为1,以后各项均是前两项的和,请用递归算法编写一程序,求出该数列的前N项.

请问用递归法怎样写VB语句?还有 VB中的递归法是怎样的?Fibonacci数列的第一项和第二项为1,以后各项均是前两项的和,请用递归算法编写一程序,求出该数列的前N项.
Private Sub Form_load()
Dim i As Long,n as integer
n=int(val(inputbox("输入Fibonacci数列的项数")))
For i = 1 To n
Print Fibonacci(i)
Next
End Sub
Private Function Fibonacci(n As Long)As Long
If n = 1 Then
Fibonacci = 1
ElseIf n = 2 Then
Fibonacci = 1
Else
Fibonacci = Fibonacci(n-1)+Fibonacci(n-2)
End If
End Function