个人税收的计算

Private Sub Command1_Click()

'声明变量为Single类型

Dim PayForTax As Single, Income As Single,IncomeForTax As Single

Income = Val(Text1.Text)

'个人收入减去个税起征点1600适应纳税所得额

IncomeForTax = Income - 1600

'根据应纳税所得额的数值确定税率TaxRate的值

Select Case IncomeForTax

Case Is <= 0

TaxRate = 0

Case Is <= 500

TaxRate = 0.05

Case Is <= 2000

TaxRate = 0.1

Case Is <= 5000

TaxRate = 0.15

Case Is <= 20000

TaxRate = 0.2

Case Is <= 40000

TaxRate = 0.25

Case Is <= 60000

TaxRate = 0.3

Case Is <= 80000

TaxRate = 0.35

Case Is <= 10000

TaxRate = 0.4

Case Else

TaxRate = 0.45

End Select

PayForTax = IncomeForTax * TaxRate

Label2.Caption = "您应缴纳的税金是：￥" & PayForTax

 

End Sub

 

Private Sub Form_Load()

'Text1 文本框置空

Text1.Text = ""

 

End Sub