Module Module1
Sub Main()
Dim zero As Single = 0
Dim Infinity As Single = 1 / zero
Console.WriteLine("Math.Atan(1.0) = {0}", Math.Atan(1.0))
Console.WriteLine("Math.Atan(-1.0) = {0}", Math.Atan(-1.0))
Console.WriteLine("Math.Atan(0.0) = {0}", Math.Atan(0.0))
Console.WriteLine("Math.Atan(-0.0) = {0}", Math.Atan(-0.0))
Console.WriteLine("Math.Atan(Infinity) = {0}", Math.Atan(Infinity))
End Sub
End Module
' run:
'
' Math.Atan(1.0) = 0.785398163397448
' Math.Atan(-1.0) = -0.785398163397448
' Math.Atan(0.0) = 0
' Math.Atan(-0.0) = 0
' Math.Atan(Infinity) = 1.5707963267949