窗体上有一个名称为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) Ifn Mod 3=0 Then n=n+n Else n=n*n End If ________=n End Function 当单击命令按,在输入对话框中输入2时,文本框中显示的是_______。