下列语句中,不能实现循环100次的是A.Do N=N＋1 Loop Until N>=100B.Do N=N＋1 Loop While n<100C.D

下面程序在调试时出现了死循环 Private Sub Command1_Click() n=InputBox("请输入—个整数") Do Ifn Mod 2=0 Then n=n+1 Else n=n+2 End If Loop Until n=1000 End Sub 下面关于死循环的叙述中正确的是______。

A．只有输入的n是偶数时才会出现死循环，否则不会

B．只有输入的n是奇数时才会出现死循环，否则不会

C．只有输入的n是大于1000的整数时才会出现死循环，否则不会

D．输入任伺整数都会出现死循环

有如下程序，运行输出的结果是 ______ 。 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

以下循环语句中在任何情况下都至少执行一次循环体的是（ ）。

A．Do While <条件>

循环体

Loop

B．While <条件>

循环体

Loop

C．Do

循环体

Loop Until <条件>

D．Do Until <条件>

循环体

Loop

（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

单击命令按钮时，下列程序的运行结果为 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

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

假定有如下事件过程： 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

下列语句中，不能实现循环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

下列程序段的执行结果为 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

在下面循环语句中内层循环体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