niusouti.com

在窗体上添加一个命令按钮，名为command1，事件过程为：Private Sub command1_Click( )x=0Do Until c=-1a= val(InputBox(“输入a的值”))b= val(InputBox(“输入b的值”))c= val(InputBox(“输入c的值”))LoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5，4，3，2，1，-1后，输出的结果是 ( )A.2B.3C.4D.5

题目

在窗体上添加一个命令按钮，名为command1，事件过程为：

Private Sub command1_Click( )

x=0

Do Until c=-1

a= val(InputBox(“输入a的值”))

b= val(InputBox(“输入b的值”))

c= val(InputBox(“输入c的值”))

Loop

Print a

End Sub

程序运行后，单击命令按钮，依次在输入对话框中输入5，4，3，2，1，-1后，输出的结果是 ( )

A.2

B.3

C.4

D.5

相似考题

1.在窗体上添加一个命令按钮（名为Command1），然后编写如下事件过程：Private Sub Command1_Click（）For i=1 To 4x=4For j=1 To 3x=3For k=1 To2x=x+6Next kNext jNext iMsgBox xEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是A．7B．15C．157D．538

2.在窗体上添加一个命令按钮，名为Command1，事件过程如下，则执行结果是______。A．2 4 6 8B．1 3 5 7C．3 6 6 12D．4 8 12 16

3.在窗体上添加有一个命令按钮，(名为Command1)，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next I MsgBox x End Sub 打开窗体后，单击命令按钮，消息框的输出结果是 ______。A．7B．15C．157D．538

4.在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，编写如下事件过程：Private Sub Command1_Click()Dim x As Integer,y As Integer,z As IntegerCall f(x,y,z)End SubSub f(a As Integer,b As Integer,c As Integer)c=b*aEnd Sub打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。

更多“在窗体上添加一个命令按钮,名为command1,事件过程为:Private Sub command1_Click( )x=0Do U ”相关问题

  • 第1题：

    在窗体上添加一个命令按钮(名为Command1，然后编写如下事件过程： Private Sub Command1_Click( ) For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next i MsgBox x End Sub 打开窗体后，单击命令按钮，消息框的输出结果是______。

    A．7

    B． 15

    C． 157

    D． 538


    正确答案：B
    解析： 此题中应用三重嵌套循环，循环嵌套的执行，当外层循环执行一次，内层就要执行所有的循环。第一个for语句对变量x赋值，x＝4；第二个for语句对变量x赋值，x＝3；第三个for语句对变最x赋值，x＝x+6。当i＝1，j＝1时，k执行其内部的两次循环，此时x赋值为3，当k＝1时，x＝ x+6＝3+6＝9；k＝2时，x＝x+6＝9+6＝15。退出内循环到第二个for语句执行其剩余的循环，i＝1，j＝2时，k依旧执行其内部的两次循环，之后x还是等于15。当i＝1，j＝3时，因为第三个for语句始终对x的赋值为15

  • 第2题：

    在窗体上添加一个命令按钮(名为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。

  • 第3题：

    在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程： Private Sub Command1_Click() For i=l To 4 x=4 For j=1 To 3 x=3 Fork=1 To 2 x=x+6 Next k Next j Next i MsgBox x End Sub 打开窗体后，单击命令按钮，消息框的输出结果是( )。

    A．7

    B．15

    C．157

    D．528


    正确答案：B
    解析：本题考查VBA中多重循环的知识。见到多重循环的问题不要害怕，认真地分析清楚每一次循环问题就会迎刃而解。本题中，在每一次外循环开始的时候都把x的值置为4，所以我们只分析最后一次循环就可以了；同理中层循环每一次开始前都把x的值置为3，所以这个问题最后实际上就是x的初值为3，执行最内层循环直到结束就可以了。根据程序内循环执行两次，所以最后 x=3+6+6=15。

  • 第4题：

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

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


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

  • 第5题：

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

    Private Sub Command1_Click()

    For i＝1 To 4

    x＝4

    For j＝1 To 3

    x＝3

    Fork＝1 To 2

    x＝x+6

    Next k

    Next j

    Next i

    MsgBox x

    End Sub

    打开窗体后，单击命令按钮，消息框的输出结果是( )。

    A．7

    B．15

    C．157

    D．528


    正确答案：B
    解析：本题考查VBA中多重循环的知识。见到多重循环的问题不要害怕，认真地分析清楚每一次循环问题就会迎刃而解。本题中，在每一次外循环开始的时候都把x的值置为4，所以我们只分析最后一次循环就可以了；同理中层循环每一次开始前都把x的值置为3，所以这个问题最后实际上就是x的初值为3，执行最内层循环直到结束就可以了。根据程序内循环执行两次，所以最后x＝3+6+6＝15。

  • 第6题：

    （ 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 】 。


    正确答案：

相关内容