输入整数n，显示出具有n行的杨辉三角形。VB编程，跪求。

输入整数n，显示出具有n行的杨辉三角形。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)
Me.Cls
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
For J = 1 To I
Print A(I, J);
Next J
Print
Next I
End Sub

我暂时保留我的看法！

这些都是我做过的考试要求，- - 不过忘记了

Private Sub yh(ByVal n As Integer)
Dim a(n, n) As Integer
For i As Integer = 0 To n
a(i, 0) = 1
Next
For i = 0 To n - 1
For j As Integer = 1 To i
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
Next
Next
Label1.Text = ""
For i = 0 To n - 1
For j = 0 To i
Label1.Text += a(i, j).ToString() + " "
Next
Label1.Text += vbCrLf
Next
End Sub