用Excel解决经典鸡兔问题的五种方法(5)

　　五、 使用VBA编程求解

　　鸡兔问题也可以编程解决。打开菜单“工具”à“宏”à“Visual Basic编辑器”，选择VBA编辑器的“插入”à“模块”菜单，并输入如下代码：

　　Sub chickrabbit()

　　For chick = 1 To 35

　　For rabbit = 1 To 35

　　If (chick + rabbit = 35) And (2 * chick + 4 * rabbit = 94) Then

　　MsgBox "鸡的数量为" & chick & "，兔为" & rabbit

　　End If

　　Next rabbit

　　Next chick

　　End Sub

　　编辑完毕后关闭VBA窗口，然后选择“工具”à“宏”，然后执行chickrabbit宏，就会弹出正确答案，如图 9所示。该程序可以做进一步的改进，例如可以改进执行方式、直接调用工作表数据、将输出结果显示在Excel单元格中等等，篇幅所限，不再赘述。

图9

　　本文分别使用了IF函数试探、双变量模拟运算表、规划求解、矩阵函数和VBA编程等方法对古典鸡兔问题进行求解，目的并不是求解简单数学问题的答案，而是旨在通过多种方法求解，展示Excel的多功能性和解决方式的灵活性，进一步开拓分析问题、解决问题的思路。