VBA雞兔同籠問題，不要之前百度過的，要自己真的寫了可以運行的！！！

Sub adsf()

Dim n%, m%, TS%, JS%

n = InputBox("請輸入總的個數：")

If n = 0 Then GoTo 5

10:

m = InputBox("請輸入總的腳數：")

If m = 0 Or m Mod 2 <> 0 Or m < 2 * n Then

MsgBox "輸入腳數不合理，請重新輸入：", vbOKOnly + 64

GoTo 10

End If

TS = (m - 2 * n) / 2

JS = (4 * n - m) / 2

If TS < 0 Or JS < 0 Or TS + JS <> n Or 4 * TS + 2 * JS <> m Then GoTo 10

MsgBox "雞有：" & JS & "只" & Chr(13) & "兔有：" & TS & "只"

End Sub