百钱买百鸡问题？？ （新手上路，第一次来请教问题。希望各位高手多多指教，谢谢各位了.）
公鸡5元一只，母鸡3元一只，小鸡1元三只，100元钱买100只鸡，问各买多少只？我编的东东为啥不行啊？？？或者哪位高手给个答案。
Dim a, b, c As Integer
For c = 3 To 100 Step 3
If (a + b + c = 100) And (5 * a + 3 * b + c / 3 = 100) Then
Print a, b, c
End If
Next c
问题点数：20、回复次数：7Top
1 楼flyingscv（zlj）回复于 2006-03-17 18:51:29 得分 20
Dim a As Integer, b As Integer, c As Integer
for a=1 to 100
for b=1 to 100
For c = 1 To 100
If (a + b + c = 100) And (5 * a + 3 * b + c / 3 = 100) Then
Print a, b, c
End If
Next c,b,a
Top
2 楼fxj331072（白天与黑夜）回复于 2006-03-17 19:56:09 得分 0
Dim a As Integer, b As Integer, c As Integer
for a=1 to 100
for b=1 to 100
c=100-a-b
if 5 * a + 3 * b + c / 3 = 100 Then
Print a, b, c
End If
Next b,a
Top
3 楼xDAVIDx（DAVID）回复于 2006-03-17 20:22:47 得分 0
楼主的错误在于只遍历了c,而没有遍历a与b,故没有考虑所有可能,a,b始终为0 ^-^Top
4 楼smz1314（梦婆汤）回复于 2006-03-17 21:23:36 得分 0
dim a as integer ,b as integer ,c as integer
for a =0 to 100
for b =0 to 100
for c =0 to 100
if 5*a+3*b+c=100 and a+b+c=100 then print a ;b;c
next
next
next
print的输出结果是0 0 100
另外楼主的第一个错误是申明变量时就已经错了。
Top
5 楼dgsliker（热烈欢迎）回复于 2006-03-17 22:04:34 得分 0
判断 c 是不是 3的倍数! 穷举!...Top
6 楼Bearzmc（）回复于 2006-03-17 22:17:13 得分 0
明白了，太谢谢大家了，我一定好好学，为了祖国，为了人民，也为了自己人。csdn 真牛XTop
7 楼flyingscv（zlj）回复于 2006-03-19 14:26:22 得分 0
楼主的人生观、价值观很正确!Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
