VB买鸡问题

显示全部楼层 · 2010-9-15 15:18:31

百钱买白鸡的问题：编程如下
dim x,y,z,str
for x=1 to 50
for y=1 to 50
for z=1 to 50
if x+y+z=100 and 5x+2y+0.5z=100 then
str="公鸡=x,母鸡=y,小鸡=z"
str=str & vbCrlf
end if
next
next
next
msgbox(str)
编译不过，哪错了？
前面改为：
for x=0 to 20

for y=0 to 33

z=100 - x - y

if 5*x+2*y+0.5z=100then

千问 · 2010-9-15 15:18:31

改为：Dim x, y, z, strstr = ""For x = 1 To 20For y = 1 To 50
For z = 1 To 100 - x - y
'If x + y + z = 100 And 5 * x + 2 * y + 0.5 * z = 100 Then
If 5 * x + 2 * y + 0.5 * z = 100 Then
str = "公鸡=" + CStr(x) + ",母鸡=" + CStr(y) + ",小鸡=" + CStr(z)
End If
NextNextNextI

千问 · 2010-9-15 15:18:31

if x+y+z=100 and 5x+2y+0.5z=100 then5x 和 2y 0.5z 未定义