程式作業: 報稅試算程式設計(VB)

計算收入182萬，應繳稅額與稅率

級別	稅率	課稅級距
1	5%	52萬以下
2	12%	520,000~1170,000
3	20%	1170,000~2350,000
4	30%	2350,000~4400,000
5	40%	4,400000~Max

Private Sub CalculateTaxRate()
 
Dim v, r, t
v = 1820000
' 計算收入182萬，應繳稅額與稅率
r = 0
If v < 520000 Then
  r = 0.05 '5%
ElseIf v <= 1170000 Then
  r = 0.12 '12%  
ElseIf v <= 2350000 Then
  r = 0.2  '20%  
ElseIf v <= 4400000 Then
  r = 0.3  '30%
Else
  r = 0.4 '40%
End If
 
  t = v * r '，應繳稅
 
Dim s As String
  s = "收入182萬" + "應繳稅額:" + CStr(t) + " 稅率: " + CStr(r * 100) + "%"
 
  MsgBox (s)
 
End Sub

計算收入182萬，應繳稅額與稅率 執行結果: