下列肾血管疾病引起急性肾衰竭应除外（）

A.良性肾小动脉硬化症

B.恶性高血压

C.溶血性尿毒症综合征

D.硬皮病危象

E.肾小动脉栓塞

有如下的程序：　　Private Sub Command1_Click( )　　　Dim k As Integer，m As Integer　　　Dim P As Integer　　　k=4：m=1　　　P=Pid(k，m) ：Print P；　　　P=Pid(k，m) ：Print P　　End Sub　　Private Function Pid(a As Integer，b As Integer)　　　Static m As Integer，i As Integer　　　m=5：i=2　　　i=i + m + 1　　　m=i + a + b　　　Pid=m\2　　End Function　　单击命令按钮后，输出结果为（ ）。

A． 2 2

B． 4 4

C． 5 5

D． 6 6