编程实现加法运算，在两个文本框中输入加数，用标签表示结果，单击按钮进行计算，完成下列计算过程。
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．上热下寒