推荐订阅源

类的重写，与多态性

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