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

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

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息