
CODE: [Copy to clipboard][ Last edited by HAT on 2009-1-7 at 21:34 ]' 利用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)
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |