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

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

admin2010-11-02  57
问题 窗体上有一个名称为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
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)