百鸡百钱算法

运行环境：分辨率：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&"种方案")