用VB编程求解经典问题-斐波那契数列

斐波那契数列

什么是斐波那契数列？斐波那契数列前两个数为1，从第三个数开始，每一个数均为前面两个数的和。

已知斐波那契数列为：1,1,2,3,5,8,……。

请编写一个具有一个整型参数n的函数，计算并返回此数列第n个数的值。

代码实现

Private Sub Form_Click()

    Dim A, B, C, N, i    As Integer

    A = 2: B = 3

    Print A, B,

    N = InputBox('N=') '通过输入对话框输入N值

    For i = 3 To N

        C = A + B

        Print C,

        A = B: B = C

        If i \ 5 = i / 5 Then Print '控制每行输出5个数

    Next i

End Sub

程序实际运行图

​