Contact: aviboots(AT)netvision.net.il
39,870 questions
51,793 answers
573 users
Module Module1 Sub Main() Dim zero As Single = 0 Dim Infinity As Single = 1 / zero Console.WriteLine(Infinity) Infinity = -1 / zero Console.WriteLine(Infinity) End Sub End Module ' run: ' ' Infinity '-Infinity
Module Module1 Sub Main() Console.WriteLine(Double.PositiveInfinity) Console.WriteLine(Double.NegativeInfinity) End Sub End Module ' run: ' ' Infinity '-Infinity