A-A+
有如下程序： Ptivate Sub Form_Click() Dim Check Coun
问题详情
有如下程序： Ptivate Sub Form_Click() Dim Check，Counter Cbeck=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
解析：DoWhile…Loop是先判断条件表达式的值是否为True，如果为True，则执行循环体，如果为False，则执行Loop后面的语句。Do…LoopUntil是先执行循环体，再判断条件表达式，如果表达式的值为Tme，则执行Loop后面的语句，如果为False，则继续执行循环体。而ExitDo则是强行退出循环。当Counter=10时，强行退出DoWhile循环，而由于此时Check=False，使得Until的条件为True，结束外层循环。所以最终Counmr=10。
