填空题 设有命令按钮Command1的单击事件过程，代码如下，请填空。
Private Sub Command1_Click()
Dim a(30) As Integer
For i=1 To 30
a(i) =i
Next
For Each arrItem 1a
If arrItem Mod 7=0 Then Print arrItem；
If arrItem＞90 Then Exit For
Next
End Sub