五、 使用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的多功能性和解决方式的灵活性，进一步开拓分析问题、解决问题的思路。