猪生猪
一头母猪每年生一头小母猪,小母猪在第四年开始生小母猪,问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编辑过]