循环结构测试题 （四）
一：选择题
1以下（
）是正确的for….nex结构
(A) for x=1 to step 10 (B) for x=3 to -3 step
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);
-3
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
(A) ABCD (C )AABABCABCD
(B)
(D) A
AB ABC
(B)
for I=1 to 4
for j=1 to I n=1 n=n*j
5哪个程序段不能分别正确显示 1!,2!,3!,4!的C
(A)
for I=1 to 4 n=1
的
ABCD
二：填空题
for j=1 to I n=n*j
初值应当是:
print n
FOF语句循环执
X
1:要使下列 行
pri nt n
20次，循环变量
next i
n ext i
for k=(
① )to -5 step —
(D)
N=1 J=1
Do while j<=4
n=n*j pri nt n j=j+1
2:下面程序段显示=i(②)个“ * ”。 for j=1 to 4 For I=1 to n5n*
pri nt n
For n=2j to I Print Next j Next I
3:下列第40句共执行了（
loop
③）次，第41句共执行（④ ）次
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)) I as integer,j as integer j=10
for I=1 to j step 2 I=I+1 J=j-I
option explicit private sub form_click( ) dim
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 的最小的Private sub command1_click() Dim countN%,n% CountN=0 N=1 Do N=n+1 If (
(18)
) the n
个正整数。
5
相关推荐：
loading