VB递归编程求菲薄拉西数列的前10项

提问：VB递归编程求菲薄拉西数列的前10项

用vb的递归编程求菲薄拉西数列的前10项

回答：

数列：

1,1,2,3,5,8,13...

Private Sub ShowF(n As Long)
    Dim i As Long
    For i = 1 To n
        Print Fibonacci(i)
    Next
End Sub

Private Function Fibonacci(n As Long)As Long
    If n = 1 Then
        Fibonacci = 1
    ElseIf n = 2 Then
        Fibonacci = 1
    Else
        Fibonacci = Fibonacci(n-1)+Fibonacci(n-2)
    End If

End Function

转贴于：立珊网络计算机专业网站