vb編程 計算財務所得稅

private function ttt(byval n double) as double

dim rtn as double

if n<=800 then

rtn = 0

elseif n<=3000 then

rtn = (n-800)* 0.15

elseif n<=5000 then

rtn = 3000*.01+(n-3000)*20%

elseif n>5000 then

rtn = n '扣光光，打死妳吧

endif

ttt=rtn

end function

用法：msgbox ttt(4999)

上一篇:菜鳥求助，kinect 2vs2013的開發配置問題

下一篇:匯編nop寫成c語言