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

献血前应注意什么？