求哪位好心人帮忙看下下面这段小程序为何会报错
Private Sub Command1_Click()Dim a(1 To 11) As Integer
Dim i As Integer
Dim d
For i = 1 To 11
a(i) = i
Next i
For Each d In a
If d >= 5 And d <= 8 Then
Continue For
End If
If d = 10 Then
Exit For
End If
Print d
Next