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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024