第6章 循环结构练习题.docx
- 文档编号:29548884
- 上传时间:2023-07-24
- 格式:DOCX
- 页数:18
- 大小:18.60KB
第6章 循环结构练习题.docx
《第6章 循环结构练习题.docx》由会员分享,可在线阅读,更多相关《第6章 循环结构练习题.docx(18页珍藏版)》请在冰豆网上搜索。
第6章循环结构练习题
循环结构练习题
一、选择题。
2、对于DOUNTIL……LOOP循环,正确的是()。
A如果循环条上为常数0,则一次循环也不执行
B如果循环条件为常数0,则至少执行一次循环
C如果循环条件是不为0的常数,则至少执行一次循环
D无论循环条件是否为TRUE,都至少执行一次循环
3、要在DO……LOOP循环中退出循环,应使用()语句。
AEXITBEXITDOCCONTINUEDSTOPLOOP
4、以下循环结构中,VB不支持的是()。
AFOR……NEXTBFOREACH……NEXT
CDO…..LOOPDDO……ENDDO
5、要在FOR……NEXT循环中退出循环,应使用()语句。
AEXITBEXITFORCCONTINUEDSTOPLOOP
6、下列关于FOR循环的说法中,正确的是()。
A循环变量、初值、终值和步长都必须是数值型
BSTEP后面的值必须为正数
C初值必须小于终值
D初值必须大于终值
7、下列关于DO……LOOP语句的叙述中,不正确的是()。
ADO……LOOP语句采用逻辑表达式来控制循环体执行的次数。
BDOWHILE……LOOP语句与DOUNTIL……LOOP语句中WHILE与UNTIL后面的表达式值为TRUE或非0时,循环继续。
CDO……LOOPWHILE与DO……LOOPUNTIL语句都至少执行一次循环
DDOWHILE…..LOOOP语句与DOUNTIL……LOOP语句可能不执行循环
8、下面的循环程序在执行时将()。
FORI=1TO10STEP0
K=K+2
NEXTI
A形成无限循环B仅循环一次C语法错误D一次也不循环
9、对于EXITFOR,叙述正确的是()。
AEXITFOR语句可以退出任何类型的循环B一个循环只能有一条EXITFOR语句
CEXITFOR表示返回到FOR语句执行D一个FOR循环可以有多条EXITFOR语句
10、对于FOR循环中的初值、终值、步长,下列说法中,正确的是()。
A只能是具体的数值B只能是表达式
C可以是数值表达式D可以是任何类型的表达式
11、要使循环至少执行一次,应使用()循环。
AFOR……NEXTBWHILE……END
CDO……LOOPWHILE/UNTILDDOWHILE/UNTIL……LOOP
12、有如下程序段,该程序执行完毕后,共循环了()次。
FORI=1TO2
FORJ=1TOI
FORK=1TOJ
PRINT“A”
NEXTK
NEXTJ
NEXTI
A4B5C6D7
13、执行完下面的程序段后,共循环了()次。
FORI=1.7TO5.9STEP0.9
A=A+1
PRINTA
NEXTI
A3B4C5D6
14、以下程序段的循环次数为()。
FORI=1TO3
FORJ=5TO1STEP-1
PRINTI*J
NEXTJ
NEXTI
A15B16C17D18
15、执行以下程序后,X的值为()。
X=5
FORI=1TO20STEP2
X=X+I\5
NEXTI
A24B23C22D21
16、一个命令按钮的事件过程如下,程序运行后单击该命令按钮,输出结果为()。
FORI=1TO4
X=4
FORJ=1TO3
X=X+6
NEXTJ
NEXTI
PRINTX
A72B22C4D7
17、以下三重循环的程序运行后,A的值为()。
FORI=1TO3
FORJ=1TOI
FORK=JTO3
A=A+1
NEXTK
NEXTJ
NEXTI
A3B9C14D21
18、窗体上有一个文本框TEXT1,对应窗体的CLICK事件过程如下,程序运行时,单击窗体后其结果是()。
PRIVATESUBFORM-CLICK()
TEXT1.TEXT=””
FORI=1TO10
SUM=SUM+I
NEXTI
TEXT1.TEXT=SUM
ENDSUB
A在文本框TEXT1中输出55B在文本框TEXT1中输出0
C出错D在文本框TEXT1中输出不定值
19、下列程序中,第一条DO语句共执行了()次。
DIMIASINTEGER,JASINTEGER
I=1
DO
J=1
DO
SUM=SUM+J
J=J+2
PRINTJ;
LOOPUNTILJ>3
I=I+2
LOOPUNTILI>10
PRINTSUM
A10B20C5D7
20、一个命令按钮的事件过程如下,程序运行后单击该按钮,其输出结果为()。
PRIVATESUBCOMMAND1_CLICK()
FORI=1TO4
IFI=1THENX=I
IFI<=4THENX=X+1
PRINTX;
NEXTI
ENDSUB
A1234B2345C1345D3456
21、窗体上一个命令按钮的事件过程为:
PRIVATESUBCOMMAND1_CLICK()
FORI=1TO4
X=4
FORJ=1TO3
X=3
FORK=1TO2
X=X+6
NEXTK
NEXTJ
NEXTI
PRINTX
ENDSUB
A7B15C157D538
22、以下程序的运行结果为()
PRIVATESUBCOMMAND1_CLICK()
DIMXASINTEGER
FORI=1TO10
IFIMOD3=0TJEM
X=X+1
ENDIF
NEXTI
PRINTX
ENDSUB
A3B6C9D18
23、以下是一个计算1-100之间所有奇数的和的程序,所缺部分应填()。
DIMSASLONG
DIMXASINTEGER
S=0
FORX=_______________STEP-2
S=S+X
NEXTX
PRINTS
A100TO1B1TO100C99TO1D1TO99
24、下列程序的执行结果为()
100:
K=K+1
S=S+K
IFK<=10THENGOTO100
PRINTS
A66B33C10D200
26、下列程序共循环了()次。
FORI=1TO10STEP2
FORJ=1TO5STEP2
INTSUM=INTSUM+J
NEXTJ
IFINTSUM>10THENEXITFOR
NEXTI
A15B5C3D6
27、窗体上有一个文本框TEXT1和一个命令按钮COMMAND1,则执行下列事件过程后文本框的输出为()。
FORI=1TO4
IFX>12THENEXITFOR
FORJ=1TO3
FORK=1TO2
X=X+3
NEXTK
NEXTJ
NEXTI
TEXT1.TEXT=STR(X)
A6B12C18D21
28、下列程序段的执行结果为()
N=0
J=1
DOUNTILN>2
N=N+1
J=J+N*(N+1)
LOOP
PRINTN;J
A01B37C321D313
29、下列程序段的执行结果为()
X=0
Y=1
DO
X=X+Y
Y=Y+1
LOOPWHILEX<10
PRINTX;Y
A105BXYC01D1030
30、以下程序段执行后依次输入5、4、3、2、1、-1,则输出结果是()
DIMAASINTEGER,BASINTEGER,XASINTEGER
X=0
DOUNTILX=-1
A=INPUTBOX(“请输入A的值”)
B=INPUTBOX(“请输入B的值”)
X=INPUTBOX(“请输入X的值”)
A=A+B+X
LOOP
PRINTA
A2B3C14D15
31、有两个文本框(TEXT1、TEXT2),一个命令按钮(COMMAND1),有以下事件过程;
PRIVATESUBCOMMAND1_CLICK()
X=0
DOWHILEX<50
X=(X+2)*(X+3)
N=N+1
LOOP
TEXT1.TEXT=N
TEXT2.TEXT=X
ENDSUB
程序运行后,单击命令按钮,在两个文本框中显示的分别为()
A10B272C350D4168
32、以下循环程序执行完毕后共循环了()次。
N=5
DO
IFNMOD2=0THEN
N=N\2
ELSE
N=N*3+1
ENDIF
LOOPUNTILN=1
A5B4C3D2
33、以下程序如果要求运行时只能循环3次,则所缺部分应填()
X=1
DO
X=X+3
PRINTX
LOOPUNTIL_______
AX>=8BX<=8CX>=7DX<=7
34、以下程序执行完毕后共循环了()次。
DOUNTILK>=3
X=X+2
K=K+1
LOOP
A2B4C3D5
35、以下程序运行,变量X的值是()。
K=10
DOWHILEK>=5
X=X+2
K=K-1
LOOP
A12B8C4D2
36、以下程序的运行结果为()
DIMXASINTEGER,IASINTEGER
X=1
DOUNTILX>10
IFXMOD3<>0THEN
I=I+X
ENDIF
X=X+1
LOOP
PRINTI
A55B37C18D25
二、写运行结果:
1、PRIVATESUBFORM-CLICK()
DIMIASINTEGER,SASINTETGER
FORI=1TO10
S=S+I
IFS>10THEN
PRINTS
S=0
ENDIF
NEXTI
ENDSUB
2、PRIVATESUBFORM-CLICK()
DIMAASINTEGER,BASINTEGER
A=0;B=0
DOWHILEA<=8
A=A+2
B=B+A*A
LOOP
PRINTA,B
ENDSUB
3、PRIVATESUBFORM-CLICK()
DIMMSTASSTRING,MST1ASSTRING,MST2ASSTRING
DIMIASINTEGER
MST1=“CeBbAa”
FORI=LEN(MST1)TO1STEP-2
MST2=MID(MST1,I-1,2)
MST=MST&MST2
PRINTMST
NEXTI
ENDSUB
4、X=0
DOWHILEX<>-1
X=VAL(INPUTBOX(“请输入数据X”))
Y=VAL(INPUTBOX(“请输入数据Y”))
IFX*Y LOOP 设运行时依次输入数据为7、2、-3、8、-5、-10、18、-15、31、4、-1、-1。 5、PRIVATESUBCOMMAND1_CLICK() DIMIASINTEGER,JASINTEGER,KASINTEGER K=0 FORI=0TO10STEP3 FORJ=1TO10 IFJ>5THENK=K+4: EXITFOR K=K+1 NEXTJ PRINTI,K IFI>8THENEXITFOR NEXTI ENDSUB 6、P=0 S=0 DO P=P+2 S=S+P LOOPWHILEP<11 PRINT“S=”;S 7、FORI=1TO6 PRINTTAB(7-I); FORJ=1TO2*I-1 PRINT“*”; NEXTJ NEXTI 8、PRIVATESUBFORM-CLICK() DIMIASINTEGER,JASINTEGER J=10 FORI=1TOJ I=I+1 J=J-1 NEXTI PRINTI PRINTJ ENDSUB 9、PRIVATESUBFOMR-CLICK() DIMCHASSTRING,IASINTEGER CH=“ABC” FORI=1TO3 CH=MID(CH,S*I-1,1)+LEFT(CH,LEN(CH)) PRINTCH NEXTI ENDSUB 10、DIMSASSTRING,IASINTEGER,FLAGASBOOLEAN S=“THISISABOOK” S=LCASE(S) PRINTS FLAG=TRUE FORI=1TOLEN(S) IFMID(S,I,1)=“”THEN FLAG=TRUE ELSEIFFLAGTHEN S=LEFT(S,I-1)&UCASE(MID(S,I,1))&RIGHT(S,LEN(S)-I) FLAG=FALSE ENDIF NEXTI PRINTS 三、程序填空: 1、以下程序是一个评分程序,有10名评委,去掉一个最高分和一个最低分,计算平均分(设满分为100分)。 试填空。 PRIVATESUBCOMMAND1_CLICK() MAX=0 MIN=100 FORI=1TO10 N=VAL(INPUTBOX(“请输入分数”)) IF____________________THENMAX=N IF____________________THENMIN=N S=S+N NEXTI S=_____________ P=P/8 PRINT“最高分为: ”;MAX,”最低分为: ”;MIN PRINT“最后得分为: ”;p ENDSUB 2、窗体上有一个命令按钮COMMAND1和两个文本框TEXT1、TEXT2,在TEXT1中输入任意一个字符串,单击命令按钮后该字符串以反序的形式出现在TEXT2中。 试完成以下程序。 PRIVATESUBCOMMAND1_CLICK() DIMNASSTRING,CASSTRING,DASSTRING N=TEXT1.TEXT M=_________________ FORI=MTO1STEP-1 C=_____________ D=D&_______________ NEXTI TEXT2.TEXT=D ENDSUB 3、以下程序产生20个随机的10-100之间的整数,并将其中的奇数打印出来(每行打印四个数),试完成程序。 PRIVATESUBCOMMAND1_CLICK() RANDOMIZE FORI=1TO20 X=INT(RND*________________) IF__________________THEN K=K+1 IF_____________THENPRINT PRINTX; ENDIF NEXTI PRINT ENDSUB 4、以下命令按钮的事件过程用于计算10! ,试填空。 PRIVATESUBCOMMAND1_CLICK() X=1 RESULT=_____________ WHILEX<+10 RESULT=______________ X=X+1 WEND PRINTRESULT ENDSUB 5、以下程序用于输出3-100之间的全部素数。 试完成程序。 PRIVATESUBCOMMAND1_CLICK() TEXT1.TEXT=”” FORN=3TO100 K=INT(SQR(N)) I=2 FLAG=0 DOWHILE_________________ IFNMODI=0THEN FLAG=_____________ EXITDO ELSE I=I+1 ENDIF LOOP IF____________THEN PRINTN ENDIF NEXTN ENDSUB
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 第6章 循环结构练习题 循环 结构 练习题
![提示](https://static.bdocx.com/images/bang_tan.gif)