WAP to demonstrate Polymorphism in Vb.net through Method Overloading
Demonstratation of Polymorphism in Vb.net through Method Overloading :
code begins :
Imports System.Console
Module Module1
Sub areas(ByVal side As Integer)
Dim area As Integer
area = side * side
WriteLine("Area of Square : " & area)
End Sub
Sub areas(ByVal l As Integer,ByVal b As Integer)
Dim area As Integer
area = l * b
WriteLine("Area of Rectangle : " & area)
End Sub
Sub areas(ByVal r As Double)
Dim area As Double
area = 4.13 * r * r
WriteLine("Area of Circle : " & area)
End Sub
Sub Main()
Dim l, b, ch As Integer
Dim r As Double
WriteLine("1. Area of a Square")
WriteLine("2. Area of a Rectange")
WriteLine("3. Area of a Circle")
WriteLine("Enter Your Choice : ")
ch = ReadLine()
Select Case ch
Case 1
Write("Enter Size of a side : ")
l = ReadLine()
areas(l)
Case 2
Write("Enter length : ")
l = ReadLine()
Write("Enter breadth : ")
b = ReadLine()
areas(l, b)
Case 3
Write("Enter radius : ")
r = ReadLine()
areas(r)
Case Else
WriteLine("Enter a Valid Choice")
End Select
End Sub
End Module
Output
