试题31若有以下窗体事件过程：Private Sub Form_Click()result=1For i=1 To 6 step 3Result = result * 1Next iMsgBox resultEnd Sub打开窗体运行后，单击窗体，则消息框的输出内容是（）A．1B．4C．15D．120
题目
试题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
相似考题
更多“试题31若有以下窗体事件过程:Private Sub Form_Click() result=1 For i=1 To 6 step 3 Result = ”相关问题
-
第1题：
在窗体上画1个命令按钮，并编写如下事件过程：
Private Sub Command1-Click()
For i=5 To 1 Step-0．8
Print Int(i)；
Next i
End Sub
运行程序，单击命令按钮，窗体上显示的内容为
A．5 4 3 2 1 1
B．5 4 3 2 1
C．4 3 2 1 1
D．4 4 3 2 1 l
正确答案：A
解析：题中所述程序是一个初值为5，步长为-0．8,终值为1的循环过程。第一次执行时，循环变量i_5，Print Int(i)的输出结果为在窗体上打印数字5，其中Int()函数取不大于i的最大整数；第二次循环，i=4．2，输出结果为4；第三次、第四次输出结果分别为3和2；第五次循环，i_1．8，输出结果为1；第六次循环，i=1，输出结果为l。第六次循环后跳出循环，整个程序结束。 -
第2题：
请阅读程序：
Private Sub Form_Click()
m=1
For i=4 To 1 Step-1
Print Str(m)；
m=m+1
For j=1 To i
Print”*”；
Next j
Print
Next i
End Sub
程序运行后，单击窗体，则输出结果是( )。
A．1**** 2*** 3** 4*
B．4* 3** 2*** 1****
C．**** *** ** *
D．* ** *** ****
正确答案：A
解析：本题是利用循环语句输出，每次循环在一行中输出i个星号，变量m是行号，j是星号个数，无参数的print语句让程序在新的一行输出。 -
第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题：
某个窗体己编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为【 】。
Private Sub Form_Click()
Dim k as Integer， n as Integer，m as Integer
n=10 ：m=1 : k=1
Do While k＜=n
m=m*2
k=k+1
Loop
MsgBox m
End Sub
正确答案：1024
1024 解析：本题考查考生对VBA中控制结构的掌握。考生应该重点掌握VBA的控制结构，本题中的Do While…Loop循环结构是考试重点内容。在题目所给程序中，第一次循环结束后，m=1*2=2，即21；第二次循环结束后， m=2*2=4，即22；可见每次循环都使得m变为原来大小的2倍。因为k的初始值为1，终止条件为k=10，所以循环一共可以执行10次，因此m最后的值应该为210，即1024。 -
第5题：
有如下事件过程：
Private Sub Form. Active ( )
Dim Score (1 to 3) As Integer
Dim i As Integer
Dim t As Variant
Fori=3 To 1 step-1
Score (i) = 2 * i
Next
For Each t In Score
Print t
Next
End Sub
程序运行后窗体上显示的值为【 】。
正确答案：24 6
24 6 解析：本题考查了数组的定义和For Each…Next语句。题中定义了下标下界为1下标上界为3的Score数组，通过For循环语句赋值后，再通过For Each… Next语句在窗体上输出数组中的每个成员。 -
第6题：
设有以下窗体单击事件过程：
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。 -
第7题：
窗体Forml上有一个名称为Commandl的命令按钮，以下对应窗体单击事件的事件过程是
A．Private Sub Forml_Click() … End Sub
B．Private Sub Form_Click() … End Sub
C．Private Sub Commandl_Click() … End Sub
D．Private Sub Command_Click() … End Sub
正确答案：B
-
第8题：
使用窗体的Click事件在窗体输出1～1000之间能同时被5和7整除的整数，如图所示，
请填空
Private Sub Form_Click()
Dim i As Integer
Dim Sum As Integer
Cls
For i=1 To 1000
If 【 】 Then
Sum=Sum+i
Printi
End If
Next i
Print
Print"Sum="&Sum
End Sub
正确答案：i Mod 5=0 And i Mod 7=0
i Mod 5=0 And i Mod 7=0 解析：Mod()函数的功能是求余，题目要求计算能同时被 5以及7整除的数，使用i Mod 5=O And i Mod 7=0可以实现。 -
第9题：
在窗体中使用一个文本框名为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】 。
正确答案：
及格
-
第10题：
在窗体上画1个命令按钮，并编写如下事件过程： private Sub Command1_Click（ ） For i=5 To 1 Step-0．8 Print Int(i)； Next i End Sub 运行程序，单击命令按钮，窗体上显示的内容为（ ）。
A.5 4 3 2 1 1
B.5 4 3 2 1
C.4 3 2 1 1
D.4 4 3 2 1 1
正确答案：A
A。【解析】step可以设置For循环的步长，所以程序执行6次，Int(i)是求不大于自变量i的最大整数。 -
第11题：
在窗体中使用一个文本框(名为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。 -
第12题：
若有以下窗体单击事件过程：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。 -
第13题：
设有以下窗体单击事件过程：
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。 -
第14题：
设有如下窗体单击事件过程： 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。 -
第15题：
编写如下事件过程： Private Sub Form_Click() k=2 Ifk＞=1 Then A=3 Ifk＞=2 Then A=2 Ifk＞=3 Then A=1 Print A End Sub 程序运行后，单击窗体，输出的结果为 ______。
A．1
B．2
C．3
D．出错
正确答案：B
解析：单击窗体后，变量k值为2。由于Form_Click()过程中有3个与k有关的单行If语句，故A的值取决于能执行为A赋值的最后一条If语句，即Ifk＞=2ThenA=2。因此输出为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_Activate() Dimscore(1 to 3)As Integer Dimi As Integer Dim t As Variant Fori= 3 To 1 Step-1 score(i)=2*i Nexti ForEach t Inscore Printt Next End Sub 程序运行后窗体上显示的值是( )。
A．642
B．246
C．2
D．6
正确答案：B
-
第18题：
设有如下程序： 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 Print A End Sub 程序运行后，单击窗体，则在窗体上显示的内容是
A．6
B．5
C．4
D．3
正确答案：B
解析：本题是对多分支结构和循环结构的综合考查。i为1时，执行了第一个 Case后的语句A＝A+1得A的值为2。i为 2时，执行的是第二个Case后的语句A＝A+ 2(注意，此时右边的A值应保留了上一次循环的结果值2)即A＝2+2得A的值为4。i为3时，又一次执行了语句A＝A+1即A＝4 +1得A的值为5。故最后执行语句Print A后，窗体上显示的内容是5。 -
第19题：
若有以下窗体单击事件过程：
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。 -
第20题：
在窗体中使用一个文本框名为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
-
第21题：
某个窗体己编写下列事件过程。打开窗体运行后，单击窗体，消息框的输出结果为 ______。
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条件而退出循环，所以循环共 -
第22题：
若有以下窗体单击事件过程：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。 -
第23题：
设有如下窗体单击事件过程： 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。