填空题

窗体上有一个名称为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】_

9.（）

点击查看答案