作业帮 > 数学 > 作业

编一函数求Fibnacci数列中 fib(n)的值,要求用迭代而不是用递归法

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:数学作业 时间:2024/05/25 17:52:58
编一函数求Fibnacci数列中 fib(n)的值,要求用迭代而不是用递归法
紧急
编一函数求Fibnacci数列中 fib(n)的值,要求用迭代而不是用递归法
用VB写的~
Private Sub Form_Load()
Dim fn&,f1&,f2&,n%
f1 = 1:f2 = 1
n = Val(InputBox("请输入n"))
fn = f1 + f2
Print f1
Print f2
Print fn
For i = 1 To n
f1 = f2
f2 = fn
fn = f1 + f2
Print fn
Next i
End Su