13问答网 > 求助VB编程题，斐波那契数列指的是这样一个数列：1,1,2,3,5,8,13,21...用递推和递归方法求解10项

求助VB编程题，斐波那契数列指的是这样一个数列：1,1,2,3,5,8,13,21...用递推和递归方法求解10项

2025-03-03 07:36:06

推荐回答（3个）

回答1：

Private Function fb(n As Integer) As Integer
If n = 1 Or n = 2 Then
fb = 1
Else
fb = fb(n - 1) + fb(n - 2)
End If
End Function

回答2：

function getnext(x as times) as integer
if x=0 or x=1 then
getnext=1
else
getnext=getnext(x-2)+getnext(x-1)
end if
end function

sub main()
msgbox getnext(10)
end sub

人家写明要递归的，啥推荐答案啊，太不负责任了

回答3：

n = inputbox("输入项数",,10)
a = 0
b = 1
for i = 2 to n
c = a + b
a = b
b = c
next
msgbox "第"& n & "项= " & c