vb编程题：解决古代数学问题“鸡兔同笼”.已知在同一个笼子里有总数为m只鸡和兔,鸡和兔的总脚数为n只,

题目

vb编程题：解决古代数学问题“鸡兔同笼”.已知在同一个笼子里有总数为m只鸡和兔,鸡和兔的总脚数为n只,
求鸡兔各多少.我是初学者,写了如下代码
Private Sub Form_Click()
Dim m%,n%,x%,y%
m = Val(InputBox("请输入鸡和兔的总数："))
n = Val(InputBox("请输入鸡和兔的总脚数："))
y = (n - 2 * x) / 4
x = m - y
Print "鸡的数目："; x; "兔的数目："; y
End Sub
但是算出来的结果和我手算的不同,我不知哪里错了,还有请别那么复杂的说,我只学了顺序结构,没学选择和其他结构.

答案