Question

VB按照要求编写程序：“求解鸡兔同笼”

鸡兔同笼问题如下：一个笼子中有x只鸡，y只兔子，每只鸡有2只脚，每只兔子有4只脚；已知鸡和兔的总头数为h，总脚数为f，问笼中鸡和兔各有多少？

快啊，在线等。。。
说的详细点啊，要具体的程序代码。解出代数式

Answer 1

请问你是要用vb解出代数式的解，还是输入h与f计算x，y？ 在线答

Private Sub Command1_Click()
Dim x, y As Integer
Dim h, j As Integer
h = Val(Text1.Text)
j = Val(Text2.Text)
'h = x + y==>x=h-y代入下式
'j = 2 * x + 4 * y=2*(h-y)+4*y=2*h+2*y==>y=(j-2*h)/2,x=h-y
y = (j - 2 * h) / 2
Label1.Caption = y
Label2.Caption = h - y
End Sub

Answer 2

(4n-f) \2
h-y

Answer 3

(4y-f)÷(4-2)=x
h-x=y

Answer 4

2个for循环嵌套