[填空题] 窗体上有一个名称为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 Intege_考试资料记录