以下程序的功能是：求被5和7除余数均为1的数。请在空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Form_Click()
Dim Ncount%，n%
Ncount=0
n=1
Do
n=n+1
If ______ Then
Debug.Print n
Ncount=Ncount+1
End If
Loop Until Ncount=5
End Sub

患者男性，50岁，有高血压病史5年，因近期未按时服药，2小时前出现明显头痛、烦躁、心悸、多汗，面色苍白，视力模糊，血压230／130mmHg

以上临床表现产生的主要原因是（）

A.脑血管自身调节障碍

B.交感神经兴奋及儿茶酚胺类物质分泌增多

C.血循环中醛固醇增多

D.血循环中皮质醇增高

E.心房利钠因子减少