1樓：得到謝謝
private sub command1_click()dim a%, b%, c%, d%
a = cint(text1.text)
b = cint(text2.text)
for c = 1 to b \ 2
for d = 1 to b \ 4
if c + d = a and c * 2 + d * 4 = b then
msgbox("雞有" & c & "只" & vbcrlf & "兔有" & d & "只")
end if
next
next
end sub
2樓：匿名使用者
你這麼寫太複雜了,我寫了一個**少點的,你看看吧,在文字框1中輸入總頭數,在文字框2中輸入總腳數即可.
private sub command1_click()dim a%, b%, c%, d%
a = cint(text1.text)
b = cint(text2.text)
for c = 1 to b \ 2
for d = 1 to b \ 4
if c + d = a and c * 2 + d * 4 = b then
msgbox("雞有" & c & "只" & vbcrlf & "兔有" & d & "只")
end if
next
next
end sub
3樓：尼歐趙
很麻煩，不過容錯處理還不錯。但是建議先把演算法搞清楚。
類似雞兔同籠的問題，一個類似雞兔同籠的問題
平均5槍打死兩隻兔子,那一隻兔子就是5 2 2.5槍 9槍打死6只野雞，那一隻野雞就是9 6 1.5槍。轉化為雞兔同籠問題，14只獵物就相當於14個頭，25槍就相當於25只腳。假設打的獵物全是野雞，則應打槍1.5 14 21槍，比實際打的槍數少了25 21 4槍，這四槍是因為一隻兔子要比一隻野雞多打...
雞兔同籠，雞兔64只，共184條，雞兔個幾隻
設雞有x只，則兔有 64 x 只，根據題意有 2x 4 64 x 184 2x 256 184 72 x 36 所以有雞36只，兔28只 假設全是兔，則有腿 64 4 256條 多了 256 184 72條 所以雞有 72 4 2 36只 兔子 64 36 28只 設雞有x只，則兔有64 x只 根據...
要解決雞兔同籠問題最簡單的方法是什麼
有四種方法可以解決 1 二年級的方法 列表法。題目裡說雞兔共8只，兔為0只，算出腳的數量。如果不對再設雞為7只，兔為1只，算出腳的數量，以此類推。2 四年級的方法 假設法。這個是大多數童鞋的鐘愛。可以先假設籠子裡全部都是雞，算出腳數，肯定比實際數量少一些，為什麼呢？因為有些兔子被咱誤以為是雞，少了兩...