求高手帮忙,,一个VB程序

来源：百度知道 编辑：UC知道 时间：2024/06/14 11:46:55
我国古代数学家张丘建在“算经”里提出一个世界数学史上有名的百鸡问题：鸡翁一、值钱五、鸡母一、值钱三、鸡雏三、值钱一，百钱买百鸡，问鸡翁、母、雏各几何？

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