问题
单项选择题
有如下程序： Private Sub Form Click() Dim Check，Counter Check=True Counter=0 DoDo While Counter＜20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End IfLoop Loop Until Check=False Print Counter，Check End Sub 程序运行后，单击窗体，输出结果为
A．15 0
B．20 -1
C．10 Tree
D．10 False
答案
参考答案：D
解析： 本题考查嵌套的Do… Loop循环。Do循环嵌套的规则与For-Next循环相同，按照先进后出、后进先出的原则，不能交叉。考生需判断程序在何时跳出循环，内层循环是在 Counter＜20时，对其加1，但要注意循环内的条件语句，当Counter=10时，跳出内层循环，同时将Check设为False。外层循环的循环条件是Check=False，所以当程序跳出内层循环时，外层循环的条件也满足了，故同时也跳出循环，此时Counter=10，Check为False，选项D正确。