Public Class gss    '输入劳务费金额    Private _inlwje As Double    '输入工薪金额    Private _ingxje As Double    '输出劳务费应纳税所得额    Private _outlwyse    '输出劳务费应扣所得税    Private _outlwyks As Double    '输出劳务费适用税率    Private _outlwsl As String    '输出工薪速算扣除数    Private _outgxkcs As Double    '输出工薪应纳税所得额    Private _outgxyse As Double    '输出工薪应扣所得税    Private _outgxyks As Double    '输出工薪适用税率    Private _outgxsl As String    '输入校外劳务费金额    Private _inlwxwje As Double

    Public WriteOnly Property inlwje() As Double        Set(ByVal Value As Double)            _inlwje = Value            Claowu()        End Set    End Property

    Public WriteOnly Property ingxje() As Double        Set(ByVal Value As Double)            _ingxje = Value            Cgongxin()        End Set    End Property

    Public ReadOnly Property outlwyse() As Double        Get            Return _outlwyse        End Get    End Property

    Public ReadOnly Property outlwyks() As Double        Get            Return _outlwyks        End Get    End Property    Public ReadOnly Property outlwsl() As String        Get            Return _outlwsl        End Get    End Property    Public ReadOnly Property outgxkcs() As Double        Get            Return _outgxkcs        End Get    End Property    Public ReadOnly Property outgxyse() As Double        Get            Return _outgxyse        End Get    End Property    Public ReadOnly Property outgxyks() As Double        Get            Return _outgxyks        End Get    End Property    Public ReadOnly Property outgxsl() As String        Get            Return _outgxsl        End Get    End Property

    Public WriteOnly Property inlwxwje() As Double        Set(ByVal Value As Double)            _inlwxwje = Value            Claowuxw()        End Set    End Property

    Private Sub Claowu()        Dim je As Double        je = Me._inlwje        If je 800 And je 4000 And je 25000 And je 62500 Then            Me._outlwyse = je * 0.8            Me._outlwyks = je * 0.32 - 7000            Me._outlwsl = "40%"        End If    End Sub    Private Sub Cgongxin()        Dim je As Double        je = Me._ingxje        je = je - 1600        If je < 0 Then            Me._outgxyse = 0        Else            Me._outgxyse = je        End If        If je 0 And je 500 And je 2000 And je 5000 And je 20000 And je 40000 And je 60000 And je 80000 And je 100000 Then            Me._outgxkcs = 15375            Me._outgxsl = "45%"            Me._outgxyks = je * 0.45 - 15375        End If

    End Sub    Private Sub Claowuxw()        Dim je As Double        je = Me._inlwxwje        If je 1000 And je 20000 And je 50000 Then            Me._outlwyse = je            Me._outlwsl = "30%"            Me._outlwyks = je * 0.3        End If    End SubEnd Class