VB6.0编程解“百元买百鸡”问题

1、一百元买一百只鸡：假定小鸡每只5角，公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，编程列出所有可能的购鸡方案。 

2、首先把问题转化为数学问题，列出方程式。

 设母鸡、公鸡、小鸡各为x、y、z只，根据题目要求，列出方程为： 

   x+y+y=100 

   3x+2y+0.5z=100

3、打开VB6.0，新建一个工程，在窗体中添加一个命令按钮，caption改为“开始计算”，添加一个图片框控件，将Form1窗体的caption属性改为“百元买百鸡”，将界面设置成下图：

4、双击“开始计算”命令按钮，进入代码编辑窗口，输入如下代码：

t1 = Time

For x = 0 To 33

For y = 0 To 50

For z = 0 To 100

If 3 * x + 2 * y + 0.5 * z = 100 _

And x + y + z = 100 Then

Picture1.Print x, y, z

End If

Next z

Next y

Next x

t2 = Time

Picture1.Print "方法一花去"; _

DateDiff("s", t1, t2); "秒时间";

5、关闭代码窗口，按下F5运行程序，单击“开始计算”命令按钮，在图片框Picture1中输出结果，如图：

6、可以看出共有7种买鸡方案可供选择，程序中还加入计算机得出结果所花时间的代码，由于计算机运算速度很快，所以不到一秒就得出结果，所以显示花去0秒时间。