单选题 设有命令按钮Commandl的单击事件过程，代码如下：
Private Sub Commandl_Click()
Dima(30)As Integer
Fori=1 To 30
a(i)=Int(Rnd*100)
Next
For Each arrltem In a
IfarrltemMod7=0 ThenPrintarrItem；
Ifarrltem＞90ThenExitFor
Next
End Sub
对于该事件过程，以下叙述中错误的是( )。