(程式語言)VB 考題幫忙解答

Question

試問雞兔一窩，雞2隻腳、兔4隻腳，總共有32隻腳要如何知道雞鴨總共幾隻？
拜託高手幫忙解答此題

wjs大師那假設雞有4隻兔6隻的話呢

Answer 1

'試問雞兔一窩...雞鴨總共幾隻,這是腦筋急轉彎嗎?ANS:雞0~16之偶數隻,鴨沒半隻
圖片參考：http://tw.yimg.com/i/tw/blog/smiley/6.gif

'沒有說明全部共幾隻,只好都列出來
Private Sub Command1_Click()
Dim I As Integer

For I = 0 To 32 / 4
If (32 - I * 4) Mod 2 = 0 Then Print "雞 ="; (32 - I * 4) / 2; "隻 兔 ="; I; "隻"
Next
End Sub

2007-01-09 16:00:23 補充：
雞兔同籠的問題,應該是要這麼問吧:
雞有2隻腳,兔有4隻腳,雞加兔共有32隻腳,雞加兔共有?隻(你少了這個條件),求雞有幾隻 , 兔有幾隻?
假設你的問題改成...雞加兔共有10隻,求雞有幾隻 , 兔有幾隻?
設雞=X隻,兔=Y隻
X Y=10 > *2 = 2X 2Y=20→(A)
2X 4Y=32→(B)
B-A→2Y=

2007-01-09 16:12:07 補充：
假設你的問題改成...雞加兔共有N隻腳,雞加兔共有T隻,求雞有幾隻 , 兔有幾隻?
設雞=X隻,兔=Y隻
X Y=T→(A)
2X 4Y=N→(B)
(B)-(A)*2→2Y= N - 2T→Y=(N-2T)/2
代入(A)→ X=(4T-N)/2

2007-01-09 16:16:34 補充：
N=Inputbox("共有幾隻腳")
T=Inputbox("雞加兔共有幾隻")

Print "雞 =" ; (4 * T - N) / 2
Print "兔=" ; (N - 2 * T) / 2