VB雞兔同籠問題

2022-11-28 03:15:16 字數 814 閱讀 8377

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 四年級的方法 假設法。這個是大多數童鞋的鐘愛。可以先假設籠子裡全部都是雞,算出腳數,肯定比實際數量少一些,為什麼呢?因為有些兔子被咱誤以為是雞,少了兩...