有如下程序段，该程序段执行完后，共执行循环的次数是 Private Sub Command1_Click( ) Tota1=0 Counter=1 Do Print Counter Tota1=tota1+Counter Print total Counter=Counter+1 If total>=10 Then Exit Do End lf Loop While Counter＜=10 End SubA．5B．10C．12D．20

题目

有如下程序段，该程序段执行完后，共执行循环的次数是 Private Sub Command1_Click( ) Tota1=0 Counter=1 Do Print Counter Tota1=tota1+Counter Print total Counter=Counter+1 If total>=10 Then Exit Do End lf Loop While Counter＜=10 End Sub

A．5

B．10

C．12

D．20

相似考题

1.执行下面的程序段，x的值为【 】。Private Sub Command1_Click()For i=1 To 9a=a+iNextx=Val(i)MsgBox xEnd Sub

2.（ 14 ）执行以下程序后输出的是Private Sub Command1_Click()Ch$= ” AABCDEFGH ”Print Mid(Righ(ch$,6),Len(left(ch$,4)),2)End SubA)CDEFGHB)ABCDC)FGD)AB

3.执行下面的程序段，x的值为 。private Sub Command1_Click()For i=1 To 5 a=a+iNext iX=Val(i)msgBox xEnd SubA．5 B．6 C．7 D．8

4.有如下程序段，该程序段执行完后，执行循环的次数是total=0Counter=1DoPrint Countertotal=total + CounterPrint totalCounter=Counter + 1If total > 10 ThenExit DoEnd IfLoop While Counter <=10（ ）。A．5B．10C．15D．20

更多“有如下程序段,该程序段执行完后,共执行循环的次数是 Private Sub Command1_Click()Tota1=0Counte ”相关问题

  • 第1题：

    在窗体上画一个命令按钮，然后编写如下事件过程：

    Private Sub Command1_Click()

    Dim Y as String

    X=5

    Y=X & Space(3) & X

    Print X；

    Print Trim(Y)；Len(Trim(Y))

    End Sub

    该程序的执行结果是【 】。


    正确答案：□5□5□□□5□5
    □5□5□□□5□5

  • 第2题：

    在下面的程序中，要求循环体执行四次，请填空。

    Private Sub Command1_Click()

    x=1

    Do While 【 】

    x=x+2

    Loop

    End Sub


    正确答案：x8 或 x＝7
    x8 或 x＝7 解析：第—次循环x＝x+2＝1+2=3，第二次循环x=x+2=3+2=5，第三次循环x=x+2=5+2=7，第四次循环 x=x+2=7+2=9，题目要求循环执行四次跳出，所以应在判断处添加x8或x＝7或x9。

  • 第3题：

    有如下程序：

    Private Sub Command1_Click()

    j =10

    For i= -1 To 1 Step 0.3

    j =j + 1

    Next i

    Print j

    End Sub

    该程序共循环【 】次，程序执行完毕后j的值是【 】。


    正确答案：7 17
    7, 17

  • 第4题：

    没有如下程序

    Private Sub Commandl—Click()

    x=10：u=0

    For i=1 TO 5

    Do

    x=x-2

    y=y+2

    Loop Until y>5 Or x<一l

    Next

    End Sub

    运行程序，其中Do循环执行的次数是

    A．15

    B．10

    C．7

    D．3


    正确答案：C
    解析：本题需要注意区分Do Until....Loop语句和Do…Loop Until语句。后者为后判断条件的循环语句，无论初始条件是否满足都至少执行一次循环，当条件满足时跳出循环。

  • 第5题：

    以下程序段中Do...Loop 循环执行的次数为【 】。程序执行完毕后，n的值为【 】。

    Private Sub Command1_Click()

    n =5

    Do

    If n Mod 2= 0 Then

    n =n \2

    Else

    n =n* 3 + 1

    End If

    Loop Until n=1

    End Sub


    正确答案：5 1
    5 , 1

  • 第6题：

    执行下列程序，输入框中显示的默认字符串为【 】。

    Private Sub Command1_Click( )

    InputBox "Ok" , "输入参数", Format(" &H12" )

    End Sub


    正确答案：18
    18 解析：本题考查InputBox语句和Format函数的用法。当Format函数处理可能为数字的字符串时，会自动进行运算转换，即将&H12当作十六进制数，实际显示十进制数“18”。

  • 第7题：

    现有如下一段程序：

    Option base 1

    Private Sub Command1_Click()

    Dim a

    a=Array(3,5,7,9)

    X=1

    For i=4 to 1 step -1

    s=s+a(i)*x

    X=x*10

    Next

    Print s

    End Sub

    执行程序，单击Command1命令按钮，执行上述事件过程中，输出结果是

    A)9753

    B)3579

    C)35

    D)79


    正确答案：B
    【答案】：B
    【知识点】：循环语句及数组的使用方法
    【解析】：option base 1表示数组下标从1开始，则a数组元素a(1)=3, a(2)=5, a(3)=7, a(4)=9。第一次循环：x=1,s=0+a(4)*1=9, 第二次循环：x=10,s=9+a(3)*10=79, 第三次循环：x=100,s=79+a(2)*100=579, 第四次循环：x=1000,s=579+a(1)*1000=3579, 故本题选B。

  • 第8题：

    有如下自定义过程： Sub test(x As Integer) x =X *2+1 If x＜6 Then Call test(x) End If x=x* 2 + 1 Print x； End Sub调用该过程的事件过程如下：Private Sub Command1_Click() test 2End Sub则该段程序的执行结果是______ 。

    A．12

    B．23 47

    C．23

    D．5 10


    正确答案：B

  • 第9题：

    在窗体中添加一个命令按钮，并编写如下程序： Private Sub Command1_CliCk() X=1∶Y=2∶Z=3 X=Y∶Y=Z∶Z=X Print Z End Sub 程序执行后，输出的结果是______。

    A．3

    B．0

    C．2

    D．1


    正确答案：C

  • 第10题：

    有如下程序段：执行该程序段后，X的值为（ ）。

    A.true

    B.false

    C.0

    D.1


    正确答案：D
    在c语言中，逻辑运算符有4个，它们分

  • 第11题：

    有如下VB程序段： Private Sub Command1_Click（） Dim a As Long a=Val（Text1.Text） Print a End Sub 其中"Private Sub Command1_Click（）"的作用是（）。

    • A、定义一个数据处理方法
    • B、定义一个数据输入方法
    • C、定义一个事件过程
    • D、定义一个数据类型

    正确答案:C

  • 第12题：

    单选题
    有如下VB程序段： Private Sub Command1_Click（） Dim a As Long a=Val（Text1.Text） Print a End Sub 其中"Private Sub Command1_Click（）"的作用是（）。
    A

    定义一个数据处理方法

    B

    定义一个数据输入方法

    C

    定义一个事件过程

    D

    定义一个数据类型


    正确答案： B
    解析： 暂无解析

  • 第13题：

    有如下程序,执行程序后单击Button1按钮,窗体上显示的是什么()Private Sub Command1_Click()Dim a Dim b As Integera = 5 ／ 2b = 5 ／ 2Print a, bEnd Sub

    A、2 2

    B、 2 2.5

    C、 2.5 2

    D、 2.5 2.5


    参考答案C

  • 第14题：

    设有如下程序

    Private Sub Command1 Click（ ）

    x=10：Y=0

    For i=l To 5

    Do

    x=x-2

    y=y+2

    Loop Until y>5 Or x<-l

    Nex1

    End Sub

    运行程序，其中Do循环执行的次数是（ ）。

    A.15

    B.10

    C.7

    D.3


    正确答案：C
    C。【解析】该题由外层的for循环和内层的doloop循环构成，外层循环5次，只要内层中满足y>5或x<-1就不用计算次数，一步步计算应该不难。

  • 第15题：

    有如下过程：

    Sub SS(ByVal X，ByRef Y，Z)

    X=X + 1

    Y=Y + 1

    Z=Z + 1

    End Sub

    执行该过程的事件过程如下：

    Private Sub Command1_Click()

    A = 1

    B = 2

    C = 3

    Call SS(A，B，C) Print A；B；C

    End Sub

    则该程序的执行结果是【 】。


    正确答案：1 3 4
    1 3 4

  • 第16题：

    有如下的程序段，该程序段执行完后，共执行的循环次数是 total=0 Counter=1 Do Print Counter total=total * Counter + 1 Print total Counter=Counter +1 If total ＞ 10 Then Exit Do End If Loop While Counter＜=10

    A．4

    B．10

    C．15

    D．20


    正确答案：A
    解析：Do…LoopWhile语句本题中Counter为计数器，当Counter=4时，total=41＞10，跳出循环，共执行4次循环。注意：Do…LoopWhile结构和条件语句或多分支结构的嵌套结构。

  • 第17题：

    有如下程序段，该程序段执行完后，执行循环的次数是 total=0 Counter=1 Do Print Counter total=total + Counter Print total Counter=Counter+1 If total＞10 Then Exit Do End If Loop While Counter ＜=10

    A．5

    B．10

    C．15

    D．20


    正确答案：A
    解析：本题考查Do…LoopWhile语句，共执行了5次，total=1+2+3+4+5＞10。

  • 第18题：

    有如下的程序段，该程序段的执行完后，共执行循环的次数是 Private Sub Command1_Click() total=0 Counter=l Do Print Counter total=total+Counter Print total Counter=Counter+1 If total＞=10 Then Exit Do End If Loop While Counter＜=10 End Sub

    A．5

    B．10

    C．12

    D．20


    正确答案：A
    解析：本题考查Do循环内的嵌套语句。由于本题在Do循环内嵌套If语句，当If语句满足条件时，Do循环也可以终止，故要比较Total＞=10与Counter＞10这两个条件谁先达到。通过观察去执行第五次循环时，Total值满足条件， Do循环终止，故选择A。

  • 第19题：

    有如下程序段：

    执行该程序后，x的值为（ ）。

    A.true

    B.false

    C.0

    D.1


    正确答案：D
    在C语言中，当表达式成立时用l表示，不成立时用0表示，即X=(a＆＆b)＆＆(c<ˊB"ˊ)](14＆＆15)＆＆(ˊAˊ<"Bˊ)=1＆＆1=1，故选择D选项。

  • 第20题：

    在窗体上画了两个按钮控件Command1和Command2，有如下程序： Private Sub Command1_Click() Print "Visual"； End Sub Private Sub Command2_Click() Print "Basic"； End Sub Private Sub Form_Load() CommandCancel=True Command1.Cancel=True End Sub 执行程序后，按键盘Cancel键，在窗体上输出的结果是

    A．Basic

    B．Visual

    C．Cancel

    D．True


    正确答案：B
    解析：窗体中只能有一个CommandButton控件为取消按钮。当一个CommandButton控件的Cancel属性被设置为Tree时，窗体中其他CommandButton控件的Cancel属性自动地被设置为False。当CommandButton控件的Cancel属性被设置为True，而且当前窗体处于活动状态时，按Cancel键可以触发该按钮Click事件，而不管该控件是否获得焦点。本题开始时Command2的Cancel属性为，True，但随后由于Command1的该属性变为True，Command2的Cancel属性变为False，因此按Cancel键后执行Command1_Click过程。

  • 第21题：

    设有如下程序 Private Sub Command1 Click（ ） x=10：Y=0 For i=l To 5 Do x=x-2 y=y+2 Loop Until y>j Or x<-l Nex1 End Sub 运行程序，其中Do循环执行的次数是（ ）。

    A.15

    B.10

    C.7

    D.3


    正确答案：C
    C。【解析】该题由外层的for循环和内层的doloop循环构成，外层循环5次，只要内层中满足y>5或x<-1就不用计算次数，一步步计算应该不难。

  • 第22题：

    当数控系统在（）控制方式时，执行程序的一个程序段后停止，如果再按循环启动按钮，则执行完下一个程序段后，停止。

    • A、空运转
    • B、单程序段
    • C、跳过任选程序段
    • D、进给保持

    正确答案:B

  • 第23题：

    有如下程序段： int total = 0； for （ int i = 0； i < 4； i++ ）{ if （ i == 1） continue； if （ i == 2） break；total += i；} 则执行完该程序段后total的值为（）

    • A、0
    • B、1
    • C、3
    • D、6

    正确答案:A

相关内容