用Excel解决经典鸡兔问题
━━━━━━━━━━━━━━━━━━━━━━━━━━
使用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单元格中等等，篇幅所限，不再赘述。