女性，28岁，尿频、尿急、尿痛、小腹痛伴终末血尿2天，尿常规见许多红、白细胞/HP。下列诊断哪一项是正确的（）

A.泌尿系结石

B.泌尿系结核

C.急性肾盂肾炎

D.膀胱肿瘤

E.急性膀胱炎

某次大奖赛有7个评委同时为一位选手打分，去掉一个最高分和一个最低分，其余5个分数的平均值为该名参赛者的最后得分。请填空完成规定的功能。
Sub command1_click()
Dim mark!，aver!，i%，max1!，min1!
aver=0
For i=1 To 7
Mark=InputBox("请输入第"& i & "位评为的打分")
If i=1 then
maxl=mark：mini=mark
Else
If mark＜minl then
minl=mark
ElseIf mark＞max1 then
______
End If
End If
______
Next j
aver=(aver-max1-mini)/5
MsgBox aver
End Sub