在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下：

Option Compare Database

Dim a As String*10

Private Sub Command1 Click()

a＝"1234"

b＝Len(

A．

Me.Lb1.Caption＝b

End Sub

打开窗体后单击命令按钮，窗体中显示的内容是( )。A) 4

B．5

C．10

D．40

男性，70岁，以"反复咳嗽、咳痰20年，气短、下肢水肿10年，加重2周，神志不清1天"为主诉入院。每年冬季发作，咳白色黏痰，近2周上述症状加重，咳黄痰，出现明显呼吸困难，不能平卧。1天前因头痛、烦躁、夜间不能睡觉，家属给予地西泮2片，服后即入睡不醒。既往史：吸烟30年，20支／日。

该患者动脉血气分析示：pH7.33，PaO₂46mmHg，PaCO₂71mmHg，AB38mmol／L，则该患者的诊断为（）

A.阻塞性肺气肿

B.支气管哮喘

C.支气管扩张

D.慢性支气管炎

E.慢性肺源性心脏病急性加重期

F.肺结核

G.Ⅱ型呼吸衰竭，肺性脑病

H.呼吸性酸中毒

I.支气管肺癌

J.呼吸性酸中毒合并代谢性酸中毒

K.呼吸性酸中毒合并代谢性碱中毒