Question

VB 杨辉三角

输入n 输出n+1层的杨辉三角 而且要等腰的
哪位高人帮我看看哪不对~~~
谢啦!!!
Private Sub Form_Click()
Dim n As Integer, i As Integer, j As Integer
n = InputBox("请输入n")
ReDim a(n + 1, n + 1) As Integer
For i = 1 To n + 1
a(i, 1) = 1: a(i, i) = 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, i
For i = 1 To n + 1
Print Tab(30 - 2 * i);
For j = 1 To i
Print Space(4 - Len(Trim(Str(a(i, j))))); Trim(Str(a(i, j)));
Next j
Print
Next i
End Sub

Answer 1

Dim n As Integer, i As Integer, j As Integer
x = InputBox("请输入n")
n = Val(x)
ReDim a(n + 1, n + 1) As Integer
For i = 1 To n + 1
a(i, 1) = 1: a(i, i) = 1: Next i
For i = 3 To n + 1
For j = 2 To i - 1
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
Next j, i
For i = 1 To n + 1
Print Tab(30 - 2 * i);
For j = 1 To i
Print Space(4 - Len(Trim(Str(a(i, j))))); Trim(Str(a(i, j)));
Next j
Print
Next i