vb 编程输出fibonacci数列的前N项

Private Sub Form_Load()
Dim I As Integer
Form1.AutoRedraw = True
For I = 1 To 10
Print Fibonacci(I);
Next I
End Sub
Private Function Fibonacci(ByVal N As Integer) As Long
Dim F(32767) As Long
If N = 1 Or N = 2 Then
Fibonacci = 1
Else
Fibonacci = Fibonacci(N - 1) + Fibonacci(N - 2)
End If
End Function
另外也可以用通项公式求得.如图片.

名师点评：

°花舍°1449