室内设计资料集电子版:VB问题，急！！！

编写程序，输出“杨辉三角形”。
杨辉三角形的每一行是（x+y)^n的展开式的各项的系数。
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1

Option Explicit
Private Sub Command1_Click()
Dim n%, i%, j%, a() As Integer
n = InputBox("多项式系数：", "输入框")
ReDim a(0 To n, 0 To n)
Cls
For i = 0 To n
a(i, 0) = 1
Next
Print a(0, 0)
For i = 1 To n
Print a(i, 0);
For j = 1 To i
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
Print a(i, j);
Next
Print
Next
End Sub

Option Explicit
Private Sub Command1_Click()
Dim n%, i%, j%, a() As Integer
n = InputBox("多项式系数：", "输入框")
ReDim a(0 To n, 0 To n)
Cls
For i = 0 To n
a(i, 0) = 1
Next
Print a(0, 0)
For i = 1 To n
Print a(i, 0);
For j = 1 To i
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
Print a(i, j);
Next
Print
Next
End Sub
Option Explicit
Private Sub Command1_Click()
Dim n%, i%, j%, a() As Integer
n = InputBox("多项式系数：", "输入框")
ReDim a(0 To n, 0 To n)
Cls
For i = 0 To n
a(i, 0) = 1
Next
Print a(0, 0)
For i = 1 To n
Print a(i, 0);
For j = 1 To i
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
Print a(i, j);
Next
Print
Next
End Sub