填空题 阅读下面的程序:
Private Sub Form_Click()
Dim Check As Boolean,Counter As Integer
Check=True
Counter=5
Do
Do While Counter<20
Counter=Counter+1
If Counter=10 Then
Check=Fadtse
EXit Do
End If
Loop
Loop Until Check=False
Print Counter
End Sub
程序运行后,单击窗体,输出结果为 ______。

  • 1、
【正确答案】 1、10    
【答案解析】[解析] 本题考查嵌套的Do… Loop循环。Do循环嵌套的规则与For-Next循环相同,按照先进后出、后进先出的原则,不能交叉。考生需判断程序在何时跳出循环,内层循环是在 Counter<20时,对其加1,但要注意循环内的条件语句,当Counter=10时,跳出内层循环,同时将Check设为False。外层循环的循环条件是Check=False,所以当程序跳出内层循环时,外层循环的条件也满足了,故同时也跳出循环,此时Counter=10。