[已结]VBS用Do...While 解决百鸡百元问题,输出失败. - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

作者:

标题: [已结]VBS用Do...While 解决百鸡百元问题,输出失败.

fy2045
新手上路

积分 6
发帖 6
注册 2008-12-14
状态离线

『楼主』: [已结]VBS用Do...While 解决百鸡百元问题,输出失败.

【问题】: 公鸡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 ]

2009-1-7 16:43

查看资料发送邮件发短消息网志

mountvol
初级用户

积分 186
发帖 117
注册 2006-8-14
状态离线

『第 2 楼』:

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

2009-1-7 17:00

查看资料发送邮件发短消息网志

mountvol
初级用户

积分 186
发帖 117
注册 2006-8-14
状态离线

『第 3 楼』:

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) 没看你的代码，就加了两句初始化的代码.

此帖被 +2 点积分点击查看详情

2009-1-7 17:11

查看资料发送邮件发短消息网志

fy2045
新手上路

积分 6
发帖 6
注册 2008-12-14
状态离线

『第 4 楼』:

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

2009-1-7 18:34

查看资料发送邮件发短消息网志