[填空题] 阅读下面的程序：Private Sub Form

[填空题] 阅读下面的程序：Private Sub Form

[填空题] 阅读下面的程序：Private Sub Form_Click()Dim Check As Boolean,Counter As IntegerCheck=TrueCounter=5DoDo While Counter＜20Counter=Counter+1If Counter=10 ThenCheck=FalseExit DoEnd IfLoopLoop Until Check=FalsePrint CounterEnd Sub程序运行后，单击窗体，输出结果为（）。

正确答案：

10

参考解析：

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