niusouti.com
（ 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
题目
（ 32 ）设有如下窗体单击事件过程：
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
相似考题
参考答案和解析
更多“( 32 )设有如下窗体单击事件过程:Private Sub Form. Click ()a = 1For i = 1 To 3Select Case iC ”相关问题
-
第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