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

17 查阅

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

计算机考试