[填空题] 窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为“计算”的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。Private Sub Com

[填空题] 窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为“计算”的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。 Private Sub Com

[填空题] 窗体上有一个名称为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)

If n Mod 3=0 Then

n=n+n

Else

n=n*n

End If

______n

End Function

当单击命令按钮，在输入对话框中输入2时，文本框中显示的是______。

正确答案：

fun 276

参考解析：

因为fun是个求值函数，故通过函数名返回值，所以第一空填fun。本题中fun函数的参数n是按地址传送的(印此值不会在函数结束后被销毁)，所以语句Str(fun(x)+fun(x)+fun(x))，据题意可知第一个fun(x)结果为4，第二个fun(x)结果为16，第三次fun(x)结果为256，所以第二空填276。