現在,我們就可以初始化一個Manager對象,并使用Employee中的成員。如下面表10中的代碼所示:
初始化Manager對象
Class Employee
Public salary As Decimal = 40000
Public yearlyBonus As Decimal = 4000
Public Sub PrintSalary()
'' print the salary to the Console
Console.Write(salary)
End Sub
End Class
Class Manager: Inherits Employee
End Class
Module Module1
Public Sub Main()
Dim manager As Manager
manager = New Manager()
manager.PrintSalary()
End Sub
End Module
下面表11中的代碼演示了如何通過編寫一個新的PrintBonus方法來擴充Manager類別的方法:
在子類中添加新的方法
Class Manager: Inherits Employee
Public Sub PrintBonus()
Console.Write(yearlyBonus)
End Sub
End Class
注意成員可訪問性限制的使用。例如,如果使yearlyBonus域具有private屬性,該哉就不能被Manager類訪問,因此,編譯這樣的代碼就會發生錯誤。
文章來源于領測軟件測試網 http://www.kjueaiud.com/