以下程序的功能是从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输 入负数时结束输入，输出结果。请补充完整下列程序段。　　Dim x，amax,amin As Single　　x=InputBox("Enter a score")　　amax=x　　amin=x　　Do While【】　　　　If x>amax Then　　　　amax=x　　　End If　　　If【】Then　　　　amin=x　　　End If　　　x=InputBox("enter a score")　　Loop　　Print"max="；amax，"min="；amin

初产妇，孕37周，近1周体重增加2.0kg，浮肿明显（+++），尿量减少。BP180/120mmHg，尿蛋白>5.0g/24h，心率110次／分，呼吸20次／分，有腹水征，先露头，胎心，胎位正常。化验检查：BUN、Cr、尿酸、血钾、尿比重均明显升高，尿中有红、白细胞、管型，二氧化碳结合力下降。

下述哪项不符合急性肾衰竭的诊断？（）

A.二氧化碳结合力下降，尿酸升高

B.BUN、血钾升高

C.尿量减少

D.尿蛋白>5.0g/24h

E.高血压