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
但是算出来的结果和我手算的不同,我不知哪里错了,还有请别那么复杂的说,我只学了顺序结构,没学选择和其他结构.
人气:490 ℃ 时间:2020-06-22 03:40:36
解答
你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) / 2x = m - yPrint "鸡的数目:"; x; "兔的数目:"; yEnd Sub
推荐
- 在笼子里 有鸡和兔共100只 已知脚的总数为276只,你知道笼子里有鸡和兔子各多少只
- 在同一个笼子里,有一些鸡和兔.从笼子上面看有35个头,从笼子下面数有94只脚.
- 现有数量相同的鸡兔同笼,已知兔脚比鸡脚多28只.问:笼子中的鸡和兔子各有多少只?
- 现有相同数量的鸡、兔同笼.已知鸡脚比兔脚少32只,笼子里的鸡和兔分别有多少只?(要立文字关系式、设再写方程并解答)拜托了,不然我要挂的,求求各位高手帮忙!
- 现有数量相同的鸡兔同笼,已知兔脚比鸡脚多28只.问:笼子中的鸡和兔子各有多少只?
- 我们在显微镜观察标本时,在载物台上把标本移向左方,看到的物像朝向( )移动,这说明什么?
- 关于正弦交流电路的一个问题
- The world is a business 请帮忙翻译一下这句话,是不是全球商业化的意思,有道词典翻译的全球商业化是Global commercial,那么The world is a business 或者The world is b
猜你喜欢