![[填空题] 窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为"计算"的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。 Priva](http://www.mshxw.com/aiimages/31/251717.png "[填空题] 窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为\"计算\"的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。 Priva")
[填空题] 窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为"计算"的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。
![[填空题] 窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为"计算"的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。 Priva](/uploadfile/member/20180926/1537964733.jpg "[填空题] 窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为\"计算\"的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。 Priva")
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)
If n Mod 3=0 Then
n=n+n
Else
n=n*n
End If
fun=n
End Function
当单击命令按钮，在输入对话框中输入2时，文本框中显示的是______。
参考答案：
276问题解析:
此函数是一个通过地址传递的函数，按地址传递对形参的修改会影响到实参，在函数中的返回值是以其函数名返回的。第一个fun(x)函数将2按地址传递给fun函数，2对3取余不为0，执行n=n*n=4，此时x=4，第二个fun(x)函数将x=4作为参数传递给fun函数，4对3取余不为0，执行n=4 *4=16，此时x=16，第三个fun(x)函数将x=16作为参数传递给fun函数，16对3取余不为0，执行n=16 *16=256，结果为4+16+256=276，所以文本框中显示的是276。
