下标越界的问题，新手求教

Option Explicit
Option Base 1
Dim a(4, 5) As Integer, i As Integer, j As Integer
Private Sub Command1_Click()
For i = i To 4
   For j = 1 To 5
     a(i, j) = Int(Rnd * 9) + 1（此处提示下标越界）
     Picture1.Print a(i, j);
   Next j
   Picture1.Print
Next i
End Sub
求教