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

B．1 2 3 4

C．1 2 3 4 5

D．1 2 3 4 5 6

相似考题

1.假定有如下事件过程： Privte Sub Form_Click0 Dim x As Integer,n As Integer x=1 n=0 Do While x＜28 x=x*3 n=n+1 Loop Print x,n End Sub 程序运行后，单击窗体，输出结果是( )。A．81 4B．56 3C．28 1D．243 5

2.（12）下列程序段的运行结果是 Sub sele() Dim n As Integer I=21:n=3 Do While i>n I=i-n Loop Print i End SubA.2 B.4 C.5 D.3

3.（25）下列程序的运行结果是。 Private Function myfun(m,n) Do While m>n Do While m>n:m=m-n:Loop Do While n>m:n=n-m:Loop Loop myfun=m End Function Private Sub Command1_Click() Print myfun(9,8) End SubA.2 B.1 C.4 D.3

4.单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click() Print Fun(23,18) End Sub Public Function Fun(m As Integer，n As Integer)As Integer Do While m＜＞n Do While m＞n:m=m-n:Loop Do While m＜n:n=n-m:Loop Loop Fun=m End FunctionA．0B．1C．3D．5

更多“有如下程序； 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”相关问题

第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

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

当发生窗体的单击事件时，输出的第二行为( )。 Private Sub Form_click() Dim N1 As Integer,N2 As Integer,N3 As Integer N1=1:N2=1 Print N1;N2 Do N3=N1+N2 Print N3； N1=N2:N2=N3 Loop Until N3＞=5 End Sub
A．1 1 1
B．2 3 5
C．2 5 7
D．2 3 4

正确答案：B
解析：此处需注意的是，DO…LoopUntil循环的结束条件是Until后面的表达式值是True。当发生窗体的单击事件时，首先给变量N1和N2赋值为1，然后输出为12并换行。执行循环，N3的值为2，输出2不换行，进行赋值后N1的值为1，N2的值为2，判断条件“2＞=5”为False，重新执行循环：第二次执行循环输出N3的值为3，循环结束条件依旧为False；第三次执行循环输出N3的值为5，循环结束条件为True，循环退出。所以输出的第二行为“235”。
第3题：

有如下程序 Private Sub Command1_Chck( ) s=0 DO s=(s+1) *(s+2) N=N+1 Loop Until s＞=10 Prim N；s End Sub 运行后的输出结果是
A．0 1
B．30 30
C．4 30
D．2 12

正确答案：D
解析：Untils＞=10表示当s大于等于10时，终止循环，根据题意，循环2次，故N的值为2，可以判断答案为D，另外也可以计算出s的值为12，但由于本题为选择题，可以不计算。直接得到正确答案。
第4题：

下列程序段的运行结果是( )。 Subsele() Dim n As Integer i=21:n=3 Do While i＞n i=i-n Loop Print i End Sub
A．2
B．4
C．5
D．3

正确答案：D
解析：该程序段的执行如下：第1次循环后：i=i-n=18；第2次循环后：i=i-n=15：第3次循环后：i=i-n=12；第4次循环后：i=i-n=9第5次循环后：i=i-n=6；第6次循环后：i=i-n=3；此时循环条件不成立，退出循环。
第5题：

假定有如下事件过程： Privte Sub Form_Click() Dim x As Integer，n As Integer x=1 n=0 Do While x＜28 x=x*3 n=n+1 Loop Print x，n End Sub 程序运行后，单击窗体，输出结果是
A．81 4
B．56 3
C．28 1
D．243 5

正确答案：A
解析：本题考查Do……Loop循环控制结构。Do…Loop循环控制结构是考试重点内容，历次考试都会有至少2个题目涉及该知识点，务必掌握。题目非常简单，目的是对x进行一定的计算，同时输出循环次数。x初值为1，满足条件，执行后面语句，当x=27，n=3时，继续执行循环，执行x=x*3，后，x为81，n=4，已经不满足条件，循环结束。所以最后的结果x=81，n=4，选项A正确。
第6题：

有如下程序： Private Sub Command1_Click() s = 0 Do s=(s+1) ( (s+2) N=N+1 Loop Until s＞=10 Print N；s End Sub 运行后的输出结果是
A．0 1
B．30 30
C．4 30
D．2 12

正确答案：D
解析：本题主要考查Do循环控制语句的使用。Until s＞＝10表示当s大于等于 10时，终止循环，根据题意，循环2次，故N的值为2，可以判断答案为D，另外也可以计算出s的值为12，但由于本题为选择题，可以不计算s直接得到正确答案。
第7题：

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

以下程序段中Do...Loop循环执行的次数为( )。 n=5 Do lf n Mod 2=0 Then n=n\2 Else n=n*3+1 End If Loop untiln=1
A．4
B．3
C．5
D．2

正确答案：C
第9题：

单击命令按钮时，下列程序代码的执行结果为______ 。Public Function MyFune(m As Integer，n As Integer) As Integer Do While m＜＞n Do While m＞n m=m-n Loop Do While m＜n n=n -m Loop Loop MyFunc=mEnd FunctionPrivate Sub Command1_Click() Print MyFunc(24, 18)End Sub
A． 2
B．4
C．6
D．8

正确答案：C
第10题：

以下程序段中Do...Loop循环执行的次数为______。 n=5 Do if n mod 2=0 then n=n\2 else n=n*3+1 end if Loop until n=1
A．4
B．3
C．5
D．2

正确答案：C
第11题：

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

单击命令按钮时，下列程序代码的执行结果为 Private Sub Command1_Click( ) Print MyFunc(24，18) End Sub Public Function MyFunc(m As Integer，n As Integer)As Integer Do While m ◇ n Do While m>n：m=m—n：Loop DO While m＜n：n=n-m：Loop Loop My Func=m End Function
A．2
B．4
C．6
D．8

正确答案：C
解析：根据Myfune的定义，当m与n不相等时执行D。循环，此时如果m大于n，则执行m=m-n的Do循环。据此，MyFune(24，18)的值应该为24减去18。
第13题：

下列程序的运行结果是（）。 Private Function myfun(m，n) Do while m>n Do While m>n：m=m-n：Loop Do Wllile n>m：n=n-m：Loop Loop myfun=m End Function Private Sub Command1_Click（） print myfun(9，8) End Sub
A.2
B.1
C.4
D.3

正确答案：B
B。【解析】求解本题的关键在于理解好3个DoWhile循环的执行顺序，第2个和第3个DoWhile循环嵌套在第l个DoWhile循环内，先执行第2个循环，然后是第3个循环，最后是外层循环即第1个DoWhile循环。程序执行过程是：m=9，n=8；第1个DoWhile循环完，执行第2个DoWhile循环，m=m-n=1；退出第2个DoWhile循环；执行第3个DoWhile循环，n=n-m，最后n的值为1；退出第3个DoWhile循环；退出第1个DoWhile循环。程序执行结果是l。
第14题：

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

单击命令按钮时，下列程序代码的运行结果为 Private Sub Command1_Click() Print MyFunc(20, 18) End Sub Public Function MyFunc(m As Integer, n As Integer)As Integer Do While m＜＞n Do While m＞n:m=m-n:Loop Do Whle m＜n:n=n-m:Loop Loop MyFunc=m End Function
A．0
B．2
C．4
D．6

正确答案：B
解析：本题主要考查对函数的定义和调用的理解。此题程序代码中，被调过程采用了Do While…Loop的嵌套语句结构，主调过程只调用了一次被调过程，Print MyFunc (20，18)语句表明，程序最后输出的只是被调过程的返回值。主调过程在调用被调过程 MyFunc时，把数值20和18分别传给形参m和n，从被调过程中的循环语句来看，因为此时 m的值大于n的值，所以执行语句m＝m-n， m的值变为2，由语句MyFunc＝m可看出，此过程的返回值就是m的值即2。
第16题：

单击命令按钮时，下列程序的运行结果为Private Sub Command1_Click( ) Print MyBM(23，18)End SubPublic Function MyBM(m As Integer，n As Integer)As Integer Do While m< >n Do While m ＞ n：m=m - n：Loop Do While m ＜ n：n=n - m：Loop Loop MyBM=mEnd Function
A．0
B．1
C．3
D．5

正确答案：B
解析：此题程序代码中，被调过程采用了DoWhile……Loop的嵌套语句结构，主调过程只调用了一次被调过程，PrintMyBM(23，18)语句表明，程序最后输出的只是被调过程的返回值。主调过程在调用被调过程MyBM时，把数值23，18分别传给形参m和n，从被调过程中的循环语句来看，因为此时m的值大于n的值，所以执行语句m=m-n，m值变为5，然后循环调用，直到m=n，而由语句MyBM=m可看出，此过程的返回值就是m的值，即1。
第17题：

单击命令按钮时，下列程序代码的运行结果为 Private Sub Command1_Click() print MyFunc(20，18) End Sub Public Function MyFunc (m As Integer，n As Integer)As Integer Do While m <>n Do While m ＞ n：m=m - n：Loop Do While m ＜ n：n=n - m：Loop Loop MyFunc=m End FunCtion
A．0
B．2
C．4
D．6

正确答案：B
解析：此题程序代码中，被调过程采用了DoWhile…Loop的嵌套语句结构，主凋过程只调用了一次被调过程，PrintMyFtunc(20，18)语句表明，程序最后输出的只是被调过程的返回值，主调过程在调用被调过程MyFunc时，把数值20和18分别传给形参m和n，从被调过程中的循环语句来看，因为此时m的值大于n的值，所以执行语句m=m-n，m值变为2，由语句MyFunc=m可看出，此过程的返回值就是m的值，即2。
第18题：

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

假定有如下事件过程： Private Sub Form. Click() Dim x As Integer, n As Integer x=1 n=0 Do While x＜28 x=x*3 n=n+1 Loop Print x, n End Sub 程序运行后，单击窗体，输出结果是______。
A．81 4
B．56 3
C．28 1
D．243 5

正确答案：A
解析：Do While-Loop循环语句的判断条件为“x28”。循环语句“x=x*3”的作用是每循环一次将成为原数的3倍，而变量n用来记录循环次数，当循环3次后，x得27，有2728，再循环一次后x得81，有81＞28，不再满足循环条件，此时n为4。执行Print语句，输出x和n的值，即输出81和4。
第20题：

单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click( ) Print Fun(23, 18) End Sub Public Function Fun(m As Integer, n As Integer) As Integer Do Whilem ＜＞ n Do While m ＞ n : m--m - n: Loop Do While m ＜ n : n=n - m: Loop Loop Fun =m End Function
A．0
B．1
C．3
D．5

正确答案：B
解析：此题程序代码中，被调过程采用了Do While……Loop的嵌套语句结构，主调过程只调用了一次被调过程，Print Fun(23，18)语句表明，程序最后输出的只是被调过程的返回值。主调过程在调用被调过程Fun时，把数值23，18分别传给形参m和n，从被调过程中的循环语句来看，因为此时m的值大于n的值，所以执行语句m=m-n，m值变为5，然后循环调用，直到m=n，而由语句Fun=m可看出，此过程的返回值就是m的值，即为1。
第21题：

下列程序的运行结果是( )。 Private Function myfun(m，n) Do While m＞n Do While m＞n:m=m-n:Loop Do While n＞m:n=n-m:Loop Loop myfun=m End Function Private Sub Command1_Click() Print myfun(9，8) End Sub
A．2
B．1
C．4
D．3

正确答案：B
解析：求解本题的关键在于理解好3个DoWhile循环的执行顺序，第2个和第3个DoWhile循环嵌套在第1个DoWhile循环内，先执行第2个循环，然后是第3个循环，最后是外层循环即第1个DoWhile循环。程序执行如下：m=9，n=8：第1个DoWhile循环内，执行第2个DoWhile循环，m=m-n=1；退出第2个DoWhile循环；执行第3个DoWhile循环，n=n-m，最后n的值为1；退出第3个DoWhile循环；退出第1个DoWhile循环。程序执行结果是1。
第22题：

假定有如下事件过程： Private Sub Form_Cilck() Dim x As Integer，n As Integer x=1 n=0 Do While x＜28 X=X*3 n=n+1 Loop Print x,n End Sub 程序运行后，单击窗体，输出结果为______。
A．81 4
B．56 3
C．28 1
D．243 5

正确答案：A
解析：DoWhile语句是当While后面的条件为True时，执行循环体，当条件为False时退出循环。本题的条件是x28，而循环体中的语句是X=x*3，所以当x值为81时，退出循环体，此时共执行了4次循环体，所以n的值为4。
第23题：

单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click( ) Print MyFund(20，18) End Sub Public Function MyFund(m As Integer，n As Integer)As Integer Do While m◇n Do While m>n：m=m-n:Loop Do While m＜n：n=n-m:Loop Loop MyFund=m End Function
A．0
B．2
C．4
D．6

正确答案：B
解析：程序代码被调过程采用了DoWhile…Loop的嵌套语句结构，主调过程只调用了—次被调过程，PrintMyFund(20，18)语句表明，程序最后输出的只是被调过程的返回值。主调过程在调用被调过程MyFund时，把数值20，18分另"专给形参m和n，从被调过程中的循环语句来看，因为此时m的值大于n的值，所以执行语句m=m-n，m值变为2，而由语句MyFund=m可以看出，此过程的返回值就是m的值，即2。

题目

相似考题

相关内容