VB循环结构测试题及答案

循环结构测试题（四）一：选择题

1以下（）是正确的for….nex结构

(A)for x=1 to step 10

(B)for x=3 to -3 step

-3

next x

(C ) for x=1 to 10 re: … .

Next x

If I=10 then goto re

2:下列循环语句能正常结束循环的是( ( A)I=5

do

I=I+1

Loop until I<0

(C)I=10

do

I=I-1

Loop until I<0

3:下面程序段的运行结果为()

for I=3 to 1 step -1

print spc(5-I);

next x

(D) for x=3 to step

3

next y

)

(B) I=1

do

I=I+2

loop until I=10

(D) I=6

do

I=I-2

loop until

for j=1 to 2*1-1 print “ *' next j print n ext I

___________________ l

l _________________________________________________

4下列程序在文本框输入B)“* * ABCD ”四个字符时，窗体上显示的是**(* *

)

* * *

* *_* * *

* * * * * *

private sub text1_cha nge()

* *

print text1.text; end sub

2:下面程序段显示=i(②)个“ * ”。 for j=1 to 4 For I=1 to n 5n*

pri nt n

For n =2j to I Print Next j Next I

3:下列第40句共执行了（

③）次，第41句共执行（④ ）次

(A) ABCD (B)

(D) A

(C )AABABCABCD

AB 5哪个程序段不能分别正确显示 1!,2!,3!,4!的C

ABC

(A)

二：填空题

1:要使下列 for I=1 to 4 n=1

for j=1 to I n=n*j

FO F X

语句循环执

行

pri nt n

20次，循环变量

for k=(

next i

① )to -5 step —

for I=1 to 4

for j=1 to I n=1 n=n*j

的

初值应当是:

print n

n ext i

(B)

ABCD

(D)

N=1 J=1

Do while j<=4

n=n*j pri nt n j=j+1

loop

30 for j=1 to 12 step 3

40

for k=6 to 2 step —

41 print j,k

42 next k

43 next j

4:以下程序运行后，si,sj,l,j,k的结果分别是（⑤），（⑥），（⑦），（⑧），（⑨ ），（⑽）

private sub command1_click（）

for l=1 to 2

for j=1 to l

sk=0

for k=j to 3

sk=sk+1

next k

sj=sj+1

next j

si=si+1

next l

print si,sj,sk,l,j,k

end sub

5:下面程序运行后输出的结果是（（11））

private sub command1_click（）

for l=0 to 3

print tab(5*I+1); ”2” +I; ”2”&I;

next I end sub

6:下面程序运行后输出的结果是( (12))

private sub command1_click() a$=”*”;b$= ”$”

for I=2 to 4 if I mod 2=0 then

x$=string(len(a$)+I,b$)

else

x$=string(len(a$)+I,a$)

end if print x$;

next I

end sub

7：执行下面程序，打印结果是((13)) option explicit private sub form_click( ) dim I as integer,j as integer

j=10

for I=1 to j step 2

I=I+1

J=j-I

Next I

Print I,j

End sub

8:输入任意长度的字符串，要求将字符顺序倒置，例如：将输入

ABCDEFG ”变换成“ GFEDCBA”

private sub command1_click()

dim a$,I%,c$

a=inputbox( 输“入字符串”)

n=( (14) )

for I =1 to ( (15))

c=mid(a,I,1)

mid(a,l,1)=( (16))

((17) )=c

next I

print a

end sub

9：找出被3，5，7 除，余数为 1 的最小的5个正整数。

Private sub command1_click()

Dim countN%,n%

CountN=0

N=1

Do

N=n+1

If ( (18) ) the n