2. 计算机
  3. 有如下程序： Ptivate Sub Form_Click() Dim Check，Counter Cbeck=True Counter=0 Do Do While Cou

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

admin2009-06-20  56
问题 有如下程序：    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://www.kaotiyun.com/show/kN1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)