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