3-17.aspx

程序源代码分成两个部分： &#61557 一部分是用记事本或EditPlus编写的

Public Class Employee
	Private name As String
	Private age As Integer
	Private salary As Single
	Public Sub New(ByVal n As String, ByVal a As Integer, ByVal s As Single)
		name = n
		age = a
		salary = s
	End Sub
	Public Function GetName()
		Return  name		
	End Function
End Class
Public Class Director
 	Inherits Employee 
	Private Title As String 
	Sub New(ByVal t As String,ByVal n As String , ByVal a As Integer , ByVal s As Decimal)
		MyBase.New(n , a , s )
 		Title = t
	End Sub
	Public Function GetTitle()
		Return  Title		
	End Function
End Class