VB高手用VB編寫下面雞兔同籠問題

h = Val(InputBox("輸入有多少只頭", "雞兔同蘢問題"))

f = Val(InputBox("輸入第多少只腳", "雞兔同蘢問題"))

y = (f - 2 * h) / 2

x = (4 * h - f) / 2

Print "雞=" & x & " 兔=" & y

End Sub