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

作者:

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

fy2045
新手上路

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

『楼主』: [已结]VBS用Do...While 解决百鸡百元问题,输出失败. 使用 LLM 解释/回答一下

【问题】: 公鸡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 楼』: 使用 LLM 解释/回答一下

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

2009-1-7 17:00

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

编辑帖子回复引用回复

mountvol
初级用户

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

『第 3 楼』: 使用 LLM 解释/回答一下

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 楼』: 使用 LLM 解释/回答一下

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

2009-1-7 18:34

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

编辑帖子回复引用回复