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

分类: 作业答案 • 2021-12-24 16:01:15

问题描述：

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

答

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)