在窗体上画一个命令按钮，然后编写如下程序： Function funl(ByVal Bum As Long)As LongDim k As Longk = 0Bum=Abs(Bum)Do While Bum k=k+(Bum Mod 10) Bum=Bum\10Loopfun1=k End Function Private Sub Command1_Click()Dim n As Longn=InputBox("请输入一个数")Print fun1(n) End Sub 程序运行后，单击命令按钮，在对话框中输入234，输出的结果为

A．3

B．4

C．9

D．10

男，30岁，发冷发热10d，咳嗽、胸痛、咳脓血性痰，痰量多，每日约300ml～500ml。体检：左下肺有支气管呼吸音及水泡音，胸片示左下肺有片状影，并有透光区。

诊断首先考虑

A．肺脓肿

B．肺癌合并感染

C．支气管扩张感染

D．肺炎

E．肺结核合并感染