zhouyongjun

'x：公鸡，y：母鸡，小鸡：z
dim x,y,z
n=0
for x=0 to 24
    for y=0 to 33
        for z=0 to 100
            if x+y+z=100 and 5*x+3*y+0.5*z=100 then
              n=n+1
              msgbox("第"&n&"组答案:"&"  "&x&"  "&y&"  "&z)
            end if
         next
     next
next
复制代码