Imports System
Imports Microsoft.VisualBasic
Module MainClass
Sub Main( )
Dim bases() As Integer = { 2, 8, 10, 16}
Dim numbers() As Integer = { -13621, -18, 12, 19142, Int32.MaxValue }
For Each base As Integer In bases
Console.WriteLine("Base {0} conversion:", base)
For Each number As Integer In numbers
Console.WriteLine(" {0,-15} --> 0x{1}", _
number, Convert.ToString(number, base))
Next
Next
End Sub
End Module