vb System.Single.MinValue类(方法)实例源码

If S < Single.MinValue Then
    Console.WriteLine("Your number is smaller than a Single.")
End If

Module Example
   Public Sub Main()
      Dim result1 As Single = -8.997e37 + -2.985e38
      Console.WriteLine("{0} (Negative Infinity: {1})", 
                        result1, Single.IsNegativeInfinity(result1))
      
      Dim result2 As Single = -1.5935e250 * 7.948e110
      Console.WriteLine("{0} (Negative Infinity: {1})", 
                        result2, Single.IsNegativeInfinity(result2))
   End Sub
End Module