Question

vb怎么编写斐波那契数列？

Answer 1

Sub s()
    n = Val(InputBox("input n:"))
    ReDim arr(1 To n)
    arr(1) = 1
    arr(2) = 1
    Debug.Print 1; 1;
    For i = 3 To n
        arr(i) = arr(i - 1) + arr(i - 2)
        Debug.Print arr(i);
    Next
End Sub

Answer 2

利用递归调用，代码如下：
Private Sub Command1_Click()
Dim n As Integer
n = InputBox("请输入n：")
Print Fab(n)
End Sub
Private Function Fab(n As Integer) As Integer
If n = 1 Or n = 2 Then
Fab = 1
Else
Fab = Fab(n - 2) + Fab(n - 1)
End If
End Function

Answer 3

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 Sub