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

admin2010-11-02  11

问题 窗体上有一个名称为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)
  Ifn 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。
转载请注明原文地址:https://kaotiyun.com/show/aMmp777K
0

最新回复(0)