它可以簡化如下:
兔子分為小、中、大三種。
我生的小，第二個月是中，第三個月是大(當我變大的時候，我生的小)。
上個月大=中+大。
上個月中等=小。
這個月小=大。
-
Sub TuZi()
尺寸I，n，s，a1，a2，a3，x()
N =第40個月
ReDim x(1到n)
a1 = 1: a2 = 0: a3 = 0
對於i = 1到n
x(i) = a1 + a2 + a3
a3 = a2 + a3
a2 = a1
a1 = a3
然後
用[h1]'輸出到excel表。
. EntireColumn.ClearContents
。Resize(UBound(x)) =應用程序。工作表Function.Transpose(x)
。偏移(欠邊界(x))。挑選
以…結尾
將Join(x，vbCrLf)輸出打印到打印窗口。
MsgBox Join(x，vbCrLf)'輸出到彈出窗口。
末端接頭