1. cock=0
2. hen=0
3. chicken=0
4. n=0
5. 循环 20 遍
6.     循环 33 遍
7.         chicken=100-cock-hen
8.         a=chicken Mod 2
9.         b=cock*5+hen*3+chicken/2
10.         如果表达式 (a=0 and b=100) 为真,则
11.             n=n+1
12.             text="第"&CStr(n)&"方案为：公鸡"&CStr(cock)&"只/母鸡"&CStr(hen)&"只/小鸡"&CStr(chicken)&"只"
13.             调用外部VBScript子程序 MessageBox(text)
14.         条件结束
15.         hen=hen+1
16.     循环结束
17.     hen=0
18.     cock=cock+1
19. 循环结束
20. 调用外部VBScript子程序 MessageBox(text)