请问这个买鸡问题的vbs程序哪里出问题了？

输出结果一直是0 是哪里出问题了？
原问题:百钱买百鸡, 公鸡5钱一只, 母鸡3钱一只, 小鸡1钱3只)求得是能有多少种办法买这些鸡.(用循环解决)

把if语句里面的&a+b+c=100去掉就好了。就是if d=100 then。