按金字塔形状打印扬辉三角形（用数组做），在线等

Question

1
     1   1
    1  2   1
   1  3  3   1
  1  4  6  4   1
 1  5  10 10  5  1
如何去做啊？

Answer 1

Option Explicit
Dim yang(10, 10) As IntegerPrivate Sub Form_Load()
    Dim n As Integer
    Dim i As Integer, j As Integer
    n = 8                   '输出的行数
    For i = 0 To n - 1      '第1列和对角线上的元素置1
        yang(i, i) = 1
        yang(i, 0) = 1
    Next i
    For i = 2 To n - 1      '给杨辉三角形其它元素置数
        For j = 1 To i
            yang(i, j) = yang(i - 1, j - 1) + yang(i - 1, j)
        Next j
    Next i
    Form1.AutoRedraw = True '输出
    For i = 0 To n - 1
        For j = 0 To i
            Print yang(i, j);
        Next j
        Print vbNewLine
    Next i
End Sub

Answer 2

Option ExplicitDim yang(10, 10) As IntegerPrivate Sub Form_Load()
    Dim n As Integer
    Dim i As Integer, j As Integer
    n = 8
    For i = 0 To n - 1
        yang(i, i) = 1
        yang(i, 0) = 1
    Next i
    For i = 2 To n - 1
        For j = 1 To i
            yang(i, j) = yang(i - 1, j - 1) + yang(i - 1, j)
        Next j
    Next i
    Form1.AutoRedraw = True '输出
    For i = 0 To n - 1
        For j = 1 To (8 - i) * 2
            Print " ";
        Next j
        For j = 0 To i
            Print yang(i, j) & "   ";
        Next j
        Print vbNewLine
    Next i
End Sub

Answer 3

daisy8675(莫依)，谢谢你将程序分两部分写，我明白了，先生成数组，再按照特定格式输出，再问个问题：
Form1.AutoRedraw属性是什么意思

Answer 4

Form1.AutoRedraw就是重绘属性罗。

Answer 5

Form1.AutoRedraw属性是什么意思
//我想这样的问题你应该去查查MSDN^^