窗体上有一个名称为Text 1的文本框和一个名称为Command l、标题为“计算”的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。

　　Private Sub Command 1 _Click（）　　Dim x As Integer　　x=Val（InputBOX（"输入数据"））　　Text 1=Str（fun（x）+fun（x）+fun（x））　　End Sub　　　　Private Function fun（ByRef n As Integer）　　If n Mod 3=0 Then　　n=n+n　　Else　　n=n*n　　End If　　_【9】_=n　　End Function　　当单击命令按钮，在输入对话框中输入2时，文本框中显示的是_【10】_

患儿，7岁，2周前曾有发热、咽痛，近3天来水肿、尿少，血压16／11kPa（120／83mmHg）。尿常规：尿蛋白（++），RBC（++）／高倍视野，WBC5～7个／高倍视野，上皮细胞0～5个／高倍视野。血常规：Hb106g／L，WBC8×10／L，N0.62，L0.38。

暂不需要的治疗是（）

A.卧床休息

B.低盐饮食

C.适当限制水入量

D.双氢克尿噻20mg／次，1天2次

E.立即舌下含服硝苯吡啶10mg