单选题给出下面的程序：Private Sub Command1_ 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 MsgBox CounterEnd Sub 程序最后弹出的消息对话框的内容是______。

A、 True
B、 False
C、 20
D、 10

【正确答案】 D

【答案解析】[解析] 本题的难点是do while… Loop和do …Loop until循环控制问题。实际上在该段程序中，有三处判断控制循环，条件先成立处先执行。首先变量“Counter=10”时，“Check= False”，退出内层循环，do… Loop until根据条件“Check=False”又退出外层循环，此时“Counter=10”。