求大侠来看出我写的vbs的错误啊~dima1,a2,a3,i,m,n,mn,k,l,kla1=inputbox("请输入公鸡每只钱数")a2=inputbox("请输入母鸡每只钱数")a3=inputbox("请输入小鸡每只钱数")i=0ifa1=1theni=i+1ifa2=1theni=i+1ifa3=1theni

Question

求大侠来看出我写的vbs的错误啊~
dim a1,a2,a3,i,m,n,mn,k,l,kl
a1=inputbox("请输入公鸡每只钱数")
a2=inputbox("请输入母鸡每只钱数")
a3=inputbox("请输入小鸡每只钱数")
i=0
if a1=1 then i=i+1
if a2=1 then i=i+1
if a3=1 then i=i+1
for m=0 to 9
for n=0 to 9
int(m)
int(n)
mn=m+n
next
next
for k=0 to 9
for l=0 to 9
int(k)
int(l)
kl=k+l
next
next
if mn*a1+kl*a2=100 then i=i+1
if mn*a1+kl*a3=100 then i=i+1
if mn*a2+kl*a3=100 then i=i+1
msgbox(i)
for m=0 to 9到if mn*a2+kl*a3=100 then i=i+1的好像都不起作用!请问各位大侠这个编码有什么问题?我可是菜鸟啊!
我是想求：百钱买百鸡,公鸡5钱一只,母鸡3钱一只,小鸡1钱2只,求得是能有多少种办法买这些鸡.如果看不懂的话我用大白话说说:有人要去买鸡,用100块钱正好买了100只鸡,价格如下:公:5$,母:3$,小:1$ for 2,让你求一共多少种卖法(公母小怎么搭配).
这样就可以运行,但答案是100,不知错不错.
dim a1,a2,a3,i,m,n,b
a1=inputbox("请输入公鸡每只钱数")
a2=inputbox("请输入母鸡每只钱数")
a3=inputbox("请输入小鸡每只钱数")
i=0
if a1=1 then i=i+1
if a2=1 then i=i+1
if a3=1 then i=i+1
for m=1 to 100
for n=1 to 100
for b=1 to 100
int(m)
int(n)
int(b)
if m+n=100 then
if m*a1+n*a2=100 then
i=i+1
elseif m*a1+n*a3=100 then
i=i+1
elseif m*a2+n*a3=100 then
i=i+1
elseif m*a1+n*a2+b*a3=100 then
i=i+1
else
i=i+0
end if
end if
next
next
next
msgbox("有"&i&"种买法")
请各位大侠帮我修改一下.

Answer 1

执行你的语句发现,你的 i 仅仅是“公鸡、母鸡、小鸡”每只钱数为“1”的频数,最好把原题目写出来,你的公式中很多循环是没有任何用处的.
按F8可以逐句执行语句,把鼠标停留在变量上可以看到变量值.