以下程序段运行的结果是： ______。
Dim a(-1 To 5)As Boolean
Dim flag As Boolean
flag=False
Dim i As Integer
Dim j As Integer
Do Until flag=True
For i=-1 To 5
j=j+1
If a(i)=False Then
a(i)=True
Exit For
End If
If i=5 Then
flag=True
End If
Next
Loop
Print j

A．20

B．7

C．35

D．8

【病例摘要】王某，女，68岁，工人。于2011年9月15日就诊。患者于3年前出现颜面及双下肢水肿，时轻时重，伴血压升高，血压最高170/100mmHg，曾到多家医院检查尿常规：蛋白（++）～（+++），近一个月来水肿加重，而来就诊。现症见：颜面及双下肢水肿，乏力，纳差，面色苍白，腰酸畏寒，四肢冷凉，大便溏，尿少色清。查体：T36.4℃，P94/min，R20/min，BP165/105mmHg。神志清，精神不振，贫血貌，舌淡胖，苔白腻，脉沉细。咽部轻度充血，无黄疸及皮疹。腹软，肝脾未及，移动性浊音（±），双下肢Ⅱ度指凹性水肿。既往体健，无肝炎结核病史。否认药物及食物过敏史。尿常规示：红细胞（++），尿蛋白（++），颗粒管型（+），血常规无异常发现。尿红细胞位相显微镜检查：多形型占80%，均一型占20%。BUN9.68mmol/L，Scr238mmol/L。

【答题要求】根据给出的病例资料，按住院病历的书写格式完成书面辨证施治