一个VB程序我国古代数学家张丘建在“算经”里提出一个世界数学史上有名的百鸡问题：鸡翁一、值钱五、鸡母一、值钱三、鸡雏三、值钱一,百钱买百鸡,问鸡翁、母、雏各几何?

Question

一个VB程序
我国古代数学家张丘建在“算经”里提出一个世界数学史上有名的百鸡问题：鸡翁一、值钱五、鸡母一、值钱三、鸡雏三、值钱一,百钱买百鸡,问鸡翁、母、雏各几何?

Answer 1

private su form_click()
dim i%,j%,k%
print tab(5);"公鸡";tab(15);"母鸡";tab(25);"小鸡"
for i = 0 to 20
for j = 0 to 33
for k = 0 to 100 step 3
if i*5+j*3+k\3=100 and i+j+k=100 then
print tab(5);i;tab(15);j;tab(25);k
end if
next k,j,i
end sub