【vb编程题：解决古代数学问题“鸡兔同笼”.已知在同一个笼子里有总数为m只鸡和兔,鸡和兔的总脚数为n只,求鸡兔各多少.我是初学者,写了如下代码PrivateSubForm_Click()Dimm%,n%,x%,y%m=Val(InputBox("】
3人问答
问题描述：
vb编程题：解决古代数学问题“鸡兔同笼”.已知在同一个笼子里有总数为m只鸡和兔,鸡和兔的总脚数为n只,
求鸡兔各多少.我是初学者,写了如下代码
PrivateSubForm_Click()
Dimm%,n%,x%,y%
m=Val(InputBox("请输入鸡和兔的总数："))
n=Val(InputBox("请输入鸡和兔的总脚数："))
y=(n-2*x)/4
x=m-y
Print"鸡的数目：";x;"兔的数目：";y
EndSub
但是算出来的结果和我手算的不同,我不知哪里错了,还有请别那么复杂的说,我只学了顺序结构,没学选择和其他结构.
李亚斌回答：
我的意思是说，你的解法里面用到了x，但是x是个不确定的数，所以你的解法需要改进。你先把你的笔算方法转为书面语言，然后处理为算法，再写vb代码，这样就不会出现使用一个未知数的情况了。我猜你的算法类似于，假设都是鸡，所以总脚数是2*m，多出的脚数n-2*m表示兔子带来的脚，兔子共(n-2*m)/2；所以鸡有m-(n-2*m)/2只代码是这样的PrivateSubForm_Click()Dimm%,n%,x%,y%m=Val(InputBox("请输入鸡和兔的总数："))n=Val(InputBox("请输入鸡和兔的总脚数："))y=(n-2*m)/2x=m-yPrint"鸡的数目：";x;"兔的数目：";yEndSub
八字精批
八字合婚
八字起名
八字财运
2024运势
测终身运
生肖运势
十年大运
数学推荐
数学推荐
最新更新
精品分类
优秀数学推荐
热门数学
邮箱： 
