百鸡百钱算法

运行环境：分辨率：1440×900 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：7.20.5178

@按键小小生2010/5/27

hen=0   chicken=0   n=0   For 20       For 33           chicken=100-cock-hen           a=chicken Mod  2           b=cock*5+hen*3+chicken/2           If a=0 and b=100               n=n+1               text="第"&CStr(n)&"方案为：公鸡"&CStr(cock)&"只/母鸡"&CStr(hen)&"只/小鸡"&CStr(chicken)&"只"               VBSCall MessageBox(text)           EndIf            hen=hen+1       EndFor        hen=0       cock=cock+1   EndFor    VBSCall MessageBox("总共"&n&"种方案")