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

If S > Single.MaxValue Then
    Console.WriteLine("Your number is larger than a Single.")
End If

Module Example
   Public Sub Main()
      Dim result1 As Single = 1.867e38 + 2.385e38
      Console.WriteLine("{0} (Positive Infinity: {1})", 
                        result1, Single.IsPositiveInfinity(result1))
      
      Dim result2 As Single = 1.5935e25 * 7.948e20
      Console.WriteLine("{0} (Positive Infinity: {1})", 
                        result2, Single.IsPositiveInfinity(result2))
   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