【正文】
序如下: Function Fib(ByVal N As Integer) As Long If N 3 Then Fib = 1 Else Fib = Fib(N 1) + Fib(N 2) End Function Private Sub Command1_Click() N = Val() = 第 amp。 月的兔子數(shù)目是: amp。 斐波那契的兔子問題 某人有一對兔子飼養(yǎng)在圍墻中,如果它們每個月生一對兔子,且新生的兔子在第二個月后也是每個月生一對兔子,問一年后圍墻中共有多少對兔子。到第三個月除最初的兔子新生一對兔子外,第一個月生的兔子也開始生兔子,因此共有 5對兔子。假設(shè)第 N個月的兔子數(shù)目是 F(N),我們有: 這是因為每月的大兔子數(shù)目一定等于上月的兔子總數(shù),而每個月的小兔子數(shù)目一定等于上月的大兔子數(shù)目 (即前一個月的兔子的數(shù)目 )。 Fib(N) End Sub (4)調(diào)試程序 因為這個算法的效率不高,建議在調(diào)試程序時月份數(shù)不要大于 40。然后遞歸調(diào)用函數(shù) (或