在窗体上面有一个文本框，其名称为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

患儿，8个月，以发热、咳嗽、憋喘5天为主诉入院，入院后第2天患儿突然出现面色灰白，极度烦躁不安，呼吸急促，60次/分钟。查体：心音低钝，节律齐，心率180次/分钟，呈奔马律，两肺闻及广泛的水泡音，肝肋下3cm，下肢有水肿，血常规：白细胞19×10⁹/L，全胸片示两肺见小片状影，两肺纹理增强，肺气肿。该患儿最可能的诊断（）

A.支气管肺炎合并休克

B.支气管肺炎合并肝炎

C.支气管肺炎合并中毒性脑病

D.支气管肺炎合并心肌炎

E.支气管肺炎合并心力衰竭