Console.WriteLine("Square area = {0}. Square perimeter = {1}.", sArea(7.) , sPerimeter(7.) )
Function sArea(ByVal x As Double) As Double Return (x * x) End Function Function sPerimeter(ByVal x As Double) As Double Return (4 * x) End Function