给出下面的程序：Private Sub Command1_ Click() Dim

问题单项选择题

给出下面的程序：Private Sub Command1_ Click() Dim Check, Counter Check= True: Counter = 0 dodo while Counter ＜ 20 Counter = Counter +1 if Counter = 10 thenCheck=Falseexit do End ifLoop 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”。