VB.Net by API/System/Math

Math.Acos

<source lang="vbnet"> Imports System Imports System.Data Imports System.Diagnostics public class MainClass

  Shared Sub Main()
       Console.WriteLine(System.Math.Acos(0))
       Console.WriteLine(System.Math.Cos(10))
       
  End Sub

End Class

 </source>

Math.Asin

<source lang="vbnet"> Imports System Imports System.Data Imports System.Diagnostics public class MainClass

  Shared Sub Main()
       Console.WriteLine(System.Math.Asin(0))
       Console.WriteLine(System.Math.Sin(10))
       
  End Sub

End Class

 </source>

Math.Atan

<source lang="vbnet"> Imports System public class MainClass

  Shared Sub Main()
       Console.WriteLine(System.Math.Atan(10))
       Console.WriteLine(System.Math.Tan(10))
       
  End Sub

End Class

 </source>

Math.Atan2

<source lang="vbnet"> 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

 </source>

Math.Cos

<source lang="vbnet"> Public Class Tester

   Public Shared Sub Main
       Dim X As Single
       Dim Y As Single
       X = CSng( Math.Cos(100))
       Y = CSng( Math.Sin(100))
       Console.WriteLine(X)
       Console.WriteLine(Y)
       
   End Sub

End Class

 </source>

Math.Floor

<source lang="vbnet"> Module Module1

   Sub Main()
       Console.WriteLine("Ceiling(1.1), Ceiling(0.9) = " & Math.Ceiling(1.1) & " " & Math.Ceiling(0.9))
       Console.WriteLine("Exp(5) = " & Math.Exp(5))
       Console.WriteLine("Log10(100) = " & Math.Log10(100))
       Console.WriteLine("Max(1001, 100) = " & Math.Max(1001, 100))
       Console.WriteLine("Min(1001, 100) = " & Math.Min(1001, 100))
       Console.WriteLine("Floor(1.1), Floor(0.9) = " & Math.Floor(1.1) & " " & Math.Floor(0.9))
       Console.WriteLine("Round(1.1), Round(0.9) = " & Math.Round(1.1) & " " & Math.Round(0.9))
   End Sub

End Module

 </source>

Math.Max

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main(ByVal args As String())
     Console.WriteLine(Math.Max(Math.Max(1, 2), 3))
   End Sub

End Class

 </source>

Math.PI

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main()
       Dim dblRadiusSquared As Double
       Dim dblResult As Double
       Dim radius As Double
       
       radius = 10.01
       dblRadiusSquared = radius * radius
       dblResult = dblRadiusSquared * Math.PI
       System.Console.WriteLine(dblResult)
   End Sub

End Class

 </source>

Math.Pow

<source lang="vbnet"> Imports System.IO Module Module1

   Sub Main()
       Console.WriteLine("Absolute value of -1 is " & Math.Abs(-1))
       Console.WriteLine("Square Root of 144 is " & Math.Sqrt(144))
       Console.WriteLine("Value for PI is " & Math.PI)
       Console.WriteLine("10 raised to the power of 2 is " & Math.Pow(10, 2))
       
   End Sub

End Module

 </source>

Math.Round

<source lang="vbnet"> Imports System Imports System.Data Imports System.Diagnostics public class MainClass

  Shared Sub Main()
       Console.WriteLine(System.Math.Round(1.4))
  End Sub

End Class

 </source>

Math.Sign

<source lang="vbnet"> Imports System public class MainClass

  Shared Sub Main()
       Console.WriteLine(System.Math.Sign(-1))
       Console.WriteLine(System.Math.Sign(0))
       Console.WriteLine(System.Math.Sign(1))
  End Sub

End Class

 </source>

Math.Sin

<source lang="vbnet"> Public Class Tester

   Public Shared Sub Main
       Dim X As Single
       Dim Y As Single
       X = CSng( Math.Cos(100))
       Y = CSng( Math.Sin(100))
       Console.WriteLine(X)
       Console.WriteLine(Y)
       
   End Sub

End Class

 </source>

Math.Sqrt

<source lang="vbnet">

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

 </source>