已知Fibonacci数列定义如下：F(1)=1F(2)=1F(n)=f(n-1)+f(n-2)(n>2).求Fibonace:数列的第18项已知Fibonacci数列定义如下：F(1)=1F(2)=1F(n)=f(n-1)+f(n-2)(n>2).求Fibonace:数列的第18项

Question

已知Fibonacci数列定义如下：F(1)=1 F(2)=1 F(n)=f(n-1)+f(n-2)(n>2).求Fibonace:数列的第18项
已知Fibonacci数列定义如下：F(1)=1 F(2)=1 F(n)=f(n-1)+f(n-2)(n>2).求Fibonace:数列的第18项

Answer 1

Private Sub Form_Click()
Dim f(100) As Long
f(1) = 1
f(2) = 1
Print 1; f(1)
Print 2; f(2)
For i = 3 To 18
f(i) = f(i - 1) + f(i - 2)
Print i; f(i)
Next
End Sub
运行结果：f（18）＝2854