标题: [已结]VBS用Do...While 解决百鸡百元问题,输出失败. [打印本页]
作者: fy2045 时间: 2009-1-7 16:43 标题: [已结]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 ]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)
作者: mountvol 时间: 2009-1-7 17:00
内层循环重新开始后没有初始化变量为0
作者: mountvol 时间: 2009-1-7 17:11
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)
没看你的代码，就加了两句初始化的代码.
作者: fy2045 时间: 2009-1-7 18:34
非常感谢！ 看来我还是太马虎了 ！