在有下面一个程序段从文本框中输入数据，如果该数据满足条件，除以6余2，脓以5余3，则输出．否则，特焦点定位在文本框中，并清除文本框的内容。　　Private Sub Command1_Click( )　　　num=Val(Text1．Text)　　　If　【8】　Then　　　　Print num　　Else　　　　Text1．Text=" "　　　　 　【9】　　　　End If　　End Sub

男性，15岁，少尿、水肿5天，咳嗽气短不能平卧1天，起病前2周喉痛3天，血压170／110mmHg，端坐呼吸，两肺底有散布湿啰音，尿比重1．022，尿蛋白（+++），红细胞30～90个／HP，血清补体C3降低

该患者可能的诊断为（）

A.急性肾炎并左心功能不全

B.慢性肾炎急性发作

C.高血压并左心功能不全

D.急进性肾炎并左心功能不全

E.肾病综合征并左心功能不全