The following code demonstrates the implementation of Polymorphism.
| Module Module1 Sub Main() Dim two As New One() WriteLine(two.add(10)) 'calls the function with one argument WriteLine(two.add(10, 20)) 'calls the function with two arguments WriteLine(two.add(10, 20, 30)) 'calls the function with three arguments Read() End Sub End Module Public Class One Public i, j, k As Integer Public Function add(ByVal i As Integer) As Integer 'function with one argument Return i End Function Public Function add(ByVal i As Integer, ByVal j As Integer) As Integer 'function with two arguments Return i + j End Function Public Function add(ByVal i As Integer, ByVal j As Integer, ByVal k As Integer) As Integer 'function with three arguments Return i + j + k End Function End Class |
Output of the above code is shown in the image below.
No comments:
Post a Comment