类的重写,与多态性
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Dim Tcar As New car
Response.Write("car of add : Tcar.add(3,4): " & Tcar.add(3, 4))
Dim SUBcar As New subcar
Response.Write("<Br> subcar of add:subcar.add(4,3): " & SUBcar.add(3, 4) & "<br>")
Response.Write("类的多态性: Tcar.cha(a as int16,b as int16 ):" & Tcar.Walk(4, 5))
Response.Write("<Br>Tcar.cha(a as string,b as string ) :" & Tcar.Walk("b", "d"))
End Sub
Public Class car
Public Overridable Function add(ByVal a As Int16, ByVal b As Int16) As Int32
Return (a)
End Function
Public Function cha(ByVal a As Int16, ByVal b As Int16) As Int16
Return a + b
End Function
Public Function cha(ByVal a As String, ByVal c As String) As String
Return a & c
End Function
Public Function Walk(ByVal Dirs As String, ByVal dirs1 As String) As String
Return Dirs & dirs1
End Function
Public Function Walk(ByVal Dirs As Integer, ByVal dirs1 As Int32) As Int32
Return Dirs + dirs1
End Function
End Class
Public Class subcar
Inherits car
Public Overrides Function add(ByVal a As Int16, ByVal b As Int16) As Int32
Return a * b
End Function
End Class
'在此处放置初始化页的用户代码
Dim Tcar As New car
Response.Write("car of add : Tcar.add(3,4): " & Tcar.add(3, 4))
Dim SUBcar As New subcar
Response.Write("<Br> subcar of add:subcar.add(4,3): " & SUBcar.add(3, 4) & "<br>")
Response.Write("类的多态性: Tcar.cha(a as int16,b as int16 ):" & Tcar.Walk(4, 5))
Response.Write("<Br>Tcar.cha(a as string,b as string ) :" & Tcar.Walk("b", "d"))
End Sub
Public Class car
Public Overridable Function add(ByVal a As Int16, ByVal b As Int16) As Int32
Return (a)
End Function
Public Function cha(ByVal a As Int16, ByVal b As Int16) As Int16
Return a + b
End Function
Public Function cha(ByVal a As String, ByVal c As String) As String
Return a & c
End Function
Public Function Walk(ByVal Dirs As String, ByVal dirs1 As String) As String
Return Dirs & dirs1
End Function
Public Function Walk(ByVal Dirs As Integer, ByVal dirs1 As Int32) As Int32
Return Dirs + dirs1
End Function
End Class
Public Class subcar
Inherits car
Public Overrides Function add(ByVal a As Int16, ByVal b As Int16) As Int32
Return a * b
End Function
End Class