在窗体上面有一个文本框，其名称为Text1，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String str=Chr(KeyAscii) KeyAscii=Asc(UCase(str)) Text1.Text=String(2,KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”，则在文本框Text1中显示的内容为( )。

A．aaa

B．AAA

C．AA

D．aa

患者，男，70岁。患冠心病多年，胸痛绵绵，心悸少寐，气短乏力，五心烦热，汗多口干，眩晕耳鸣，两颧微红，舌红少苔，脉细数无力。治疗应首选（）

A．生脉散

B．知柏地黄丸

C．保元汤

D．血府逐瘀汤

E．瓜蒌薤白半夏汤