在窗体中添加一个名称为Cmd的命令按钮，然后编写如下程序： Public x As integer Private Sub Cmd_Click() x=10 Call add1 Call add2 MsgBox x End Sub Private Sub add1 ( ) x=x+20 End Sub Private Sub add2 ( ) Dim x As integer x=x+40 End Snb 窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。A．10B．60C．30D．70

题目

在窗体中添加一个名称为Cmd的命令按钮，然后编写如下程序： Public x As integer Private Sub Cmd_Click() x=10 Call add1 Call add2 MsgBox x End Sub Private Sub add1 ( ) x=x+20 End Sub Private Sub add2 ( ) Dim x As integer x=x+40 End Snb 窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。

A．10

B．60

C．30

D．70

相似考题

1.在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：

2.在窗体中添加一个名称为Coml的命令按钮，然后编写如下程序：

3.在窗体上添加一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：程序运行后，单击命令按钮，在文本框中显示的值是__________。

4.在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序：Pfivme Sub f(ByVal x As Integer)x＝x+4End SubPfivate Sub Commandl_Click()i＝3Call f(i)Ifi>4 Then i＝i*2MsgBOx IEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为______。

更多“在窗体中添加一个名称为Cmd的命令按钮,然后编写如下程序: Public x As integer Private Sub Cmd_ ”相关问题

  • 第1题：

    在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序：窗体打开运行后，单击命令按钮，则消息框的输出结果为（ ）。

    A. 3

    B. 4

    C. 6

    D. 7


    正确答案：A
    本题考查VBA中参数传递的知识。在 VBA的过程调用时，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用ByVal声明，说明此参数为传值调用；若用 ByRef声明，说明此参数为传址调用：没有说明传递类型，则默认为传址传递。本题中在定义子过程f的时候用ByVal声明了形参x，说明为传值调用，此时对X的任何更改不会影响调用它的实参i，所以执行完Call f(i)这条语句后i的值不变仍为3，当然也不满足If语句的条件，故此最后输出结果为3。

  • 第2题：

    在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序： Public x As Integer Private Sub Commandl_click() x＝10 Call s 1 Call s 2 MsgBOx x End Sub Pfivate Sub s1() x＝x+20 End Sub Private Sub

    A．10

    B．30

    C．40

    D．50


    正确答案：B
    解析： 本题考查变量作用域的知识。在整个程序中定义了一个全局变量x，在命令按钮的单击事件中对这个x赋值为10，然后依次调用s1和s2；在s1中对x自加了20；在s2中用Dim定义了一个局部变量 x，按照局部覆盖全局的原则，在s2中的操作都是基于局部变量x而不是全局变量x。故此最终的输出结果为30。

  • 第3题：

    在窗体中添加一个命令按钮，名称为Commandl，然后编写如下程序：

    窗体打开运行后，单击命令按钮，则消息框的输出结果为__________。


    正确答案：
    2500【解析】本题考查循环的知识。这个问题比较简单，实际上就是求l到100之间的奇数和，最终结果为2500。

  • 第4题：

    在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序：Public X As Integer Private Sub Commandl Click（ ）x＝10 Call slCall s2MsgBox x End Sub Private Sub sl（ ）x＝x+20 End Sub Private Sub s2（ ）Dim x As Integer x=x+20End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为（ ）。

    A.10

    B.30

    C.40

    D.50


    正确答案：B
    B。【解析】在本题中，定义了一个全局变量X，在命令按钮的单击事件中对这个X赋值为10，然后依次调用sl和s2；在s1中对X自加了20；在s2中用Dim定义了一个局部变量x，按照局部覆盖全局的原则，在s2中的操作都是基于局部变量X而不是全局变量X。所以本题输出结果为30。

  • 第5题：

    在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序：

    Private Sub Commandl Click（ ）x＝10

    Call slCall s2MsgBox x

    End Sub

    Private Sub sl（ ）x＝x+20

    End Sub

    Private Sub s2（ ）Dim x As Integer

    窗体打开运行后，单击命令按钮，则消息框的输出结果为（ ）。

    A.10

    B.30

    C.40

    D.50


    正确答案：B

    B。【解析】在本题中，定义了一个全局变量X，在命令按钮的单击事件中对这个X赋值为10，然后依次调用sl和s2；在s1中对X自加了20；在s2中用Dim定义了一个局部变量x，按照局部覆盖全局的原则，在s2中的操作都是基于局部变量X而不是全局变量X。所以本题输出结果为30。

相关内容