?

Private Sub Command1_Click()

?Dim s

?s = Val(Trim(InputBox("個人收入：", "個人所得稅計算", 2000)))

?Print "個人收入為"; s; "元時，應繳納的個人所得稅為";

If s <= 1600

Then Print 0

Else s = s - 1600 '如果個人收入高于起征點，則計算個人應得額

Select Case s

?Case Is <= 500: s = s * 0.05

Case Is <= 2000: s = s * 0.1 - 25

Case Is <= 5000: s = s * 0.15 - 125

?Case Is <= 20000: s = s * 0.2 - 375

?Case Is <= 40000: s = s * 0.25 - 1375

?Case Is <= 60000: s = s * 0.3 - 3375

Case Is <= 80000: s = s * 0.35 - 6375

?Case Is <= 100000: s = s * 0.4 - 10375

?Case Is > 1000000: s = s * 0.45 - 15375

End Select

Print Format(s,"0.00") '如果個人收入是帶小數的，則用Format控制格式

?End If

?End Sub

總結

以上是生活随笔為你收集整理的个人纳税计算程序的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。