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
156.205 0.6826226