vb System.Math.Sqrt类(方法)实例源码

Module Example
   Public Sub Main()
      ' Create an array containing the area of some squares.
      Dim areas() As Tuple(Of String, Double) = 
                     { Tuple.Create("Sitka, Alaska", 2870.3), 
                       Tuple.Create("New York City", 302.6), 
                       Tuple.Create("Los Angeles", 468.7), 
                       Tuple.Create("Detroit", 138.8), 
                       Tuple.Create("Chicago", 227.1), 
                       Tuple.Create("San Diego", 325.2) }

      Console.WriteLine("{0,-18} {1,14:N1} {2,30}", "City", "Area (mi.)", 
                        "Equivalent to a square with:")
      Console.WriteLine()
      For Each area In areas
        Console.WriteLine("{0,-18} {1,14:N1} {2,14:N2} miles per side", 
                          area.Item1, area.Item2, Math.Round(Math.Sqrt(area.Item2), 2))        
      Next
   End Sub
End Module

Public Class Tester
    Public Shared Sub Main
        Dim magnitude As Single
        Dim radians As Single

        magnitude = CSng(Math.Sqrt(100 ^ 2 + 120 ^ 2))
        radians = CSng(Math.Atan2(100, 123))


        Console.WriteLine(magnitude)
        Console.WriteLine(radians)
        
    End Sub

End Class