阅读下面的程序： Private Sub Form_Click()Dim Chec

问题单项选择题

阅读下面的程序： Private Sub Form_Click()Dim Check， CounterCheck=TrueCounter=0Do Do While Counter ＜ 20 Counter=Counter + 1 If Counter=10 Then Check = False Exit Do End If LoopLoop Until Check = FalsePrint 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。