dim y as integer
x=0
do while x<33
y=0
do while y<(100-3*x)/2
if 3*x+2*y+(100-x-y)/2-100<0.0001 then
print x,y,100-x-y
endif
y=y+1
loop
x=x+1
loop
1、本程序註意效率
本程序兩層循環可解決問題，並且第二層不必全部循環到50。
2、本程序註意系統計算誤差控制，不用兩個計算值直接進行相等比較，采用相減差小於某壹小值控制。
x代表母雞
y代表公雞
100-x-y代表小雞