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

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/09 19:08:38

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
但是算出来的结果和我手算的不同,我不知哪里错了,还有请别那么复杂的说,我只学了顺序结构,没学选择和其他结构.

你dim定义了x,但是你自己又没给一个初始值,vb默认会得出x=0,所以下面的计算,y = (n - 2 * x) / 4和x = m - y都是错误的.
再问：不好意思，我比较笨，请问那个怎样给个初定值，我本来就不知道x多少啊。
再答：我的意思是说，你的解法里面用到了x，但是x是个不确定的数，所以你的解法需要改进。你先把你的笔算方法转为书面语言，然后处理为算法，再写vb代码，这样就不会出现使用一个未知数的情况了。我猜你的算法类似于，假设都是鸡，所以总脚数是2*m，多出的脚数n-2*m表示兔子带来的脚，兔子共(n-2*m)/2；所以鸡有m-(n-2*m)/2只代码是这样的 Private Sub Form_Click() Dim m%, n%, x%, y% m = Val(InputBox("请输入鸡和兔的总数：")) n = Val(InputBox("请输入鸡和兔的总脚数：")) y = (n - 2 * m) / 2 x = m - y Print "鸡的数目："; x; "兔的数目："; y End Sub

vb编程题：解决古代数学问题“鸡兔同笼”.已知在同一个笼子里有总数为m只鸡和兔,鸡和兔的总脚数为n只, 利用vb解决鸡兔同笼问题,总数有m只鸡和兔,鸡和兔的总脚数是n只,求鸡和兔各有多少只? 在笼子里,有鸡和兔共100只,已知脚的总数为276只,那么笼子里有鸡和兔各多少只? 在笼子里有鸡和兔共100只已知脚的总数为276只,你知道笼子里有鸡和兔子各多少只利用计算机解决古代数学问题“鸡兔同笼问题”.即已知在同一笼子里有鸡和兔的总头数为m头,鸡和兔的总脚数鸡兔同笼 c语言Description一个笼子里关了鸡和兔子（鸡有2只脚,兔子有4只脚,没有例外）.已知鸡和兔的总数量为在同一个笼子中有数量相同的集合鸡和兔,已知兔腿比鸡腿多32只笼子里的鸡有多少只? 鸡兔同笼的问题有一群鸡和兔关在同一个笼子里数数头有88个,数数脚共有244只,请问：鸡和兔共有多少只（要三种方法）在同一个笼子里有鸡和兔共14只,它们的脚数一共是40,笼子里一共有鸡和兔多少只? 鸡和兔关在同一个笼子里一共有10个头,数一数一共有24只脚,你知道笼子里有多少只关在同一个笼子里的鸡和兔，共有24个头，68只脚，那么这个笼中的鸡有______只．在同一个笼子里,有一些鸡和兔.从笼子上面看有35个头,从笼子下面数有94只脚.