编程实现加法运算，在两个文本框中输入加数，用标签表示结果，单击按钮进行计算，完成下列计算过程。
Private Sub Command1_Click()
Dim AAs Integer,B As Integer
A= (6)
B=Val(Text2.Text)
(7) =A+B
End Sub

患有支气管哮喘的高血压病人一般不用下列哪项药物（）。

A.α受体阻滞药

B.利尿剂

C.β受体阻滞药

D.血管紧张素转换酶抑制剂

E.钙拮抗剂