这个程序怎么会下标越界呢？急！

Dim i%, j%, n%
n = Val(Text1.Text)
ReDim a(i, j)
For i = 1 To n
Picture1.Print Spc(n - i)
For j = 1 To i
If i = 1 And j <> 1 Then
a(i, j) = 1
End If
If i = j Then
a(i, j) = 1
End If
If i - 1 > 0 And j - 1 > 0 And i <> j Then
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
End If
t = a(i, j)
Picture1.Print t
Next j
Picture1.Print
Next i
End Sub
运行的时候怎么会下标越界呢？

这个程序怎么会下标越界呢？急！ 这个程序为什么老下标越界？？ 我这个VB程序怎么老是提示我“下标越界”？？？ vb下标越界问题，急！！！ 这个程序哪里错了？为什么总是提示说下标越界？ ASP程序中提示“下标越界”？大家帮我看看 一个vb程序下标越界问题(想不通) IE提交东西 下标越界 急 有追加 下标越界（VB） 为什么下标越界