高分求VB高手 填空题 VB编杨辉三角

Dim M As Integer, N As Integer, R As Integer, a As Integer, b As Integer

Private Sub Command1_Click()
Dim N As Integer, I As Integer, J As Integer
Dim a() As Integer
Form1.Cls
N = Val(InputBox("请输入杨辉三角的行数"))
'**********found*************' '请不要删除该行'
Dim a(N, N)
For I = 1 To N
a(I, I) = 1
a(I, 1) = 1
Print Format(a(I, 1), "@@@@");
For J = 2 To I - 1
'**********found*************' '请不要删除该行'
a(I, J) = a(I - 1, J - 1) + a(I - 1, J)
Print Format(a(I, J), "@@@@");
Next J
If I <> 1 Then Print Format(a(I, I), "@@@@") Else Print
Next I

好像没有空要填吧?!
不过,运行不了的,要改一处!
把 Dim a(N, N)
改为 redim(N,N)就OK了

第一个空格 a(i, j) = a(i - 1, j - 1) + a(i - 1, j) 第二个空格 picture1.print