VB循环结构测试题及答案

V B循环结构测试题及答

案

This model paper was revised by the Standardization Office on December 10, 2020

循环结构测试题(四)

一：选择题

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

（A）for 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

4下列程序在文本框输入“ABCD ”四个字符时，窗体上显示的是（ ） private sub text1_change( ) print text1.text; end sub

(A) ABCD (B) ( C ) AABABCABCD

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

二：填空题

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句共执行（④ ）次。

* * * *

* * * * * (B) * * * * * * * *

*

(C) * * * * * * * * *

(D) * * * * *

* * * *

A B

C D

(D) A

AB ABC

ABCD

（A ） for I=1 to 4 n=1 for j=1 to I n=n*j next j print n （B ） for I=1 to

4 for j=1 to I

n=1 n=n*j next j print n

(C) N=1 for j=1

to 4 n=n*j

print

n

(D)

N=1 J=1

Do while j<=4

n=n*j print n j=j+1 loop

30for j=1 to 12 step 3

40for k=6 to 2 step –2

41print j,k

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

end sub

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

Print I,j

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