窗体上有一个名称为Commandl的命令按钮,一个名称为Textl的文本框。编写如下程序: Private Sub Commandl_Click() Dim x As Integer x=Val(InputBox(”输入数据”))

admin2019-04-29  35

问题 窗体上有一个名称为Commandl的命令按钮,一个名称为Textl的文本框。编写如下程序:
Private Sub Commandl_Click()
    Dim x As Integer
    x=Val(InputBox(”输入数据”))
    Text1=Str(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
    fun=n
End Function
对于上述程序,以下叙述中错误的是

选项 A、语句fun=n有错,因为n是整型,fun没有定义类型
B、运行程序,输入值为5时,文本框中显示655
C、运行程序,输入值为6时,文本框中显示42
D、ByRef表示参数按址传递

答案A

解析 本题中的函数fun的功能是判断参数是否能被3整除,若可以整除则将n翻倍,否则将n变为n的平方返回。在函数头部没有声明函数的返回值类型,默认为变体型,可以接受任何数据类型的赋值;ByRef表示参数按址传递,对形参的改变将会影响实参;当输入5的时候输出5+25+625=655;当输入6的时候输出6+12+24=42。
转载请注明原文地址:https://kaotiyun.com/show/DGUp777K
0

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