患者女，65岁，油漆工，因“反复发作尿频、尿急伴肉眼血尿2年，下腹部、左侧腰部胀痛，排尿不畅、排尿不尽感2个月”来诊。血尿多为终末血尿，常含有陈旧性血凝块。无发热。经抗感染、止血对症治疗，能暂时缓解，但易复发。无烟、酒嗜好。无血吸虫疫水接触史。查体：T36.5℃，P80次/min，R20次/min，BP110/70mmHg；腹部稍膨隆，腹软，无明显压痛，肠鸣音正常。

术后长期观察的项目有（提示患者接受根治性膀胱切除术＋印第安纳异位可控膀胱术。）（）

A.尿常规

B.肝功能

C.肾功能

D.电解质

E.泌尿系统B型超声

F.胸部X线片

G.新膀胱的尿动力学检查

有如下一个函数过程：
Function Fun(a As Integer)
Static C
　　b=0:b=b+1:c=c+1
　　Fun=a+b+c
End Function
在窗体上添加一个命令按钮，事件过程如下：
Private Sub Command1_Click()
Dim a As Integer
　　a=2
　　For i=1 To 3
　　　　Print Fun(

A．；
　　Next