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