【正文】
序如下: 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。 斐波那契的兔子問(wèn)題 某人有一對(duì)兔子飼養(yǎng)在圍墻中,如果它們每個(gè)月生一對(duì)兔子,且新生的兔子在第二個(gè)月后也是每個(gè)月生一對(duì)兔子,問(wèn)一年后圍墻中共有多少對(duì)兔子。到第三個(gè)月除最初的兔子新生一對(duì)兔子外,第一個(gè)月生的兔子也開始生兔子,因此共有 5對(duì)兔子。假設(shè)第 N個(gè)月的兔子數(shù)目是 F(N),我們有: 這是因?yàn)槊吭碌拇笸米訑?shù)目一定等于上月的兔子總數(shù),而每個(gè)月的小兔子數(shù)目一定等于上月的大兔子數(shù)目 (即前一個(gè)月的兔子的數(shù)目 )。 Fib(N) End Sub (4)調(diào)試程序 因?yàn)檫@個(gè)算法的效率不高,建議在調(diào)試程序時(shí)月份數(shù)不要大于 40。然后遞歸調(diào)用函數(shù) (或