作业帮斐波那契数列前一百项和的前五位!
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/01 03:12:47
斐波那契数列前一百项和的前五位!
用VB语言编一个程序可以列出斐波那契数列.
用VB语言编一个程序可以列出斐波那契数列.
Private Sub Command1_Click()
Dim m As Long
Dim n As Integer
n = Val(Text1.Text)
m = fabn(n)
Print m
End Sub
Private Function fabn(ByVal n As Integer) As Long
If n = 1 Or n = 2 Then
fabn = 1
Else
fabn = fabn(n - 2) + fabn(n - 1)
End If
End Function
这个最基本的了
Dim m As Long
Dim n As Integer
n = Val(Text1.Text)
m = fabn(n)
Print m
End Sub
Private Function fabn(ByVal n As Integer) As Long
If n = 1 Or n = 2 Then
fabn = 1
Else
fabn = fabn(n - 2) + fabn(n - 1)
End If
End Function
这个最基本的了