用VB编程解决百鸡问题.doc

《用VB编程解决百鸡问题.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、用VB编程解决百鸡问题百鸡问题:我国古代数学家张丘建在“算经”里提出一个数学史上有名的百鸡问题。例题：鸡翁一，值钱五；鸡母一，值钱三；鸡雏三，值钱一；百钱买百鸡，问鸡翁、母、雏各几何？算法思想:设z，y，z分别代表公鸡、母鸡、小鸡的只数。首先确定z，y，z的取值范围:1、若100个钱全买公鸡，则最多可买20只，即x的取值范围是0~20。2、若100个钱全买母鸡，则最多可买33只，即y的取值范围是0~33。3、当x，y在各自的取值范围内确定某个值后，则小鸡的只数，z=100-x-y也确定了。4、让x从0变化到20，当x取某值时再让y从0变化到33，当y取某个值时，z的值也定了如果x*5+

2、y*3+z/3=100成立则x,y,z当前的值就是答案。设计程序1:PrivateSubCommand1_Click()Fori=0To20Forj=0To33k=100-i-jIfi*5+j*3+k/3=100ThenPrint"公鸡、母鸡、小鸡分别为"&i&""&j&""&k&"只"Nextj,iEndSub还有一种更懒的方法:设计程序1:PrivateSubCommand1_Click()Fori=0To99Forj=0To99-ik=100-i-jIfi*5+j*3+k/3=100ThenPrint"公鸡、母鸡、小鸡分别为"&i&""&j&""&k&"只"Nextj,iEndS

3、ub两个程序都是用了VB的FOR循环，很简单这就是编程的魅力