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

Private Sub Command1_Click()
Dim x As Integer
x=Val(InputBox("输入数据"))
Text1=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
______n
End Function
当单击命令按钮，在输入对话框中输入2时，文本框中显示的是______。

下列关于肺泡表面活性物质的描述，错误的是

A．减少肺泡内的组织液生成

B．降低肺泡表面张力

C．稳定肺泡容积

D．降低肺的顺应性

E．由肺泡Ⅱ型细胞所分泌