有如下程序:Private Sub Form_C1ick()Dim CheCk,CounterCheCk=TrueCounter=0DoDo While Counter<

13 查阅

有如下程序： Private Sub Form_C1ick() 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 Ptint Counter,Check End Sub 程序运行后，单击窗体，输出结果为______。

A． 15 0

B．20 -1

C．10 Tree

D．10 False

参考答案:

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

计算机二级