(完整版)VB循环结构测试题及答案

循环结构测试题(四)

一：选择题

1：以下（）是正确的for….next结构。

（A）f or x=1 to step 10 (B) for x=3 to –3 step -3 ….. …..

next x next x

(C ) for x=1 to 10 (D) for x=3 to step 3

re: …. ……

Next x next y If I=10 then goto re

2:下列循环语句能正常结束循环的是（）

（A）I=5 (B) I=1

do do

I=I+1 I=I+2 Loop until I<0 loop until I=10

(C) I=10 (D) I=6

do do

I=I-1 I=I-2 Loop until I<0 loop until I=1 3:下面程序段的运行结果为（）

for I=3 to 1 step –1

print spc(5-I);

for j=1 to 2*I-1 print “*”; next j print next I (A)

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

private sub text1_change( ) print text1.text; end sub

(A) ABCD (B) ( C ) AABABCABCD

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

* * * * * * * * *

(B) * * * * *

* * * *

(C) * * * * *

* * * *

(D) * * * * *

* * * *

A B C D

(D) A

AB ABC ABCD

二：填空题

1：要使下列For 语句循环执行20次，循环变量的初值应当是：

for k=( ① ) to –5 step –2 2:下面程序段显示（ ② ）个“*”。

For I=1 to 5 For j=2 to I Print “*”; Next j Next I

3: 下列第40句共执行了（ ③ ）次，第41句共执行（④ ）次。

30 for j=1 to 12 step 3 40 for k=6 to 2 step –2 41

print j,k

（A ） for I=1 to 4

n=1

for j=1 to I n=n*j next j print n next i

（B ）

for I=1 to 4 for j=1 to I n=1 n=n*j next j print n next i

(C) N=1

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

next j

(D) N=1

J=1

Do while j<=4 n=n*j print n j=j+1 loop

42next k

43next j

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

private sub command1_click( )

for I=1 to 2

for j=1 to I

sk=0

for k=j to 3

sk=sk+1

next k

sj=sj+1

next j

si=si+1

next I

print si,sj,sk,I,j,k

end sub

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

private sub command1_click()

for I=0 to 3

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

next I

6:下面程序运行后输出的结果是（⑿）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: 执行下面程序，打印结果是（⒀）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

End sub

8:输入任意长度的字符串，要求将字符顺序倒置，例如：将输入“ABCDEFG”变换成“GFEDCBA”

private sub command1_click()

dim a$,I%,c$

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

n=( ⒁)

for I =1 to ( ⒂)

c=mid(a,I,1)

mid(a,I,1)=( ⒃)

( ⒄)=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