下列程序的功能是单击窗体时在消息框中输出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

患者朱某，女，53岁。素体气血不足，不慎感受风邪，症见口眼斜，言语不利，手足运动不灵活，舌苔白，脉浮数。治宜选用（）

A.地黄饮子

B.牵正散

C.大秦艽汤

D.小活络丹

E.补阳还五汤