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

Public Class Temperature

    Public Shared ReadOnly Property MinValue() As Double
        Get
            Return Double.MinValue
        End Get
    End Property

    Public Shared ReadOnly Property MaxValue() As Double
        Get
            Return Double.MaxValue
        End Get
    End Property

    ' The value holder
    Protected m_value As Double

    Public Property Value() As Double
        Get
            Return m_value
        End Get
        Set(ByVal Value As Double)
            m_value = Value
        End Set
    End Property

    Public Property Celsius() As Double
        Get
            Return (m_value - 32) / 1.8
        End Get
        Set(ByVal Value As Double)
            m_value = Value * 1.8 + 32
        End Set
    End Property
End Class

Module Example
   Public Sub Main()
      Dim result1 As Double = -7.997e307 + -9.985e307
      Console.WriteLine("{0} (Negative Infinity: {1})", 
                        result1, Double.IsNegativeInfinity(result1))
      
      Dim result2 As Double = -1.5935e250 * 7.948e110
      Console.WriteLine("{0} (Negative Infinity: {1})", 
                        result2, Double.IsNegativeInfinity(result2))
   End Sub
End Module