患者男性，52岁。间断性头晕、心悸10年，加重半年来诊。患病以来无心前区疼痛，无呼吸困难。查体：BP168/104mmHg，P50次/分，双肺呼吸音清，心律齐，来闻及杂音，双下肢无浮肿。

此患者鉴别诊断应做的检查包括（）。

A.心脏电生理检查

B.胸部X线

C.血浆醛固酮测定

D.头部CT

E.血浆肾素及儿茶酚胺活性测定

F.双肾及肾上腺B型超声；双侧肾动脉造影；双肾及肾上腺CT检查

执行下面程序，第一行输出结果是 (11) ，第二行输出结果是 (12) 。
Option Explicit
Private Sub Form_Click()
Dim A As Integer
　　A=2
　　Call Subl(A)
　　End Sub
Private Subl(x As Integer)
　　x=x*2+1
　　If x＜10 Then
　　　　Call Subl(x)
　　End If
　　x=x*2+1
　　Print x
End Sub