在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序： Option Base 1 Pdvate Sub Command1_Click() Dim c As Integer,d As Integer d=0 c=6 X=Array(2,4,6,8,10,12) For i=1 To 6 If X(i)>c Then d=d+X(i) c=X(i) Else d=d-c End If Next i Print d End Sub 程序运行后，单击命令按钮，则在窗体上输山的结果是( )。

A．10

B．12

C．16

D．20

男性，45岁，原位肝移植(胆管端端吻合术)术后1周，胆汁分泌每日100ml．ALT由 72U/L升至253U/L，TBiL由43μmol/L升至134tμmol/L。

若该患者T管造影显示为吻合口狭窄，首选治疗为

A．胆肠吻合术

B．再次肝移植

C．内镜治疗

D．药物保肝治疗

E．胆道冲洗