实例022多个类从一个类继承

Module Module1
    Public Class 人员
        Private pName As String
        Public Property Name As String
            Get
                Return pName
            End Get
            Set(ByVal value As String)
                pName = Name
            End Set
        End Property

        Public Sub Work()
            Dim iCount As Integer
            For iCount = 1 To 10
                Console.WriteLine(Me.Name & "Working" & iCount)
            Next
        End Sub
    End Class

    Public Class 教师
        Inherits 人员
        Public 教龄 As Integer
    End Class

    Public Class 售货员
        Inherits 人员
        Public 工龄 As Integer
    End Class
    Sub Main()
        Dim MrSmith As New 教师
        MrSmith.Name = "James Smith"
        MrSmith.教龄 = 31

        Dim MissRose As New 售货员
        MissRose.Name = "Jessica Rose"
        MissRose.工龄 = 9

        MrSmith.Work()
        Console.WriteLine("Smith 先生的全名是" & MrSmith.Name)
        Console.WriteLine("Smith 先生的教龄是" & MrSmith.教龄)

        MissRose.Work()
        Console.WriteLine("Rose 小姐全名是" & MissRose.Name)
        Console.WriteLine("Rose 小姐的工龄是" & MissRose.工龄)

        Console.Read()

    End Sub

End Module