中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-11 04:26 		共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行
DOS批处理 & 脚本技术（批处理室） » [已结]VBS用Do...While 解决百鸡百元问题,输出失败.
可打印版本 　876 / 3
第1楼　fy2045 发表于 2009-01-07 16:43
新手上路　发帖 6　积分 6
[已结]VBS用Do...While 解决百鸡百元问题,输出失败.
【问题】: 公鸡1只5元，母鸡1只3元，小鸡3只1元
求百只鸡总价刚好是100元的所有组合
我用For是输出正解4 ，但采用Do. while ...loop 输出0。请大家帮我看下
难道我格式写错了？ 还是do..while不支持嵌套?

【代码】


[ Last edited by HAT on 2009-1-7 at 21:34 ]
第2楼　mountvol 发表于 2009-01-07 17:00
初级用户　发帖 117　积分 186
内层循环重新开始后没有初始化变量为0
第3楼　mountvol 发表于 2009-01-07 17:11
初级用户　发帖 117　积分 186
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)


没看你的代码，就加了两句初始化的代码.
第4楼　fy2045 发表于 2009-01-07 18:34
新手上路　发帖 6　积分 6
非常感谢！ 看来我还是太马虎了 ！
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023