问题
单项选择题
有如下程序: Ptivate Sub Form_Click()Dim Check,CounterCbeck=TrueCounter=0Do Do While Counter<20Counter=Counter+1If Counter=10 Then Check=False Exit DoEnd If LoopLoop Until Check=FalsePrint Counter, Check End Sub 程序运行后,单击窗体,输出结果为()。
A.15 0
B.20 -1
C.10 True
D.10 False
答案
参考答案:D
解析:
[评析] Do While…Loop是先判断条件表达式的值是否为True,如果为True,则执行循环体,如果为False,则执行Loop后面的语句。Do…Loop Until是先执行循环体,再判断条件表达式,如果表达式的值为Tme,则执行Loop后面的语句,如果为False,则继续执行循环体。而ExitDo则是强行退出循环。本题中,当Counter =10时,强行退出DoWhile循环,而由于此时Check=False,使得Until的条件为True,结束外层循环。所以最终Counmr=10。