其实我也不大会数学,我的主张也跟楼上斑竹一样,让电脑替我们考虑问题:
Private Sub Timer1_Timer()
For gj = 0 To 100
For mj = 0 To 100
For xj = 0 To 100
If gj * 5 + mj * 3 + xj / 3 = 100 And gj + mj + xj = 100 Then Print "公鸡:" & gj & " 母鸡:" _
& mj & " 小鸡:" & xj
Next xj
Next mj
Next gj
Timer1.Enabled = False
End Sub

运行结果:
公鸡:0 母鸡:25 小鸡:75
公鸡:4 母鸡:18 小鸡:78
公鸡:8 母鸡:11 小鸡:81
公鸡:12 母鸡:4 小鸡:84

[此贴子已经被作者于2007-6-18 22:43:25编辑过]

呵呵...我这也是算法啊...而且是一个创新的算法...就叫懒人算法吧.呵呵
.用我的这个算法去做这题目确是不好.
却不失为一种创造性的东西,一种艺术性的东西.我只是看到了他们都用for和结合解数学
公式去做.我就想能不能用另一种方法去实现呢.所以就想到了这种方法.我就是那么
一个喜欢反叛的人.经典的算法我们确实要好好地去学...这是不能懒惰的...我正在努力
学习当中呢.....呵呵....

呵呵...楼上斑主今天喝酒了吧...酒后吐真言...嘻嘻
不过我喜欢...学编程的数学可以丢,但数学思维就决不能丢.

小弟用DO献丑了.做得不好别见笑啊:
Dim gjs%, mjs%, xjs%
Private Sub Timer1_Timer()
Do While gjs <= 100
mjs = 0
Do While mjs <= 100
xjs = 0
Do While xjs <= 100
If gjs * 5 + mjs * 3 + xjs / 3 = 100 And gjs + mjs + xjs = 100 Then Print "公鸡:" & gjs & " 母鸡:" & mjs & " 小鸡:" & xjs
xjs = xjs + 1
Loop
mjs = mjs + 1
Loop
gjs = gjs + 1
Loop
Timer1.Enabled = False
End Sub

[此贴子已经被作者于2007-6-19 0:23:09编辑过]

楼上的程序是不是还可以改进些呢？
这个只是百鸡问题，但如果是亿鸡问题呢？

我的没有for也没有do

你那个“算法”只能说是一种别样的想法，但你有没有想过如果要求出所有解，你的程序可能永远得不到答案？