给出下面的程序：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

题目

给出下面的程序：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

相似考题

1.阅读下面的程序：Private Sub Form_Click（）Dim Check As Boolean, Counter As IntegerCheck = TrueCounter = 5DoDo While Counter < 20Counter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = FalsePrint CounterEnd Sub程序运行后，单击窗体，输出结果为______。

2.有如下程序：Private Sub Form_Click（）Dim Check, CounterCheck = TrueCounter = 0DoDo While Counter < 20Counter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = FalsePrint Counter, CheckEnd Sub程序运行后，单击窗体，输出结果为（ ）。A．15 0B．20 -1C．10 TrueD．10 False

3.有如下程序： 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．10 False

4.下列程序段的输出结果为______。Check = True: a = 1Doa = a + 1Check = Check + 1Loop While a ＜ 10print Check

更多“给出下面的程序:Private Sub Command1_ Click()Dim Check, CounterCheck= True:Counter = 0dodo ”相关问题

  • 第1题：

    阅读下面的程序：

    Private Sub Form_Click( )

    Dim Check As Boolean，Counter As Integer

    Check=Tree

    Counter=5

    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

    End Sub

    程序运行后，单击窗体，输出结果为【 】。


    正确答案：10
    10 解析：本题内循环的结束条件是当Counter为10时，而此时Check=False，则跳出外循环，故最后Counter为10。

  • 第2题：

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

  • 第3题：

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

  • 第4题：

    阅读下面的程序： 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
    解析：这是一个二重循环，内层和外层都是Do循环。在内层循环中，执行循环体的条件是Counter20，由于Counter的初值为0，因此执行循环体。在循环体中，每次循环Counter加1，达到10后，将Check变量设置为False，同时执行ExitDo，退出内层循环。外层循环执行的条件是，变量Check的值是True，如果Check为False，则退出外层循环，输出结果，结束程序。由于在退出内层循环时，Check已被设置为False，因此退出内层循环后立即就可以退出外层循环。退出两层循环后，Counter和Check的值没有发生任何变化，与退出内层循环时相同，分别为10和False。

  • 第5题：

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

相关内容