某个窗体已编写如下事件过程。打开窗体运行后,单击窗体,消息框的输出结果为______。
PrivateSubForm_Click()
DimKasInteger,nasInteger,masInteger
n=10:m=1:k=1
DoWhileK<=n
m=m*2
k=k+1
Loop
MsgBoxm
EndSub
第1题:
某个窗体己编写下列事件过程。打开窗体运行后,单击窗体,消息框的输出结果为 ______。
Pfivate Sub Form_Click()
a=1
i=1
Do Until i>10
a=a+2
i=i+3
Loop
MsgBox a
End Sub
第2题:
【题目描述】
某个窗体已编写以下事件过程。打开窗体运行后,单击窗体,消息框的输出结果为__________
【参考答案分析】:
9【解析】本题考查VBA中循环的知识。对于这种循环结构,首先看条件判断在循环体的前丽还是后面,如果是先判断条件,则有可能一次也不执行循环体;如果是后判断条件,则无论条件如何至少执行一次循环体。在Until循环中条件为False时执行循环体,条件为True时退出循环;在While循环中条件为True时执行循环体,条件为False时退出循环,这一点要注意区分清楚。本题中先判断条件后执行循环体,通过观察看出,i每次自加3,则每次循环中j的值分别为l、4、7、10,当i为l3时由于满足Until条件而退出循环,所以循环共执行4次,最后a的值为9。
第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
第4题:
设有如下窗体单击事件过程: 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
第5题:
某个窗体已编写以下事件过程。打开窗体运行后,单击窗体,消息框的输出结果为【 】。
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