有如下程序: Ptivate Sub Form_Click() Dim Check,Counter Cbeck=True Counter=0 Do Do While Cou

admin2009-06-20  35

问题 有如下程序:    Ptivate Sub Form_Click()        Dim Check,Counter        Cbeck=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

解析 Do While…Loop是先判断条件表达式的值是否为True,如果为True,则执行循环体,如果为False,则执行Loop后面的语句。Do…Loop Until是先执行循环体,再判断条件表达式,如果表达式的值为Tme,则执行Loop后面的语句,如果为False,则继续执行循环体。而ExitDo则是强行退出循环。当Counter =10时,强行退出DoWhile循环,而由于此时Check=False,使得Until的条件为True,结束外层循环。所以最终Counmr=10。
转载请注明原文地址:https://kaotiyun.com/show/kN1p777K
0

最新回复(0)