编写程序,求“鸡兔同笼”问题.鸡有2只脚,兔有4只脚,如果已知鸡和兔的总头数为h,总脚数为f,问笼中鸡和兔各有多少只?

Question

编写程序,求“鸡兔同笼”问题.鸡有2只脚,兔有4只脚,如果已知鸡和兔的总头数为h,总脚数为f,问笼中鸡和兔各有多少只?

Answer 1

Private Sub cmd1_Click()
Dim x As Integer
Dim y As Integer
h = Val(Text1.Text)
f = Val(Text2.Text)
x = 2 * h - f / 2
y = f / 2 - h
MsgBox "鸡的只数为：" & x & vbCrLf & "兔子的只数为：" & y
End Sub