问题
单项选择题
阅读下面的程序：
Private Sub Form_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
Print Counter， Check
End Sub
程序运行后，单击窗体，输出的结果为
A．15 0
B．20 -1
C．10 True
D．10 False
答案
参考答案：D
解析：
[分析]： 这是一个二重循环，内层和外层都是 Do循环。在内层循环中，执行循环体的条件是 Counter＜20，由于Counter的初值为0，因此执行循环体。在循环体中，每次循环Counter加1，达到10后，将Check变量设置为False，同时执行 Exit Do，退出内层循环。外层循环执行的条件是，变量Check的值是True，如果Check为False，则退出外层循环，输出结果，结束程序。由于在退出内层循环时，Check 已被设置为False，因此退出内层循环后立即就可以退出外层循环。退出两层循环后，Counter和Check的值没有发生任何变化，与退出内层循环时相同，分别为10和 False。