Question

等腰的杨辉三角VB代码

Private Sub Form_Click()
Dim A() As Long, N As Integer, I As Integer, J As Integer
N = Val(InputBox("指定行数"))
ReDim A(N, N)
For I = 1 To N
For J = 1 To I
If J = 1 Or I = J Then
A(I, J) = 1
Else
A(I, J) = A(I - 1, J - 1) + A(I - 1, J)
End If
Next J
Next I
For I = 1 To N
Print Tab(2 * (N + 2) - 2 * (I + 2) + 3);
For J = 1 To I
Print A(I, J);
Next J
Print
Next I
End Sub
大神帮忙改改 这个打出来的三角形是歪的，在打印的时候判断位数，位数多的就多加空格，这个地方怎么改啊，我总是改成下标越界

Answer 1

这样满意不？
Dim A() As Long, N As Integer, I As Integer, J As Integer
N = Val(InputBox("指定行数"))
ReDim A(N, N)
For I = 1 To N
For J = 1 To I
If J = 1 Or I = J Then
A(I, J) = 1
Else
A(I, J) = A(I - 1, J - 1) + A(I - 1, J)
End If
Next J
Next I
For I = 1 To N
Print Tab(2 * (N + 2) - 2 * (I + 2) + 3);
For J = 1 To I
Print Right(" " & CStr(A(I, J)), 2); " ";
Next J
Print
Next I