下列语句中,不能实现循环100次的是
A.Do N=N+1 Loop Until N>=100
B.Do N=N+1 Loop While n<100
C.Do N=N+1 Loop Until N<100
D.Do While n<100 N=N+1 Loop
第1题:
有如下程序,运行输出的结果是 ______ 。 s=0 Do s=(s+1)*(s+2) n=n+1 Loop Until s>=30 Print n; s
A.0 1
B.30 30
C.4 30
D.3 182
第2题:
单击命令按钮时,下列程序的运行结果为 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 Function
A.0
B.1
C.3
D.5
第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 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
第5题:
下列关于Do…Loop语句的叙述不正确的是 ( )
A.Do…Loop语句采用逻辑表达式来控制循环体执行的次数
B.当Do while…Loop或Do until…Loop语句中while或until后的表达式的值为 true或非零时,循环继续
C.Do…Loop while语句与Do…Loop until语句都至少执行一次循环体
D.Do while…Loop语句与Do until…Loop语句可能不执行循环体
第6题:
有如下程序 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
第7题:
下列语句中,不能实现循环100次的是
A.N=0 Do N=N+1 Loop Until N>=100
B.N=0 Do N=N+1 Loop While n<100
C.N=0 N=N+1 Do Loop Until N<100
D.N=0 Do While n<100 N=N+1 Loop
第8题:
假定有如下事件过程: Phvate Sub Form_Click() DimXASInteger,nASInteger x=1 n=0 Do While x<28 x=x*3 n=n+1 Loop Ptint x,n End Sub 程序运行后,单击窗体,输出结果为______。
A. 81 4
B.56 3
C.28 1
D.243 5
第9题:
单击命令按钮时,下列程序的运行结果为 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
第10题:
下列程序的运行结果是( )。 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
第11题:
以下程序段中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
第12题:
单击命令按钮时,下列程序的运行结果为 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
第13题:
假定有如下事件过程: 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 4
B.56 3
C.28 1
D.243 5
第14题:
下列程序段的执行结果为 m=2 n=3 Do m=m+n n=n+1 Loop While m<10 Print m;n
A.1 5
B.14 6
C.a b
D.10 25
第15题:
在下面循环语句中内层循环体S语句的执行总次数为( )。
for(int i=0; i
for(int j=i; j
A、n2
B、(n+1)/2
C、n(n-1)/2
D、n(n+1)/2
第16题:
下列程序的执行结果为( )。 n=0 j=1 Do Until n>2 n=n+1 j=j+n*(n+1) Loop Print n;j
A.0 1
B.3 7
C.3 21
D.3 13
第17题:
在下面的DO循环中,一共要循环______次。 M=5 N=1 DO WHILE N<=H N=N+1 ENDDO
A.1
B.6
C.4
D.5
第18题:
单击命令按钮时,下列程序代码的运行结果为 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
第19题:
单击命令按钮时,下列程序的运行结果为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
第20题:
下列程序段的执行结果为 m=2 n=3 Do m=m + n n=n+1 Loop While m<10 Print m; n
A.1 5
B.14 6
C.a b
D.10 25
第21题:
下列程序段的执行结果为______ 。 N=0 J=1 Do Until N > 2 N=N+1 J=J+N* (N+ 1) Loop Print N; J
A. 0 1
B.3 7
C.3 21
D.3 13
第22题:
下列程序的运行结果是( )。 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
第23题:
假定有如下事件过程: 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