Question

我有一段vb程序，想要输出杨辉三角任意指定的行数，不知道哪儿有毛病了，老是说要求常数表达式，帮帮我

拜托了
程序代码：
Private Sub Form_Click()
Dim n As Integer
Dim i As Integer, j As Integer, a(n, n) As Integer
For i = 1 To n
n = Val(InputBox("请输入行数："))
a(i, 1) = 1
a(i, i) = 1
Next i
For j = 2 To i - 1
a(i, j) = a(i - 1, j) + a(i - 1, j - 1)
Next j
For i = 1 To n
For j = 1 To i
Print a(i, j)
Next j
Next i
End Sub

Answer 1

Dim n As Integer
Dim i As Integer, j As Integer, a() As Integer
n = Val(InputBox("请输入行数：", , 6))
ReDim a(n, n) '重定义
For i = 1 To n
a(i, 1) = 1 : a(i, i) = 1
For j = 2 To i - 1
a(i, j) = a(i - 1, j) + a(i - 1, j - 1)
Next j
Next i
'---------输出-----------------
For i = 1 To n
For j = 1 To i
Print a(i, j);
Next j
Print
Next i