更多“在窗体上添加一个按钮,名为Command1,然后编写如下的事件过程,输出结果为Prinvate Sub Comandl_Cl ”相关问题
  • 第1题:

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

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


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

  • 第2题:

    在窗体上添加一个按钮,名为Command1,然后编写如下的事件过程,输出结果为

    Prinvate Sub Comand1_Click()

    For i=1 To 4

    x=4

    For j=1 To 3

    x=3

    For k=1 To 2

    x=x+5

    Next

    Next

    Next

    Print x

    End Sub

    A.13

    B.26

    C.30

    D.40


    正确答案:A
    解析:本题考查多重For循环结构。做题时要注意每次循环时变量的初始值。

  • 第3题:

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

    Private Sub Command1_Click ()

    Dim b,k

    For k=1 to 6

    b=23+k

    Next k

    MsgBox b+k

    End Sub

    打开窗体后,单击命令按钮,消息框的输出结果是 【 15 】 。


    正确答案:

  • 第4题:

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

    Private Sub Command1_Cliek

    Dim b, k

    For k = 1 to 6

    b=23+k

    Next k

    MsgBox b + k

    End Sub

    打开窗体后,单击命令按钮,消息框的输出结果是【 】。


    正确答案:51
    51 解析:本题循环内部完成b=231+2+3+4+5+6的操作,当k=7时,结束循环,故消息框中显示的是51。

  • 第5题:

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

    Function m(x as Integer,y as Integer) as Integer

    m=IIf(x>y,x,y)

    End Function

    Private Sub Commandl Click()

    Dim a as Integer,b as Integer

    a=1

    b=2

    MsgBox m(a,B)

    End Sub

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


    正确答案:2
    2 解析:本题考查考生VBA程序设计的能力。在本题中,考生应该掌握IIF条件接口。题目中调用函数m(x,y),并将a的值传给x,将b的值传给y,因此x=1,y=2。对于函数IIf(x>y,x,y)来说,其功能是当x>y为真时返回x的值,当 x>y为假时返回y的值。在本题中,因为x>y为假,因此应该返回y的值,即返回2。