niusouti.com

设有如下窗体单击事件过程： Private Sub Form_Click() a=1 For i=1 To 3 Select Case i Case 1 a=a+1 Case 2, 4 a=a+2 End Select Next i MsgBox a End Sub 打开窗体运行后，单击窗体，则消息框的输出结果是( )。A．3B．4C．5D．6

题目

设有如下窗体单击事件过程： Private Sub Form_Click() a=1 For i=1 To 3 Select Case i Case 1 a=a+1 Case 2, 4 a=a+2 End Select Next i MsgBox a End Sub 打开窗体运行后，单击窗体，则消息框的输出结果是( )。

A．3

B．4

C．5

D．6

相似考题

1.（ 32 ）设有如下窗体单击事件过程：Private Sub Form. Click （）a ＝ 1For i ＝ 1 To 3Select Case iCase 1 ， 3a ＝ a ＋ 1Case 2, 4a ＝ a ＋ 2End SelectNext iMsgBox aEnd Sub打开窗体运行后，单击窗体，则消息框的输出的结果是A ） 3B ） 4C ） 5D ） 6

2.设有如下窗体单击事件过程： Private Sub Form Click( ) a＝1 For i＝1 To 3 Select Case i Case 1,3 a＝a+1 Case 2,4 a＝a+2 End Select Next i MsgBox a End Sub 打开窗体运行后，单击窗体，则消息框的输出结果是__A．3B． 4C． 5D． 6

3.设有以下窗体单击事件过程：Private Sub Form_C1ick( )a=1For i=1 To 3Select Case ICase 1,3a=a+1Case 2,4a=a+2End SelectNext IMsgBox aEnd Sub打开窗体运行后，单击窗体，则消息框的输出内容是______。

4.设有如下窗体单击事件过程：Private Sub Form Click( )x=1For i=1 To 3Select Case ICase 1,3x=x+3Case 2,4x=x-2End SelectNext IMsgBox xEnd Sub打开窗体运行后，单击窗体，则消息框的输出结果是______。

参考答案和解析
正确答案：B
解析：当i=1时，执行a=a+1，当i=2时，执行a=a+2，当i=3时不执行任何操作，当i =4时退出循环，a的值为4。
更多“设有如下窗体单击事件过程:Private Sub Form_Click()a=1For i=1 To 3 Select Case i Case 1a=a＋1 ”相关问题

  • 第1题：

    设有以下窗体单击事件过程：

    Private Sub Form_Click()

    a＝1

    For i＝1 To 3

    Select Case i

    Case 1,3

    a＝a＋1

    Case 2,4

    a＝a＋2

    End Select

    Next i

    MsgBox a

    End Sub

    打开窗体运行后，单击窗体消息框的输出内容应为【 】。


    正确答案：5
    5 解析：考查条件语句。Select Case结构运行时，首先计算"表达式"的值，它可以是字符串或者数值变量或表达式。然后依次计算测试每个Case表达式的值，直到值匹配成功。程序会转入相应Case结构内执行语句。i＝1时，执行语句a＝a＋1＝2；i＝2时，执行语句a＝a＋2＝4；i＝3时，执行语句a＝a＋1＝5。

  • 第2题：

    设有以下窗体单击事件过程：

    Private Sub Form_Click()

    a=1

    For i=l To 3

    Select Case i

    Case 1，3

    a=a+1

    Case 2,4

    a=a+2

    End Select

    Next i

    MsgBox a

    End Sub

    打开窗体运行后，单击窗体，则消息框的输出内容是______。


    正确答案：5
    5 解析：本题考查VBA程序设计中的多分支选择和循环的知识。在本题的程序中，共循环三次，第一次i的值为1，故此执行Case 1，3语句中的a=a+1；第二次i的值为2，故此执行Case 2,4语句中的 a=a+2；第三次i的值为3，故此执行Case1，3语句中的a=a+1。所以最后a的值为1+1+2=1=5。

  • 第3题：

    设有如下窗体单击事件过程： Private Sub Form_Click（) a = 1 For i= 1 To 3 Select Case i Case 1,3 a= a+1 Case 2,4 a = a+2 End Select Next i MsgBox a End Sub 打开窗体运行后，单击窗体，则消息框的输出的结果是（)。

    A．3

    B．4

    C．5

    D．6


    C 解析：Select Case结构运行时，首先计算“表达式”的值，它可以是字符串或者数值变量或表达式。然后会依次计算测试每个Case表达式的值，直到值匹配成功，程序会转入相应Case结构内执行语句。本题中，当i=1和3的时候，执行a=a+l，当i=2时，执行a=a+2，所以a=1+1+2+1=5。

  • 第4题：

    设有下列窗体单击事件过程：

    Pfivate Sub Form_Click()

    a＝1

    For i＝1 To 3

    Select Case I

    Case 1,3

    a＝a+1

    Case 2,4

    a＝a+2

    End Select

    Next I

    MsgBox a

    End Sub

    打开窗体运行后，单击窗体，则消息框的输出内容是______。


    正确答案：5
    5 解析： 本题考查VBA程序设计中的多分支选择和循环的知识。在本题的程序中，共循环3次，第一次i的值为1，故此执行Case语句中的a＝a+l；第二次i的值为2，故此执行Case语句中的a＝a+2：第一次 i的值为3，故此执行Case语句中的a＝a+1。所以最后a的值为1+1+2+1＝5。

  • 第5题：

    设有如下窗体单击事件过程： Private Sub Fom_Click． a =1 For i –To3 Select Case i Case 1,3 a =a +1 Case2,4 a =a +2 End Select Next i MsgBox a End Sub 打开窗体运行后，单击窗体，则消息框的输出的结果是 A．3 B．4 C．5 D．6


    正确答案：C

相关内容