[填空题]窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为“计算”的命令按钮,如图所示。函数fun及命令按钮的单击事件过程如下,请填空。
![](http://staticrs.51sot.com/uploads/images/img/441696419614.jpg)
PrivateSubCommand1_Click()
DimxAsInteger
x=Val(InputBox("输入数据"))
Text1=Str(fun(x)+fun(x)+fun(x))
EndSub
PrivateFunctionfun(ByRefnAsInteger)
IfnMod3=0Then
n=n+n
Else
n=n*n
EndIf
______n
EndFunction
当单击命令按钮,在输入对话框中输入2时,文本框中显示的是______。