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

A、 15 0
B、 20 -1
C、 10 True
D、 10 False

【正确答案】 D

【答案解析】[解析] 变量Check的初值为True，变量Counter的初值为0。当Counter＜9时，Counter每次循环加1，直到等于10时，Check的值为Falsc，退出里层Do_Loop循环。当Check=False的计算结果为True时，退出外层Do-Loop循环，在窗体上打印出Counter的值10和Check的值False。