窗体上有一个名称为Command1的命令按钮，一个名称为Text1的文本框。编写如下程序：Private Sub Command1_Click() Dim x As Integer x＝Val(InputBox("输入数据")) Text1＝Str(x＋fun(x)＋fun(x))End SubPrivate Function fun(ByRef n As Integer) If n Mod 3＝0 Then n＝n＋n Else n＝n * n End If fun＝nEnd Function对于上述程序，以下叙述中错误的是( )。