求大佬解答！！！
原题目：编写程序，输出斐波那契级数1、1、2、3、5、8……的前30项，要求每行输出5个（用数组来实现）。
写出来的代码如下：
Private Sub Command1_Click()
Dim a() As Integer
Dim i As Integer
a(1) = 1
a(2) = 1
For i = 3 To 30
a(i) = a(i - 2) + a(i - 1)
Next i
For i = 1 To 30
Print a(i),
If i Mod 6 = 0 Then Print
Next i
End Sub
上述代码不知道哪里错了，运行时老是显示“下标越界”，求解答

Dim a(1 To 30) As Integer
如果括号里是空的，那么数组里就没有元素，而VB在尝试引用空数组的元素时，也是报错“下标越界”，实际上是由于数组没有元素导致的错误