vb中编程求fibonacci数列的前20项,并按每5项一行显示.要求用递归过程来实现fibon

发布网友发布时间：2022-05-02 08:40

共1个回答

热心网友时间：2023-10-14 06:40

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 30
Print i; ": "; fib(i)
Next i
End Sub

Function fib(n As Integer) As Long
If n < 3 Then
fib = 1
Else
fib = fib(n - 1) + fib(n - 2)
End If
End Function

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com