vb 编程输出fibonacci数列的前N项
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/21 14:00:35
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
另外也可以用通项公式求得.如图片.
vb 编程输出fibonacci数列的前N项
用VB编程求Fibonacci数列的第n项
C语言编程:写出一个求Fibonacci数列的前n项和的函数
C语言编程:用函数递归法求Fibonacci数列的前n项·
用VB编程,求Fibonacci数列的前40个数以及它们的和.
求Fibonacci数列的第n项的VB程序
请输出斐波拉契(FIBONACCI)数列的前20项
输出fibonacci数列的前20个数
C语言编程,求Fibonacci数列前40项,每行输出4项.
c语言 求Fibonacci数列前N项的函数,从主函数输出数列,哪错了..
输出Fibonacci数列1,1,2,3,5,8等的前20项,按每行5个数显示.用vb谢谢
第六题:输出fibonacci数列的前20项的值,每行输出一个数.