女性，42岁，1个月来上楼气短，1周来夜间不能平卧，双手皮肤厚。血压148/92mmHg，尿蛋白++（2g/d），尿沉渣RBC10～15个/HP。心包积液，ANA阳性，抗SCI-70弱阳性，抗SSA阳性，临床诊断是（）

A.狼疮性肾炎

B.干燥综合征

C.慢性肾炎

D.系统性硬化病

E.心包炎

有如下程序： Option Base 1 Pfivate Sub Form_Click() 　Dim arr,Sum 　Sum=0 　arr=Array(1,3,5,7,9,11,13,15,17,19) 　For i=1 To 10 　　If arr(i)/3=arr(i)\3 Then 　　　Sum=Sum+arr(i) 　　End If 　Nexti 　print Sum End Sub 程序运行后，单击窗体，输出结果为( )。

A．25

B．26

C．27

D．28