填空题

设有命令按钮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

【参考答案】

In