皮克斯的认识:鸡兔同笼问题 vb 请大家帮帮忙啊~!

来源:百度文库 编辑:神马品牌网 时间:2024/04/28 18:04:42
编写程序,求解鸡兔同笼问题。一个笼子中有鸡X只,兔Y只,每只鸡有2只脚,每只兔有4只脚。今知鸡和兔的总头数为H,总脚数为F。问笼中鸡和兔各若干?
谢谢大家啊啊,请帮忙编写一下着道题的程序吧~
不胜感谢!

Private Sub Form_Activate()
F = InputBox("输入鸡与兔的头总数:")
H = InputBox("输入鸡与兔的脚总数:")
Y = H / 2 - F
X = F - Y
MsgBox ("鸡有:" & X & "只")
MsgBox ("兔有: " & Y & "只")
End Sub

挺奇怪,一个笼子中有鸡X只,兔Y只
那么为什么还求笼中鸡和兔各若干?