中国DOS联盟

【问题】: 公鸡1只5元，母鸡1只3元，小鸡3只1元
求百只鸡总价刚好是100元的所有组合
我用For是输出正解4 ，但采用Do. while ...loop 输出0。请大家帮我看下
难道我格式写错了？ 还是do..while不支持嵌套?

【代码】

' 利用Do...loop 解决百鸡问题 : 百只鸡总价百元的所有组合

dim cock,hen,chick,count

cock=0   '公鸡

hen=0    '母鸡

chick=0  '小鸡

count=0  '所有解



do while cock<20       '公鸡

  do while hen<33           '母鸡

    do While chick<100        '小鸡

      if cock*5+hen*3+chick*1/3=100 and chick+hen+cock=100 then      

        count=count+1

      end if

      chick=chick+1 

    loop 

    hen=hen+1

  loop 

  cock=cock+1

loop 

msgbox(count)

[ Last edited by HAT on 2009-1-7 at 21:34 ]

内层循环重新开始后没有初始化变量为0

dim cock,hen,chick,count
cock=0 '公鸡
hen=0 '母鸡
chick=0 '小鸡
count=0 '所有解

do while cock<20 '公鸡
do while hen<33 '母鸡
do While chick<100 '小鸡
if cock*5+hen*3+chick*1/3=100 and chick+hen+cock=100 then
count=count+1
end if
chick=chick+1
loop
hen=hen+1
chick = 0
loop
cock=cock+1
chick=0
hen=0
loop
msgbox(count)


没看你的代码，就加了两句初始化的代码.

非常感谢！ 看来我还是太马虎了 ！