Print ACS table

Module AcsTable

    Sub Main()
        Dim c As Char
        Dim n As Integer
        For i = 0 To 13 Step 1
            n = 32 + 16 * i
            If (n < 100) Then
                Console.Write(" ")
            End If
            Console.WriteLine(" ")
            Console.Write(" {0} : ", n)
            For j = 0 To 15 Step 1
                n = 32 + 16 * i + j
                c = ChrW(n)
                Console.Write(" {0} ", c)
            Next
        Next
        Console.ReadKey()
    End Sub

End Module