下列程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5和7整除的整数，请补充完整此程序：
Private Sub Form_Click()
sum＝0
For i＝1 To 1000
If______Then
sum＝sum+i
End If
Next i
MsgBox sum
End Sub

《素问·痹论》认为春天感邪所产生的痹证是（）

A.骨痹

B.筋痹

C.脉痹

D.肌痹

E.皮痹