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
|