计算纳税金额

计算纳税金额

代码如下

Private Sub Command1_Click()
Dim n As Single, w As Single
Dim s As Single, m As Single
n = Val(Text1.Text)
w = n - 500
Select Case w
    Case Is <= 500
        s = 0.05
    Case Iw < 2000
        s = 0.1
    Case Is <= 5000
        s = 0.15
    Case Is <= 20000
        s = 0.2
    Case Is <= 40000
        s = 0.25
    Case Is <= 60000
        s = 0.3
    Case Is <= 80000
        s = 0.35
    Case Is <= 100000
        s = 0.4
    Case Is > 100000
        s = 0.45
    End Select
    m = w * s
    Text2.Text = m
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""

End Sub