vb用递归法求Fibonacci数列的第20、200项Fibonacci数列前2项均为1,满足公式f(n)=f(n-1)+f(n-_数学解答

vb用递归法求Fibonacci数列的第20、200项
Fibonacci数列前2项均为1,满足公式f(n)=f(n-1)+f(n-2),其中n>3

人气：280 ℃　时间：2020-05-11 07:01:48

解答

dim f() as double
n=inputbox("in","NO.")
redim f(n) as double
f(1)=1
f(2)=1
for i=3 to n
f(i)=f(i-1)+f(i-2)
next
print f(n)