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&"种方案")