编写程序，求解鸡兔同笼问题。一个笼子中有鸡x只，兔y只，每只鸡有2只脚，每只兔有4只脚。今知鸡和兔的总头数为h，总脚数为f。问笼中鸡和兔各若干？
提示：根据数学知识，可以写出如下的联立方程式：
{x+y=h           ----(1)
{2x+4y=f        ----(2)

(2)式－2*(1)式： 2y=f-2h  故：y=(f-2*h)/2
4*(1)式-(2)式：   2x=4h-f  故：x=(4*h-f)/2

可按上式编写程序。用InputBox函数输入h和f 的值，设h=71，f=158，请编写程序并上机运行。

以下是此题的【VB源代码】
Private Sub Form_Click()
h = InputBox("请输入鸡和兔的总的头数")
h = Val(h)
f = InputBox("请输入鸡和兔的总的脚数")
f = Val(f)
y = (f - 2 * h) / 2
x = (4 * h - f) / 2
Print "笼中有鸡"; x; "只，兔"; y; "只"
End Sub

运行此源程序，输入程序运行后，单击窗体，在输入对话框中分别输入71（总头数）和158（总脚数），程序将输出。
笼中有鸡63只，兔8只

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_5.6.html