一头母猪每年生一头小母猪,小母猪在第四年开始生小母猪,问20年后,有多少只猪?

初步写了一下，不知道对不对，大家研究一下

Private Sub Command1_Click() Dim 年 As Integer Dim 猪的总数 As Integer

Dim 一岁的猪 As Integer Dim 二岁的猪 As Integer Dim 三岁的猪 As Integer Dim 能生的猪 As Integer

猪的总数 = 1 一岁的猪 = 0 二岁的猪 = 0 三岁的猪 = 0 能生的猪 = 1

For 年 = 1 To 20 '年复一年 能生的猪 = 能生的猪 + 三岁的猪 三岁的猪 = 二岁的猪 二岁的猪 = 一岁的猪 一岁的猪 = 能生的猪 猪的总数 = 能生的猪 + 一岁的猪 + 二岁的猪 + 三岁的猪 Next Debug.Print 猪的总数 End Sub

我得到的结果是2745头

[此贴子已经被作者于2004-06-14 13:24:53编辑过]

[此贴子已经被作者于2004-06-14 14:35:12编辑过]

除了野生的猪和天上的猪八戒外，其他的猪是过不了三岁生日的， 还有就是楼主的问题，如果有此猪被禁育生不了猪怎么办？。

你们好强,我想拜师学艺,不嫌我笨的话就收下我吧!

dim a(20) as integer

a(1)=2

a(2)=3

a(3)=4

for i=4 to 20

a(i)=a(i-1)+a(i-3)

next

print a(20)

我觉的你比这个要做的好,你找的是大规律,它找的是小规律,还是你强,结果一样

你的代码比较简洁呀，历害。