大家看看为我杨辉三角代码哪里出问题了。

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

For i = 2 To n - 1              For j = 1 To i  ’是不是这应为 for j=1 to i-1
 
            yang(i, j) = yang(i - 1, j - 1) + yang(i - 1, j)        Next j    Next i
另外我想问一下，是什么意思呀，Print vbNewLine
是一个换行吗？vbNewLine是一个换行的常量吗

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

把For j = 1 To (8 - i) * 2
    Print " ";
Next j改成For j = 1 To (n - i) * 2
    Print " ";
Next j