我用VB编辑了一个杨辉三角，但不是等腰三角而是直角。请高手看看我的代码哪里出了问题。

Question

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 = 0 To i            Print yang(i, j);        Next j        Print vbNewLine    Next iEnd Sub 
 
 

Answer 1

' 另外的贴子也回了.
' 大致就这么个思路，行数多了以后得考虑有两位数的问题。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