itgle.com

在通用声明中定义a,在窗体中添加一个命令按钮Command1,编写如下程序代码:DimaAsIntegerSubtest()a=a+1:b=b+1:c=c+1Print"Sub:";a;",";b;",";cEndSubPrivateSubCommand1_Click()a=2:b=3:c=4CalltestCalltestEndSub程序运行后,单击命令按钮,窗体中将显示( )A.Sub:3,4,5Sub:4,5,6B.Sub:2,3,4Sub:2,3,4C.Sub:3,1,1Sub:4,1,1D.Su

题目

在通用声明中定义a,在窗体中添加一个命令按钮Command1,编写如下程序代码:

DimaAsInteger

Subtest()

a=a+1:b=b+1:c=c+1

Print"Sub:";a;",";b;",";c

EndSub

PrivateSubCommand1_Click()

a=2:b=3:c=4

Calltest

Calltest

EndSub

程序运行后,单击命令按钮,窗体中将显示( )

A.Sub:3,4,5Sub:4,5,6

B.Sub:2,3,4Sub:2,3,4

C.Sub:3,1,1Sub:4,1,1

D.Sub:1,1,1Sub:1,1,1


相似考题
更多“在通用声明中定义a,在窗体中添加一个命令按钮Command1,编写如下程序代码:DimaAsIntegerSub ”相关问题
  • 第1题:

    在窗体中添加一个命令按钮,编写如下程序代码:

    在InputBox对话框中输入Hello,运行结果为:______。


    正确答案:The Length of Hello is 5
    The Length of Hello is 5 解析:通过InputBox对话框输入“Hello”后,通过使用Len()函数计算包含字符串内字符的数目。

  • 第2题:

    假定在窗体中的通用声明段已经定义有如下的子过程:

    Sub f(x As Single,y As Single)

    t=x

    x=y

    y=x

    End Sub

    在窗体上添加一个命令按钮(名为Command1),然后编写如下事件过程:

    PrivateSubCommand1_Click()

    a=10

    b=20

    f(a,B)

    MsgBox a&b

    End Sub

    打开窗体运行后,单击命令按钮,消息框输出的值分别为( )。

    A.20和10

    B.10和20

    C.10和10

    D.20和20


    正确答案:A
    解析:本题考查VBA中参数传递的知识。在VBA的过程调用时,参数有两种传递方式:传址传递和传值传递。如果在过程声明时形参用ByVal声明,说明此参数为传值调用;若用ByRef声明,说明此参数为传址调用:没有说明传递类型,则默认为传址传递。即形参的结果会传递给实参。本题中形参完成了交换,由于默认为传址传递,交换后的值也会影响到实参a和b,即a和b完成了交换。

  • 第3题:

    ( 11 )在窗体中添加一个命令按钮(名称为 Command1 ),然后编写如下代码:

    Private Sub Command1_Click( )

    Static b As Integer

    b=b+1

    End Sub

    窗体打开运行后,三次单击命令按钮后,变量 b 的值是 【 11 】 。


    正确答案:

  • 第4题:

    在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1),然后编写如下事件过程:

    打开窗体运行后,单击命令按钮,文本框中显示的内容是( )。


    正确答案:12
    12 解析: 本题考查的是VBA编程基础、参数传递。由于VBA中,默认情况下,参数是按地址传递(ByRef),结果会返回。本题中z的值等于x+y,所以文本框中显示的内容为12。

  • 第5题:

    ( 11 )在窗体中添加一个命令按钮,名称为 Command1 ,然后编写如下程序:

    Private Sub Command1_Click()

    Dim s , i

    For i=1 To 10

    s=s+i

    Next i

    MsgBox s

    End Sub

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


    正确答案: