～

next i 没什么用的吧，前面没有发现 for
还有case a <=0 应该是case is<=0 的吧
跟case 0 to 36000 又属于条件较差
再后面的一个条件又是跳跃的
最后一个可以用case else判断，因为只有一种情况了
问题太多了

if then 分大于0和小于0两者情况搞好了。

分段计税的吧，<0根本不用考虑，谁欠费再缴税，这逻辑
if >0 then
select case a
case <条件1>
case <条件2>
,,,
case else <都不满足再执行>
end select
else
end if