编一函数求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