“鸡兔同笼”、“百元买百鸡鹁鼍漉糍”问题是经典的数学运算问题,在没有计算机之前都是通过把所以可能的情形依依列举出来,然后汇总出所有方喟火杰焚案,这样计算过程相当繁琐,接下来介绍用VB6.0编程进行求解,这在方案优化设计、比选中用得也很多。
工具/原料
VB6.0
计算机(WIN7系统)
方法/步骤
1、一百元买一百只鸡:假定小鸡每只5角,公鸡每只2元,母鸡每只3元。现在有100元钱要求买100只鸡,编程列出所有可能的购鸡方案。
2、首先把问题转化为数学问题,列出方程式。设母鸡、公鸡、小鸡各为x、y、z只,根据题目要求,列出方程为:x+y+y=1003x+2y+0.5z=100
3、打开VB6.0,新建一个工程,在窗体中添邹菁惨挣加一个命令按钮,caption改为“开始计算”,添加一个图片框控件,将Form1窗体的caption属性改为“百元买百鸡”,将界面设置成下图:
4、双击“开始计算”命令按钮,进入代码编辑窗口,输入如下代码:t1=TimeForx=咯悝滩镞0To33Fory=0To50Forz=0To吭稿荔徊100If3*x+2*y+0.5*z=100_Andx+y+z=100ThenPicture1.Printx,y,zEndIfNextzNextyNextxt2=TimePicture1.Print"方法一花去";_DateDiff("s",t1,t2);"秒时间";
5、关闭代码窗口,按下F5运行程序,单击“开始计算”命令按钮,在图片框Picture1中输出结果,如图:
6、可以看出共有7种买鸡方案可供选择,程序中还加入计算机得出结果所花时间的代码,由于计算机运算速度很快,所以不到一秒就得出结果,所以显示花去0秒时间。