有如下程序：Private Sub Form_Click() Dim Check,

问题单项选择题

有如下程序：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 = FalsePrint Counter, CheckEnd Sub程序运行后，单击窗体，输出结果为______。

A．150

B．20-1

C．10True

D．10False

答案

参考答案：D

解析：Do While…Loop 是先判断条件表达式的值是否为 True，如果为 True，则执行循环体，如果为 False，则执行 Loop 后面的语句。Do…Loop Until 是先执行循环体，再判断条件表达式，如果表达式的值为 True，则执行 Loop 后面的语句，如果为 False，则继续执行循环体。而 Exit Do 则是强行退出循环。本题中，当 Counter = 10 时，强行退出 Do While 循环，而由于此时 Check = False，使得 Until 的条件为 True，结束外层循环。所以最终 Counter = 10。