类继承的VB.Net实例(员工工资类)

Class Empolyee
    Private m_salary As Integer 'Empolyee员工类有Salary薪水属性
    Public Property Salary() As Integer '薪水介于20000~40000之间
        Get
            Return m_salary
        End Get
        Set(ByVal value As Integer)
            If value < 20000 Then
                m_salary = 20000
            ElseIf value > 40000 Then
                m_salary = 40000
            Else
                m_salary = value
            End If
        End Set
    End Property
End Class

Class Manger 'Manger经理类继承自Empolyee员工类?
    Inherits Empolyee
    Public Bonus As Integer '加入Bonus奖金字段?
    Public Sub ShowTotal() '加入显示实领奖金方法
        Console.WriteLine("实领薪水：{0}", Bonus + Salary)
    End Sub
End Class

Module Module1

    Sub Main()
        Dim tom As New Empolyee '?建立Empolyee员工类的tom对象
        tom.Salary = 50000 '设定薪水?
        Console.WriteLine("tom 员工薪水{0}", tom.Salary) '显示薪水?
        Console.WriteLine("================")
        Console.WriteLine()
        Dim lob As New Manger '建立Manger经理类 lob对象
        lob.Salary = 50000 '设定薪水?
        Console.WriteLine("乐博经理薪水{0}", lob.Salary) '显示薪水?
        lob.Bonus = 30000 '建立乐博的奖金30000
        Console.WriteLine("乐博经理奖金{0}", lob.Bonus) '显示奖金?
        lob.ShowTotal() '显示乐博实领薪水
        Console.Read()
    End Sub

End Module