vb编程题：解决古代数学问题“鸡兔同笼”.已知在同一个笼子里有总数为m只鸡和兔,鸡和兔的总脚数为n只,求鸡兔各多少.我是初学者,写了如下代码Private Sub FormClick()Dim m%,n%,x%,y%m = Val(InputBox("请输入鸡和兔的总数："))n = Val(InputBox("请输入鸡和兔的总脚数："))y = (n - 2 * x) / 4x = m - yPrint "鸡的数目："; x; "兔的数目："; yEnd Sub但是算出来的结果和我手算的不同,我不知哪里
2019-04-13
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都是错误的.
你dim定义了x,但是你自己又没给一个初始值,vb默认会得出x=0,所以下面的计算,y = (n - 2 * x) / 4和x = m - y都是错误的.