阅读下面的程序：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程序运行后，单击窗体，输出结果为______

题目

阅读下面的程序：

Private Sub Form_Click（）

Dim Check As Boolean, Counter As Integer

Check = True

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

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

相似考题

1.有如下程序； Private SubForm_Click() Dim check As Boolean，n As Integer check=False n=0 Do Do While n＜10 n=n+1 If n=5 Then check=True Exit Do End if Print n； Loop Loop Until check = True End Sub 程序运行后，输出的结果是 ______ 。A．1 2 3B．1 2 3 4C．1 2 3 4 5D．1 2 3 4 5 6

2.阅读以下程序：Private Sub Form_click()Dim k, n, m As integern = 20m = 1k = 1Do While k ＜= nm=m+2k = k + 1LoopPrint mEnd Sub单击窗体程序的执行结果是【 】。

3.执行下面的程序，消息框里显示的结果是_______。Private Sub Form_Click()Dim Str As StringStr=""S="Access"Fori=Len(S)To 1 Step-lStr=Str&Mid(S，i，1)Next iMsgBox StrEnd Sub

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

更多“阅读下面的程序: PrivateSubForm_Click() DimCheckAsBoolean,CounterAsInteger Check=T ”相关问题

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

  • 第3题：

    请阅读下面程序为使该程序正确执行，下画线处的语句应是（ ）。

    A.t．sleep（ ）

    B.t．yield（ ）

    C.t．interrupt（ ）

    D.t．start（ ）


    正确答案：D
    程序中通过继承Thread类来创建线程，而Java中新创建的线程不会自动运行，必须调用线程的start（）方法，才能运行该线程。

  • 第4题：

    阅读下面的程序段： K=0 Forl=1 t03 For J＝l to I K=K+J Next J Next 1 执行上面的语句后，K的值为______。

    A．8

    B．10

    C．14

    D．21


    正确答案：B
    解析：本题是两层嵌套循环，外面的循环执行一次，里面的循环就要全部都执行一次。初始时K=O
    当l=1时，里面循环要全部执行，有forJ = to 1; 所以K=K+I，最后K值为1
    当I=2时，里面循环要全部执行，有forJ=lt  2; 所以K=K+I，K=K+2，最后K值为4
    当1=3时，里面循环要全部执行，有forJ=l to 3; 所以K=K+I，K=K+2，K=K+3，最后K值为10最后得到的K值为10

  • 第5题：

    阅读程序：Private Sub Form_ Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print aEnd Sub 程序运行后，单击窗体，输出结果是______。

    A．105

    B．1

    C．120

    D．15


    正确答案：D
    解析：本题是计算1到15对3取余的所有余数的和。For循环控制变量j从1到15变化，步长为1，每执行一次循环变量的值加1，因此循环语句的执行了15次。因为Mod运算符的优先级高于加(+)，因此循环体a=a+ jMod 3中，首先执行j Mod 3语句，再与a相加。变量a的功能是累计1到15对3取余的所有余数的和。程序的执行过程如下：
    第一次：i=1，a=0，a=0+1 mod 3=0+1=1
    第二次：j=2，a=1，a=1+2 mod 3=1+2=3
    第三次：j=3，a=3，a=3+3 mod 3=3+0=3
    第四次：j=4，a=3，a=3+4 mod 3=3+1=4
    第五次：j=5，a=4，a=4+5 mod 3=4+2=6……
    第十五次：j=15，a=15，a=15+15 mod 3=15+0=15

相关内容