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

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} (Positive Infinity: {1})", 
                        result1, Double.IsPositiveInfinity(result1))
      
      Dim result2 As Double = 1.5935e250 * 7.948e110
      Console.WriteLine("{0} (Positive Infinity: {1})", 
                        result2, Double.IsPositiveInfinity(result2))
      
      Dim result3 As Double = Math.Pow(1.256e100, 1.34e20)
      Console.WriteLine("{0} (Positive Infinity: {1})", 
                        result3, Double.IsPositiveInfinity(result3))
   End Sub
End Module

Public Class Tester
    Public Shared Sub Main
    

        Dim result As New System.Text.StringBuilder
        Dim maxSingle As Single = Single.MaxValue
        Dim maxDouble As Double = Double.MaxValue
        Dim sizeOfSingle As Integer = Runtime.InteropServices.Marshal.SizeOf(maxSingle.GetType)
        Dim sizeOfDouble As Integer = Runtime.InteropServices.Marshal.SizeOf(maxDouble.GetType)

        result.Append("Memory size of a Single (bytes): ")
        result.AppendLine(sizeOfSingle)
        result.Append("Maximum value of a Single: ")
        result.AppendLine(maxSingle)
        result.AppendLine()

        result.Append("Memory size of a Double (bytes): ")
        result.AppendLine(sizeOfDouble)
        result.Append("Maximum value of a Double: ")
        result.AppendLine(maxDouble)

        Console.WriteLine(result.ToString())
     End Sub

End Class