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

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/03 04:34:13

vb 编程输出fibonacci数列的前N项
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 
另外也可以用通项公式求得.如图片.