阅读下面的程序： 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 -

题目

阅读下面的程序： 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

相似考题

1.在窗体上面画一个命令按钮和一个标签，其名称分别为 Command1和 Label1，然后编写如下事件过程：Private Sub Commandl_Click（）Counter=0For i=1 To 4For j=6 To 1 Step -2Counter=Counter+1Next jNext iLabel1.Caption=Str（Counter）End Sub程序运行后，单击命令按钮，标签中显示的内容是（）。 A．11B．12C．16D．20

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

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

4.有如下程序； 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

更多“阅读下面的程序： 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 -”相关问题

第1题：

（22）在窗体上画一个命令按钮和一个标签，其名称分别为 Command1 和 Labcl1，然后编写如下事件过程：
Private Sub Command1_Click( )
Counter=0
For i=1 To 4
For j=6 To 1 Step -2
Counter=Counter+1
Next j
Next i
Label1.Caption=Str(Counter)
End Sub
程序运行后，单击命令按钮，标签中显示的内容是（）。
A）11
B）12
C）16
D）20

正确答案：B

（22）【答案】B)
【解析】该题考核点在于嵌套循环，运算过程中各变量的取值如下表所示：
第2题：

在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下事件过程： Private Sub Command1_Click() Counter＝0 For i=1 To 4 For j＝6 To 1 Step -2 Counter=Counter+1 Next j Next i Labell.Captidn=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是______。
A．11
B．12
C．16
D．20

正确答案：B
解析：在For循环中，Step是用于指定计数器的步长，本题中是-2，就是每执行一次循环后，j的值减2。程序共有两层循环，当外层循环执行第一次时，j从6开始执行循环，当j＝0时，结束循环，此时Counter＝1＋1+1＝3。而外循环一共要执行4次，所以Counter＝3＋3＋3＋3＝120
第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
第4题：

阅读下面的程序：
PriVate Sub Form_C1ick()
Dim Check As Booleau，Counter As Integer
Check=True
Counter=5
Do
Do While Counter＜20
Counter=Counter+1
If Counter=10 Then
Check=FalSe
EXit Do

正确答案：10
10
第5题：

在窗体上画一个命令按钮和一个标签，其名称分别为Commandl和Labell，然后编写如下事件过程：
Private Sub Command1_Click()
Counter=0
Fori=1 T04
Forj=6 To 1 Step一2
Counter=Counter+1
Next j
Nexti
Labell．Caption=Str(Counter)
End Sub
程序运行后，单击命令按钮，标签中显示的内容是
A．11
B．12
C．16
D．20

正确答案：B
解析：该题考核点在于嵌套循环，运算过程中各变量的取值如下：
第6题：

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

有如下程序段，该程序段执行完后，执行循环的次数是 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。
第8题：

给出下面的程序：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”。
第9题：

在窗体上画一个命令按钮和一个标签，其名称分别为Commandl和Label1，然后编写如下事件过程：
Private Sub Command1_Click()
Counter=0
For i=1 T0 4
For j=6 T0 1 Step -2
Counter=Counter+1
Next j
Next i
Label1.Caption=Str(Counter)
End Sub
程序运行后，单击命令按钮，标签中显示的内容是______。

正确答案：12
12 解析：本题考查多重循环的知识。类似这种问题要把握住两点：首先看内循环里面完成了什么工作有什么规律，然后看外循环和内循环的次数。本题中内循环和外循环的次数完全无关，外循环4次，内循环3次，Counter共累加了12次。
第10题：

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

有如下程序段，该程序段执行完后，共执行循环的次数是 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

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

填空题
下列程序的运行结果是（）。 Program test Implicit none Integer,parameter:: limit=10 Integer counter Integer:: ans=0 Counter=2 do while(counter<=limit) ans=ans+counter counter=counter+2 end do Wrte(*,*)ans end

正确答案： 30
解析：暂无解析
第13题：

以上程序段运行的结果是：______. Dim a(-1 To 5) As Boolean Dim flag As Boolean flag = False Dim i As Integer Dim j As Integer Do Until flag = True For i = -1 To 5 j=j+1 if a(i)= False Then a(i)= True Exit For End If If i = 5 Then flag = True End If Next Loop Print j
A．20
B．7
C．35
D．8

正确答案：C
解析：该程序段的作用是给数组a的每个数组元素赋值True，具体实现的方式为：每次从数组a的第一个元素开始判断，该元素是否为False，如果是，则令此元素为True，然后跳出循环，重新从数组a的第一个元素开始判断；如果当前元素不为False，则判断下一个元素。因此语句j=j+1将执行 1+2+3+4+5+6+7=28次，即j=28。然后再遍历一遍数组a的所有元素，最后结束程序段。所以j最终的值是： j=28+7=35。
第14题：

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

正确答案：8
8
第15题：

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

正确答案：D
解析：本题考查嵌套的Do…Loop循环。Do循环嵌套的规则与For-Next循环相同，按照先进后出、后进先出的原则，不能交叉。考生需判断程序在何时跳出循环，内层循环是在Counter20时，对其加1，但要注意循环内的条件语句，当Counter=10时，跳出内层循环，同时将Check设为False。外层循环的循环条件是Check=False，所以当程序跳出内层循环时，外层循环的条件也满足了，故同时也跳出循环，此时Counter=10，Check为False，选项D正确。
第16题：

对于如下程序，单击Co皿andl事件发生后，窗体上显示的内容为 ______。 Private Sub Command1_Click() Dim i As Integer,a a As Integer Do While i＜20 Do While True If i Mod 10 = 0 Then Exit Do Else i=i-1 End If Loop i=i+11 a=a+1 Loop Print a End Sub
A．21
B．32
C．33
D．11

正确答案：B
解析：本题内层循环的条件始终为True，因此内层循环体内的Exit Do语句为终止循环语句。首先，判断外层循环Do While后面的表达式“i20”为True，接着执行内层循环的If语句。表达式“i Mode 10=0”的值为True，执行Exit Do，跳出内层循环，执行下面的语句，得i=11， a=11。回到外层循环，判断Do While后面的表达式“i20”为True，执行内层循环的If语句，表达式“i Mode 10=0”的值为False，执行i=i-1，i=10。跳出内层循环，执行下面的语句，得到i=21，a=32。
第17题：

以下程序段运行的结果是______。 Dima(-1 To 5)As Boolean Dim flag As Boolean flag=False Dim i As Integer Dim j As Integer Do Until flag=True For i=-1 To 5 j=j+1 If a(i)=False Then a(i)=True Exit For End If If i=5 Then flag=True End If Next Loop Print j
A．20
B．7
C．35
D．8

正确答案：C
解析：该程序段的作用是给数组a的每个数组元素赋值True，具体实现的方式为：每次从数组a的第一个元素开始判断，该元素是否为False，如果是，则令此元素为True，然后跳出循环，重新从数组a的第一个元素开始判断：如果当前元素不为False，则判断下一个元素。因此语句j=j+1将执行．1+2+3+4+5+6+7=28次，即j=28。然后再遍历一遍数组a的所有元素，最后结束程序段。所以j最终的值是： j=28+7=35
第18题：

有如下的程序段，该程序段执行完后，共执行的循环次数是 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结构和条件语句或多分支结构的嵌套结构。
第19题：

有如下的程序段，该程序段的执行完后，共执行循环的次数是 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。
第20题：

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

---What should I do first before boarding? ----().
A.You may ask the policeman there to help.
B.Please go to the airline counter to check-in for your flight.
C.You should wait and see.
D.You have to go there to check in for your flight.

正确答案：B
第22题：

以下程序段运行的结果是______。 Dim a(-1 To 5)As Boolean Dim flag As Boolean flag=False Dim i As Integer Dim j As Integer Do Until flag=True For i=-1 To 5 j=j+l If a(i)=False Then a(i)=True Exit For End If If i=5 Then flag=True End If Next Loop Print j
A．20
B．7
C．35
D．8

正确答案：C
解析：该程序段的作用是给数组a的每个数组元素赋值True，具体实现的方式为：每次从数组a的第一个元素开始判断，该元素是否为False，如果是，则令此元素为True，然后跳出循环，重新从数组a的第一个元素开始判断；如果当前元素不为False，则判断下一个元素。因此语句j=j+1将执行1+2+3+4+5+6+7=28次，即j=28。然后再遍历一遍数组a的所有元素，最后结束程序段。所以j最终的值是：j=28+7=35。
第23题：

All passengers should present their _____ documents at the check-in counter.

A. boarded
B. boarding
C. to board
D. boards

答案：B
解析：

题目

相似考题

相关内容