niusouti.com

有如下程序: 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 0B.20 -1C.10 TreeD.1

题目

有如下程序: 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 Tree

D.10 False


相似考题
更多“有如下程序:Private SubFormClick()DimCheck,CounterCheck=TrueCounter=0DoDoWhileCounter<20Cou ”相关问题
  • 第1题:

    有如下程序: 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

  • 第2题:

    有如下程序: Private Sub Form_C1ick() 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 Ptint Counter,Check End Sub 程序运行后,单击窗体,输出结果为______。

    A. 15 0

    B.20 -1

    C.10 Tree

    D.10 False


    正确答案:D
    解析:Do While…Loop是先判断条件表达式的值是否为True,如果为True,则执行循环体,如果为False,则执行Loop后面的语句。Do…Loop Until是先执行循环体,再判断条件表达式,如果表达式的值为True,则执行Loop后面的语句,如果为False,则继续执行循环体。而Exit Do则是强行退出循环。当Counter =10时,强行退出DoWhile循环,而由于此时Check=False,使得umil的条件为True,结束外层循环。所以最终Coumer=10。

  • 第3题:

    有如下程序: 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。

  • 第4题:

    给出下面的程序: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
    解析:本题的难点是dowhile…Loop和do…Loopuntil循环控制问题。实际上在该段程序中,有三处判断控制循环,条件先成立处先执行。首先变量“Counter=10”时,“Check=False”,退出内层循环,do…Loopuntil根据条件“Check=False”又退出外层循环,此时“Counter=10”。

  • 第5题:

    有如下程序: 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。当Counter9时,Counter每次循环加1,直到等于10时,Check的值为False,退出里层Do-Loop循环。当Check=False的计算结果为True时,退出外层Do-Loop循环,在窗体上打印出Counter的值10和Check的值Ralse。