个人所得税的计算程序

Private Sub Command1_Click()
x = Val(InputBox("800"))
Select Case x
Case Is <= 500
Print x * 0.05
Case Is <= 2000
Print x * 0.1 - 25
Case Is <= 5000
Print x * 0.15 - 125
Case Is <= 20000
Print x * 0.2 - 375
Case Is <= 40000
Print x * 0.25 - 1375
Case Is <= 60000
Print x * 0.3 - 3375
Case Is <= 80000
Print x * 0.35 - 6375
Case Is <= 100000
Print x * 0.4 - 10375
Case Is > 1000000
Print x * 0.45 - 15375
End Select
End Sub