麻烦VB程序高手帮我改下下面的语句哪里错了，为什么运行不了！

Option Base 1
Private Sub Command1_Click()
Dim a(8, 8) As Integer
a(1, 1) = 1 '这里改
For i = 2 To 8
For j = 1 To 8
If j = 1 Or i = j Then
a(i, j) = 1
Else
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
End If
Next j
Next i

For i = 1 To 8
For j = 1 To 8
If a(i, j) <> 0 Then
Picture1.Print a(i, j); '这里改
End If '这里改
Next j
Picture1.Print " " '这里改
Next i
Picture1.Print '这里改
Picture1.Print '这里改
End Sub

Private Sub Command1_Click()
Dim a(8, 8) As Integer
a(i, 1) = 1
For i = 2 To 8
For j = 1 To 8
If j = 1 Or i = j Then
a(i, j) = 1
Else
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
End If
Next j
Next i
For i = 1 To 8
For j = 1 To 8
If a(i, j) <> 0 Then
Picture1.Print a(i, j)
Else
Picture1.Print a(i, j) & " ";
End If
Next j
Next