问题描述：
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
另外也可以用通项公式求得.如图片.
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
另外也可以用通项公式求得.如图片.
展开全文阅读