10 lines
276 B
Text
10 lines
276 B
Text
' FB 1.05.0 Win64
|
|
|
|
Dim ui(1 To 4) As UInteger = {10, 26, 52, 100}
|
|
Print "Decimal Hex Octal Binary"
|
|
Print "======= ======== ======= ======"
|
|
For i As Integer = 1 To 4
|
|
Print Str(ui(i)); Tab(12); Hex(ui(i)); Tab(23); Oct(ui(i)); Tab(31); Bin(ui(i))
|
|
Next
|
|
|
|
Sleep
|