请教各位大侠：

  我想打印一个等腰的杨辉三角，因为10位数与个位数的占位不一样，所以阶数超过5就会变形，无法打印成等腰的，麻烦请教各位大侠有解决的办法吗？如果没有，麻烦看过的人给点自己的看法，拜谢啊！

源码如下：

 Sub Main()
        Dim s As String = "                                      "
        Dim N = 6
        Dim a(N, N)
        For i = 0 To N - 1
            Console.Write(Mid(s, 1, N - i))
            For j = 0 To i
                If (j = 0 Or j = i) Then
                    a(i, j) = 1
                Else
                    a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
                End If
                Console.Write(a(i, j).ToString + " ")
            Next
            Console.WriteLine()
        Next i
        Console.Read()
    End Sub

n=5

n=6