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

I=1

for j=1 to 2*1-1

print “ * n ext j print next I

4下列程序在文本框输入B ）“* * ABCD ”四个字符时*窗体上显示D 是* （* *

）

* * *

*****

private sub text1_cha nge() print textl.text; end sub

2:下面程序段显示=i(②

for j=1 to 4

For I=1 to n=n*j

print n

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

(A) ABCD (B)

(D) A

(C ) AABABCABCD

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

ABC

(A)

二：填空题

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

for j=1 to I n=n*j

F(5

print n

for k=(

next

①) (B )

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

20次，循环变量的初值应当是:

print n

n ext i

to -5 step —

ABCD

个“ * ”。

(D) N=1 J=1

Do while j<=4

n=n*j print 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

Print n

CountN=countN+1

End if

Loop ( (19))

End sub

10：某次大奖赛，有7 个评委打分，如下程序对一名参加比赛者，输入7个评委的打分分数，去掉一个最高分，一个最低分数，求出平均分为该参赛选手的得分。