若有以下窗体单击事件过程： Private Sub Form_Click（) result = 1 For i = 1 To 6 step 3 result = result * i Next i MsgBox result End Sub 打开窗体运行后，单击窗体，则消息框的输出内容是______。A．1B．4C．15D．120
题目
若有以下窗体单击事件过程： Private Sub Form_Click（) result = 1 For i = 1 To 6 step 3 result = result * i Next i MsgBox result End Sub 打开窗体运行后，单击窗体，则消息框的输出内容是______。
A．1
B．4
C．15
D．120
相似考题
参考答案和解析
更多“若有以下窗体单击事件过程： Private Sub Form_Click（) result = 1 For i = 1 To 6 step 3 result = result * i Next i MsgBox result End Sub 打开窗体运行后，单击窗体，则消息框的输出内容是______。”相关问题
-
第1题：
设有以下窗体单击事件过程：
Private Sub Form_Click()
a=1
For i=1 To 3
End Select
Next i
End Sub
打开窗体运行后，单击窗体，则消息框的输出内容是( )。
正确答案：5
5 解析： 本题考查VBA程序设计中的多分支选择和循环的知识。在本题的程序中，共循环三次，第一次i的值为1，故此执行case语句中的a=a+1；第二次i的值为2，故此执行case语句中的a=a+2；第一次i的值为3，故此执行Case语句中的a=a+1。所以最后a的值为1+1+2+1=5。 -
第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．3
B． 4
C． 5
D． 6
正确答案：C
解析： Select Case结构运行时，首先计算“表达式”的值，它可以是字符串或数值变量或表达式。然后会依次计算测试每个Case表达式的值，直到值匹配成功，程序会转入相应Case结构内执行语句。本题中，当i＝1和3时，执行a＝a+1，当i＝2时，a＝a+2，所以a＝1+1+2+1＝5。 -
第3题：
设有如下窗体单击事件过程： 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
正确答案：B
解析：当i=1时，执行a=a+1，当i=2时，执行a=a+2，当i=3时不执行任何操作，当i =4时退出循环，a的值为4。 -
第4题：
在窗体中添加—个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() s="ABBACDDCBA" For I=6 To 2 Step -2 x=Mid(s,I,I) y=Left(s,I) z=Right(s,I) z=x & y & z Next I MSgBox z End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是______。
A．AABAAB
B．ABBABA
C．BABBA
D．BBABBA
正确答案：D
解析：Mid(字符表达式，数值表达式1，数值表达式2)：返回一个值，该值是从字符表达式最左端某个字符开始，截取到某个字符为止的若干字符。其中，数值表达式1的值是开始的字符位置，数值表达式2是终止的字符位置。Left(字符表达式，数值表达式)：返回一个值，该值是从字符表达式左侧第1个字符开始，截取的若干字符。具中，字符个数是数值表达式的值。Right(字符表达式，数值表达式)：返回一个值，该值是从字符表达式右侧第1个字符开始，截取的若干字符。其中，字符个数是数值表达式的值。For循环运行三次，最后一次循环结束后，x="BB"，y="AB"，z="BA"，所以z="BBABBA"。 -
第5题：
设有下列窗体单击事件过程：
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。 -
第6题：
在窗体上添加有一个命令按钮，(名为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，i=2时，k依旧执行其内部的两次循环，最后x还是等于15。i=1，i=3时，因为第三个for 语句始终对x的赋值为15，所以运算结果x始终等于15。第二层循环完成后退回到第一层，执行其剩余的循环，步骤问上，最后x=15。 -
第7题：
设有如下窗体单击事件过程： 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
-
第8题：
在窗体中使用一个文本框名为num1．接受输入值，有一个命令按钮run13，事件代码如下： Private Sub run13_Click If Me!num1 >= 60 Then result = "及格" ElseIf Me!num1 >= 70 Then result = "通过" ElseIf Me!num1 >= 85 Then result = "合格" End If MsgBox result End Sub 打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是 【13】 。
正确答案：
及格
-
第9题：
某个窗体己编写下列事件过程。打开窗体运行后，单击窗体，消息框的输出结果为 ______。
Pfivate Sub Form_Click()
a＝1
i＝1
Do Until i>10
a＝a+2
i＝i+3
Loop
MsgBox a
End Sub
正确答案：9
9 解析： 本题考查VBA中循环的知识。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。在Until循环中条件为False时执行循环体，条件为True时退出循环：在While循环中条件为True时执行循环体，条件为False时退出循环，这一点要注意区分清楚。本题中先判断条件后执行循环体，通过观察看出，i每次自加3，则每次循环中i的值分别为1、4、7、10，当i为13时由于满足Until条件而退出循环，所以循环共 -
第10题：
在窗体中使用一个文本框(名为n．接受输入的值，有一个命令按钮run，事件代码如下：
Private Sub run_Click( ．
result = ""
For i= 1 To Me!n
For j = 1 To Me!n
result = result + "*"
Next j
result = result + Chr(13． + Chr(10．
Next i
MsgBox result
End Sub
打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图形是
正确答案：A
本题通过双重For循环输出字符串，由于内层循环的循环次数为4，且每次内层循环均输出一个"*"，则每次外层循环输出一行"****"。由于外层循环的循环次数也为4，则四次外层循环后共输出四行"****"，所以选项A的输出是正确的。所以本题答案为A。 -
第11题：
在窗体中使用一个文本框(名为n)接受输入的值，有一个命令按钮run，事件代码如下； Ptivate Sub run_Click() Yesult=" " For i=1 To Me!n For j=1 To Me!n result=result +"*" Next j result=resuh+Chr(13)+Chr(10) NexL i MsSBOx result End Sub 打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图型是
A． * * * * * * * * * * * * * * * *
B． * * * * * * * * * * * * * * * *
C． * * * * * * * * * * * * * * * * * * * * * * * * * * * *
D． * * * * * * * * * * * * * * * *
正确答案：A
-
第12题：
在窗体上添加一个命令按钮(名为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。 -
第13题：
在窗体中添加一个命令按钮(名称为Command1) ，然后编写如下代码： Private Sub Command1_Click( ) A=95 If A＞60 Then I=1 If A＞70 Then I=2 If A＞80 Then I=3 If A＞90 Then I=4 MsgBox I End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是______。
A．1
B．2
C．3
D．4
正确答案：D
解析： if语句为if条件表达式1 Then语句1，当条件表达式1为真时要执行语句1。在程序中，A＝95，A＞90为真，因此执行语句“I＝4”，输出结果为4。 -
第14题：
设有以下窗体单击事件过程：Private Sub Form_C1ick( )
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和3的时候，执行a=a+1，当i=2时，执行a=a+2，所以a=1+1+2+1=5。 -
第15题：
在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_CliCk() A=75 If A＞60 Then I=1 If A＞70 Then I=2 If A＞80 Then I=3 If A＞90 Then I=4 MsgBox I End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是______。
A．1
B．2
C．3
D．4
正确答案：B
解析：“If条件表达式I Then条件表达式1为真时要执行的语句序列”，在程序中，A=75，即A＞70，执行“If A＞70 Then I=2”，所以，I=2。 -
第16题：
设有以下窗体单击事件过程：
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。 -
第17题：
设有以下窗体单击事件过程：
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。 -
第18题：
若有以下窗体单击事件过程：
Private Sub Form_Click()
result=1
For i=1 To 6 step 3
result=result*i
Next i
MsgBox result
End Sub
打开窗体运行后，单击窗体，则消息框的输出内容是
A．1
B．4
C．15
D．120
正确答案：B
解析：本题中主要考查FOR循环执行的次数和循环变量的取值，第一次循环i=1，result=1*1=1，之后i加3；第二次循环i=4，result=1*4=4，之后i加3为7不符合for循环条件，结束循环，输出结果为4。 -
第19题：
在窗体中使用一个文本框名为n．接受输入的值，有一个命令按钮run，事件代码如下： Private Sub run_Click( ) result = "" For i = 1 To Me!n For j = 1 To Me!n result = result + "*" Next j result = result + Chr(13) + Chr(10) Next i MsgBox result End Sub 打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图型是
A． * * * * * * * * * * * * * * * *
B． * * * * * * * * * * * * * * * *
C． * * * * * * * * * * * * * * * * * * * * * * * * * * * *
D． * * * * * * * * * * * * * * * *
正确答案：A
-
第20题：
在窗体中添加一个名为Command1的命令按钮，然后编写如下程序：
Private Sub s(By Val p As Integer)
p=p*2
End Sub
Prirate Sub Command1_Click( )
Dim i As Integer
i=3
Call s(i)
If i＞4 Then i=i^2
MsgBox I
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为______。
正确答案：3
3 解析： 由于VBA中，传值调用(Byval选项)为“单向”作用形式即过程调用只是相应位置实参的值“单向”传送给形参处理，而被调用过程内部对形参的任何操作引起的形参值的变化均不会反馈、影响实参的值。此题中：形参p被说明为ByRef唯值形式的整型量，当运行Command1_Click( )过程，并调用s( )函数，实参i传送其值给形参p，p发生变化P＝p*2＝3*2＝6。但因为使用的是DyVal“单向”传值形式，实参i的值不会发生变化，仍然为3。i＞4条件不成立，不会执行“i＝i^2”语句，所以最后i的值为3。 -
第21题：
若有以下窗体单击事件过程：Private SubForm_Click（ ） result=1 For i=1To 6 Step 3 result=result*i Next i MsgBoxresult End Sub打开窗体运行后，单击窗体，则消息框的输出内容是（ ）。
A.1
B.4
C.15
D.120
正确答案：B
此题考查简单的FOR循环，当i=1时，result=1，由于步长为3，则i=4，当i=4时，result的值为4，循环总共执行两次，所以答案选择B。 -
第22题：
设有如下窗体单击事件过程： Private Sub Form_Click() a=1 For i=1 To 3 Select Case i Case 1,3 a=a+l Case2,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。 -
第23题：
若有以下窗体单击事件过程：Private SubForm_Click（ ）
result=1
For i=1To 6 Step 3
result=result*i
Next i
MsgBoxresult
End Sub打开窗体运行后，单击窗体，则消息框的输出内容是（ ）。
A.1
B.4
C.15
D.120
正确答案：B
此题考查简单的FOR循环，当i=1时，result=1，由于步长为3，则i=4，当i=4时，result的值为4，循环总共执行两次，所以答案选择B。 -
第24题：
试题31
若有以下窗体事件过程：
Private Sub Form_Click()
result=1
For i=1 To 6 step 3
Result = result * 1
Next i
MsgBox result
End Sub
打开窗体运行后，单击窗体，则消息框的输出内容是（）
A．1
B．4
C．15
D．120
正确答案：B
试题31分析
i=1，result=1*1=1，i=4，result=1*4=4，i=7，不满足条件。
试题31答案
B