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

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/28 12:57:26
vb 编程输出fibonacci数列的前N项
xTk@WJa"&\sI\[BaTQu].i{t>P郺|Aq:V_&$n.H=lhg|s"헝uNf}N[_ $H.%^y?+m)ΡHXE)gchKDf^3F#F6cd̜HrGvu1-vF^kRp)~We U+Rt#iUi#O_P/]T4aL<(Jg? &t%];ͬqҚ;LJO&S='_7hWSh=uhq<$\.m$ :2F0}q=,`.#z̻E(D,R9d"G7 ӁCȣF7v?XasyYS/hB [̵LL X3=@gڜ^&w

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 
另外也可以用通项公式求得.如图片.