Using overloaded methods: Integer and Double
Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
Console.WriteLine( "The square of Integer 7 is " & _
Square(7) & vbCrLf & "The square of Double " & _
"7.5 is " & Square(7.5) )
End Sub
Shared Function Square(ByVal value As Integer) As Integer
Return Convert.ToInt32(value ^ 2)
End Function ' Square
Shared Function Square(ByVal value As Double) As Double
Return value ^ 2
End Function ' Square
End Class
Related examples in the same category