Public Class Tester
Public Shared Sub Main
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
|