VB.Net by API/System/Single

Single.MaxValue

<source lang="vbnet"> 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

 </source>