前言
如果你家有娃正在上小學(xué),雞兔同籠問(wèn)題肯定會(huì)遇到祖很。這是一個(gè)古老的題型笛丙，《孫子算經(jīng)》中就記載了這個(gè)有趣的問(wèn)題。書(shū)中是這樣敘述的：“今有雉兔同籠假颇，上有三十五頭胚鸯，下有九十四足，問(wèn)雉兔各幾何笨鸡？
這四句話的意思是：有若干只雞兔同在一個(gè)籠子里姜钳，從上面數(shù)，有35個(gè)頭形耗；從下面數(shù)哥桥，有94只腳。求籠中各有幾只雞和兔趟脂？
?學(xué)院派解決方案
這個(gè)肯定要列方程啊泰讽，步驟大體如此：
解:
設(shè)雞為X只,那么兔為(35-X)只
根據(jù)題意:
2X+4(35-X)=94
X=23
35-X=12
所以:雞23只,兔12只
當(dāng)然你還可以列兩個(gè)未知數(shù)，通過(guò)加減消元來(lái)解出答案。
?民間高手解決方案
?假設(shè)雞和兔都訓(xùn)練有素已卸，吹一聲哨佛玄，抬起一只腳，地上還有94-35=59只腳累澡。再吹哨梦抢，又抬起一只腳，地上還剩59-35=24只腳愧哟，這時(shí)雞都一屁股坐地上了奥吩，兔子還兩只腳立著。所以蕊梧，兔子有24÷2=12只霞赫，雞有35-12=23只。
?EXCEL?VBA解決方案
那么如何用EXCEL來(lái)做呢肥矢？
首先ALT+F11打開(kāi)VBA編輯器端衰，插入模塊，在模塊下輸入下列代碼甘改，單引號(hào)’后面為注釋?zhuān)粎⑴c程序運(yùn)行旅东。
Sub?chicken_rabbit()?'定義過(guò)程
head?=?35?'雞和兔共有35個(gè)頭
foot?=?94?'雞和兔共有94只腳
For?chicken?=?1?To?head?'雞的數(shù)量從1到35進(jìn)行循環(huán)
???rabbit?=?head?-?chicken?'兔的數(shù)量等于35減去雞的數(shù)量
????If?chicken?*?2?+?rabbit?*?4?=?foot?Then?'如果雞和兔的腳為94只
???????MsgBox?("答案:"&?Chr(10)?&?"雞"&?chicken?&?"只"&?Chr(10)?&?"兔"&?rabbit?&?"只")'彈出對(duì)話框，顯示答案
????EndIf?'判斷結(jié)束
Next?'循環(huán)十艾，雞的數(shù)量加一
End?Sub?'過(guò)程結(jié)束
運(yùn)行結(jié)果如下：
?知識(shí)點(diǎn)
學(xué)習(xí)EXCEL和VBA要找到應(yīng)用場(chǎng)景抵代，沒(méi)有場(chǎng)景，創(chuàng)造場(chǎng)景也要上忘嫉。
FOR……NEXT循環(huán)語(yǔ)句
IF…….THEN……ELSE判斷語(yǔ)句
MSGBOX消息框
Chr(10)換行符
&連字符荤牍，將多個(gè)字符和變量連接起來(lái)，形成字符串榄融。
