窗体中有命令按钮Commandl,事件过程如下:PublicFunction f(x As Integer)As IntegerDim Y AsIntegerX=20y=2f= X *YEnd FunctionPrivateSub Commandl_Click( )Dim y As Integerstatic x As Integerx=10y=5y=f(x)Debug.Print x;yEnd Sub运行程序,单击命令按钮,则立即窗口中显示的内容是( )A.10;5B.10;40C.20;5D.20;4

题目

窗体中有命令按钮Commandl,事件过程如下:

PublicFunction f(x As Integer)As Integer

Dim Y AsInteger

X=20

y=2

f= X *Y

End Function

PrivateSub Commandl_Click( )

Dim y As Integer

static x As Integer

x=10

y=5

y=f(x)

Debug.Print x;y

End Sub

运行程序,单击命令按钮,则立即窗口中显示的内容是( )

A.10;5

B.10;40

C.20;5

D.20;40


相似考题
更多“窗体中有命令按钮Commandl,事件过程如下:PublicFunction f(x As Integer)As IntegerDim Y AsInte ”相关问题
  • 第1题:

    在窗体中有一个标签Lbl和一个命令按钮Commandl,事件代码如下:打开窗体后单击命令按钮,窗体中显示的内容是( )。

    A. 4

    B. 5

    C. 10

    D. 40


    正确答案:C
    本题考查VBA中定长字符串的知识。
    当声明一个变量为String类型时,如果不加长度说明,则为变长字符串;如果加上长度说明,则为定长字符串。定长字符串变量无论给它赋予何值,长度都为初始声明时指定的长度。由于声明a的长度为10,故1cn(a)=10。
    符串;如果加上长度说明,则为定长字符串。定长字符串变量无论给它赋予何值,长度都为初始声明时指定的长度。由于声明a的长度为10,故1cn(a)=10。

  • 第2题:

    设有如下通用过程: Public Function f(x As Integer) Dim y As Integer x = 20 y = 2 f = x * y End Function 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Commandl Click() Static x As Integer x = 10 y = 5 y = f(x) Print x;y End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是

    A.10 5

    B.20 5

    C.20 40

    D.10 40


    正确答案:C
    解析:本题主要考查传值与传地址的区别。在Command1的Click事件过程中, x=10以传地址的方式传给Function f(x As Integer)。而在这个函数过程中,x又被赋值20,所以此时变量x的值为20。y的值为20乘以2。所以正确答案为C。

  • 第3题:

    设有如下通用过程: Public Function f(x As Integer) Dim y As Integer x=20 y=2 f=x*y End Function 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) Static x As Integer x=10 y=5 y=f(x) Print x;y End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是

    A.10 5

    B.20 5

    C.20 40

    D.10 40


    正确答案:C
    解析:在Commandl的Click事件过程中,x=10以传地址的方式传给Func-honf(xAsInteger)。而在这个函数过程中,x又被赋值20,所以此时变量x的值为20。y的值为20乘以2。

  • 第4题:

    窗体上有名称为Commandl的命令按钮。事件过程及2个雨数过程如下:

    Private Sub Commandl_Click()

    Dim X As Integer,Y As Integer,z

    x=3

    Y=5

    z=fy(Y)

    Print fx(fx(x)),y

    End Sub

    Function fx(ByVal a As Integer)

    a=a+a

    fx=a

    End Function

    Function fy(ByRef a As Integer)

    a=a+a

    fy=a

    End nlnction

    运行程序,并单击命令按钮,则窗体上显示的2个值依次是【 】和【 】。


    正确答案:1210
    12,10 解析:函数fy中的参数a是按地址传递,函数fx中的参数a是按值传递,所以执行z=fy(y)后,y的值为10,z的值为10,x的值为3,而执行fx(fx(x))后,fx(fx(x))的为12。

  • 第5题:

    设有如下通用过程: Public Function f(x As Integer) Dim y As Integer x=20 y=2 f=x*y End Function 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程; Private Sub Command1_Click() Static x As Integer x=10 y=5 y=f(x) Print x;y End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。

    A.10 5

    B.20 5

    C.20 40

    D.10 40


    正确答案:C
    解析:在f过程中实参x的值被改变,值为20。而y的值是函数返回的值,为40。