UC知道VB编程的问题（VBS）
来源：百度知道 编辑：UC知道 时间：2024/09/24 03:21:39
我是菜鸟，遇到要编的问题：百钱买百鸡, 公鸡5钱一只, 母鸡3钱一只, 小鸡1钱2只.求得是能有多少种办法买这些鸡。用VBS编的如下：
'设：变量x表示公鸡；y表示母鸡；z表示小鸡。则有：
'5x+3y+z/2=100
'x+ y + z = 100
'考虑到如果100钱都买公鸡20只；都买母鸡为33只，则有：
dim x,y,z
x=int(x)
y=int(y)
z=int(z)
for x=1 to 19
for y=1 to 33
z=100-x-y
if 5x+3y+z/2=100 then
msgbox("公鸡数："& x)
msgbox("母鸡数："& y)
msgbox("小鸡数："& z)
end if
next x
next y
运行出错，说缺少Then，调试没有调试出来，谁能帮帮我啊。用VBS进行编写，谁能提供更好的答案啊，谢谢！
'设：变量x表示公鸡；y表示母鸡；z表示小鸡。则有：
'5x+3y+z/2=100
'x+ y + z = 100
'考虑到如果100钱都买公鸡20只；都买母鸡为33只，则有：
dim x,y,z
x=int(x)
y=int(y)
z=int(z)
for x=1 to 19
for y=1 to 33
z=100-x-y
if 5x+3y+z/2=100 then
msgbox("公鸡数："& x)
msgbox("母鸡数："& y)
msgbox("小鸡数："& z)
end if
next x
next y
运行出错，说缺少Then，调试没有调试出来，谁能帮帮我啊。用VBS进行编写，谁能提供更好的答案啊，谢谢！
dim x,y,z
x=int(x)
y=int(y)
z=int(z)
for x=1 to 19
for y=1 to 33
z=100-x-y
if （5x+3y+z/2=100） then '判断语句要在一个括号里，不然找不到THEN
msgbox("公鸡数："& x)
msgbox("母鸡数："& y)
msgbox("小鸡数："& z)
end if
next
next
for x=1 to 19
for y=1 to 33
z=100-x-y
if 5x+3y+z/2=100 then
msgbox("公鸡数："& x)
msgbox("母鸡数："& y)
msgbox("小鸡数："& z)
end if
next x <--- next y
next y <--- next x
Dim x, y, z
x = Int(x)
y = Int(y)
z = Int(z)
For x = 1 To 19
For y = 1 To 33
z = 100 - x - y
If (5 * x + 3 * y + z / 2) = 100 Then
MsgBox ("公鸡数：" & x)
MsgBox ("母鸡数：" & y)
MsgBox ("小鸡数：" & z)
End If
Next y
Next x