问题
单项选择题
给出下面的程序：
Private Sub Command1_ Click()
Dim Check, Counter
Check= True: Counter = 0
do
do while Counter ＜ 20
Counter = Counter +1
if Counter = 10 then
Check=False
exit do
End if
Loop
Loop until Check=False
MsgBox Counter
End Sub
程序最后弹出的消息对话框的内容是______。
A．True
B．False
C．20
D．10
答案
参考答案：D
解析： 本题的难点是do while… Loop和do …Loop until循环控制问题。实际上在该段程序中，有三处判断控制循环，条件先成立处先执行。首先变量“Counter=10”时，“Check= False”，退出内层循环，do… Loop until根据条件“Check=False”又退出外层循环，此时“Counter=10”。