Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim a() As Integer, n As Integer
n = Val(InputBox("请输入行数"))
ReDim a(n, n)
For i = 1 To n
    a(i, i) = 1:   a(i, 1) = 1
Next i
For i = 3 To n
    For j = 2 To i - 1
       a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
    Next j
Next i
For i = 1 To n
   For j = 1 To i
        Print Tab( n -  i + 1 + 2 * (j) ); a(i, j);
   Next j
    Print
Next i

End Sub

若输入3  则打印输出：
    1
      1  
             1
1   
         2   
                 1
而要求的 效果应该是：
    1
      1   1
    1  2    1

应该是  
            1
                   1         1
              1         2        1

怎么那个一老打不到中间去阿 你们论坛烂了。。。。。。
   晕死

因该是    1
                                   1       1
                                1      2     1

因该是    1
                                   1       1
                                1      2     1