递归函数求斐波拉契数列

[vb]代码库

Option Explicit
Private Sub Command1_Click()
    Dim a1, a2, b As Integer
    Dim i, n As Integer
     n = InputBox("显示数列的前N项")
     a1 = 1
     For i = 1 To n
       b = a1 + a2
     Text1.SelText = b & " "
     a1 = a2
      a2 = b
    Next i
End Sub

Private Sub Command2_Click()
 End
End Sub