(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Hexadecimal Byte, UInteger and Integer
Option Strict On
Public Module modMain
Public Sub Main()
Dim maxValue As Byte = &HFF
Dim posValue As UInteger = &HF034
Dim negValue As Integer = &HF034
Console.WriteLine(maxValue)
Console.WriteLine(posValue)
Console.WriteLine(negValue)
End Sub
End Module
255
61492
61492
Integer Family MaxValue
Public Class Tester
Public Shared Sub Main
Dim result As New System.Text.StringBuilder()
result.AppendLine("MaxValue...")
Dim maxByte As Byte = Byte.MaxValue
Dim maxSByte As SByte = SByte.MaxValue
Dim maxShort As Short = Short.MaxValue
Dim maxUShort As UShort = UShort.MaxValue
Dim maxInteger As Integer = Integer.MaxValue
Dim maxUInteger As UInteger = UInteger.MaxValue
Dim maxLong As Long = Long.MaxValue
Dim maxULong As ULong = ULong.MaxValue
result.Append("Byte ").AppendLine(maxByte)
result.Append("SByte ").AppendLine(maxSByte)
result.Append("Short ").AppendLine(maxShort)
result.Append("UShort = ").AppendLine(maxUShort)
result.Append("Integer = ").AppendLine(maxInteger)
result.Append("UInteger = ").AppendLine(maxUInteger)
result.Append("Long = ").AppendLine(maxLong)
result.Append("ULong = ").AppendLine(maxULong)
Console.WriteLine(result.ToString())
End Sub
End Class
MaxValue...
Byte 255
SByte 127
Short 32767
UShort = 65535
Integer = 2147483647
UInteger = 4294967295
Long = 9223372036854775807
ULong = 18446744073709551615