题目

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

提问时间：2021-02-11

答案

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)