019用接口实现多态

Module Module1
    Public Interface Shape
        Function Calculate(ByVal x As Double, ByVal y As Double) As Double
    End Interface

    Public Class RightTriangleClass
        Implements Shape

        Public Function Calculate(ByVal x As Double, ByVal y As Double) As Double Implements Shape.Calculate
            Return x * y / 2
        End Function
    End Class

    Public Class RectangleClass
        Implements Shape

        Public Function Calculate(ByVal x As Double, ByVal y As Double) As Double Implements Shape.Calculate
            Return x * y
        End Function
    End Class
    Sub Main()
        Dim rectObj As New RectangleClass
        Dim rightTrianglObj As New RightTriangleClass

        ProcessShape(rectObj, 3, 7)
        Console.WriteLine()

        ProcessShape(rightTrianglObj, 3, 4)

        Console.Read()
    End Sub
    Private Sub ProcessShape(ByVal shapeObj As Shape, ByVal x As Double, ByVal y As Double)
        Console.WriteLine("该对象的面积为：" & shapeObj.Calculate(x, y))
    End Sub
End Module