[单项选择题] 阅读下面的程序： Private Sub Form_Click()Dim Check， CounterCheck=TrueCounter=0Do Do While Counter

14 查阅

[单项选择题] 阅读下面的程序：

Private Sub Form_Click()

Dim Check， Counter

Check=True

Counter=0

Do While Counter ＜ 20

Counter=Counter + 1

If Counter=10 Then

Check = False

Exit Do

End If

Loop

Loop Until Check = False

Print Counter， Check

End Sub

程序运行后，单击窗体，输出的结果为

A．15 0

B．20 -1

C．10 True

D．10 False

参考答案:

D解析：[分析]：这是一个二重循环，内层和外层都是 Do循环。在内层循环中，执行循环体的条件是 Counter＜20，由于Counter的初值为0，因此执行循环体。在循环体中，每次循环Counter加1，达到10后，将Check变量设置为False，同时执行 Exit Do，退出内层循环。外层循环执行的条件是，变量Check的值是True，如果Check为False，则退出外层循环，输出结果，结束程序。由于在退出内层循环时，Check 已被设置为False，因此退出内层循环后立即就可以退出外层循环。退出

计算机考试