计算工资税率

Private Sub Command1_Click()

Dim m As Single

Dim n As Single

Dim x As Single

Dim y As Single

m = Val(Text1.Text)

n = m - 800

Select Case n

 Case Is < 500

 y = n * 0.05

 Case Is < 2000

 y = n * 0.1

 Case Is < 5000

 y = n * 0.15

 Case Is < 20000

 y = n * 0.2

 Case Is < 40000

 y = n * 0.25

 Case Is < 60000

 y = n * 0.3

 Case Is < 80000

 y = n * 0.35

 Case Is < 100000

 y = n * 0.4

 Case Else

 y = n * 0.45

End Select

Label3.Caption = Str(y)

End Sub