...第5章选择结构程序
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
-、选择题1.下列语句正确的是【】。(多选)(A)IfX≠YThenPrint"X不等于Y"(B)IfX<>YThenPrint"X不等于Y"(C)IfX>
=BThenT=AA=BB=T(D)IfA>=BThenT=A:A=B:B=T3.下列语句正确的是【】。(A)IfX<3*YAndX>YThenY=X^3(B)IfX<3*YAndX>YThenY=X3(C)IfX<3*Y:X>YThenY=X^3(D)IfX<3*YAndX>YThenY=X**34.关于语句Ifx=lTheny=1,下列说法正确的是【】。(A)x=1和y=1均为赋值语句(B)x=1和y=1均为关系表达式(C)x=1为关系表达式,y=1为赋值语句(D)x=1为赋值语句,y=1为关系表达式5.执行以下语句后显示结果为【】。DimxAsIntegerIfxThenPrintxElsePrintx-1(A)1(B)O(C)一1(D)不确定6.如果X的值小于或等于Y的平方,则打印"OK",表示这个条件的单行
格式
pdf格式笔记格式下载页码格式下载公文格式下载简报格式下载
If语句是【】。(A)Ifx<=y2ThenPrint"OK"(B)Ifx<=y^2Print"OK"(C)Ifx<=y^2Then"OK"(D)Ifx<=y^2ThenPrint"OK"7.如果A为整数且|A|=100,则打印"OK",否则打印"Error",表示这个条件的单行格式If语句是【】。(A)IfInt(A)=AAndSqr(A)>=1OThenPrint"OK"ElsePrint"Error"(B)IfFix(A)=AAndAbs(A)>=100ThenPrint"OK"ElsePrint"Error"(C)IfInt(A)=AAnd(A>=100,A<=-100)ThenPrint"OK"ElsePrint"Error"(D)IfFix(A)=AAndA>=100AndA<=-100ThenPrint"OK"ElsePrint"Error"8.下列程序段【】能够正确实现条件:如果X=OThenY=1+X(B)IfX≥OThenY=1+XY=1-XElseY=1-XEndIf(C)IfX>=OThenY=1+X(D)IfX=1Thenf=Sqr(x+1)Ifx>=1Thenf=Sqr(x+1)Ifx<1Thenf=x*x+3PrintfPrintf(C)x=Val(Text1.Text)(D)x=Val(Text1.Text)Ifx<1ThenIfx>=1Thenf=Sqr(X+1)f(x)=x*x*+3f=x*x*+3ElsePrintfF(x)=Sqr(X+1)EndIfPrintf11.计算分段函数:0x<010≤x<1f(x)=21≤x<23x≥2下面程序段中正确的是【】。(A)Ifx<0Theny=0(B)Ifx>=2Theny=3Ifx<1Theny=1Ifx>=1Theny=2Ifx<2Theny=2Ifx>=0Theny=1Ifx>=2Theny=3Ifx<0Theny=0(C)Ifx<0Then(D)Ifx>=2Theny=0y=3ElseIfx>=0ThenElseIfx>=1Theny=1y=2ElseIfx>=1ThenElseIfx>=0Theny=2y=1ElseElsey=2y=0EndIfEndIf12.计算分段函数:0x<010≤x<1f(x)=21≤x<23x≥2下面程序段中正确的是【】。(A)SelectCasex(B)SelectCasexCasex=OAndx<1Casex<1y=1y=1Casex>=1Andx<2Casex<2y=2y=2CaseElseCaseElsey=3y=3EndSelectEndSelect(C)SelectCasex(D)SelectCasexCaseIs=0,Is<1y=1y=1CaseIs<2CaseIs>=1,Is<2y=2y=2CaseElseCaseIs>=2y=3y=3EndSelectEndSelect二、判断程序或程序段的执行结果1.下列程序段的执行结果为【】。X=2Y=1IfX*Y<1ThenY=Y-1ElseY=-1PrintY-X>O(A)True(B)False(C)-1(D)12.下列程序段的执行结果为【】。J1=10J2=30IfJ1OThenX=Y-3ElseY=X+3PrintX-Y;Y-X(A)-33(B)5-8(C)3–3(D)25-254.下列程序段的执行结果为【】。A="1"B="2"A=Val(A)+Val(B)B=Val("12")IfA<>BThenPrintA-BElsePrintB-A(A)-9(B)9(C)12-12(D)05.下列程序段的执行结果为【】。A=75IfA>6OThenI=1IfA>70ThenI=2IfA>80ThenI=3IfA>90ThenI=4Print"I=";I(A)I=1(B)I=2(C)I=3(D)I=46.下列程序段的执行结果为【】。A="abed"B="bcde"E=Right(A,3)F=Mid(B,2,3)IfE60ThenI=1ElseIfA>70ThenI=2ElseIfA>80ThenI=3ElseIfA>9OthenI=4EndIfPrint"I=";I(A)I=1(B)I=2(C)I=3(D)I=48.下列程序段的执行结果为【】A=1:B=OSelectCaseACase1SelectCaseBCaseOPrint"**O**"CaselPrint"**1**"EndSelectCase2Print"**2**"EndSelect(A)**O**(B)**1**(C)**2**(D)O9.下列程序段的执行结果为【】。x=Int(Rnd+4)SelectCasexCase5Print"优秀"Case4Print"良好"Case3Print"通过"CaseElsePrint"不通过"EndSelect(A)优秀(B)良好(C)通过(D)不通过三、程序填空1.以下程序用于判断输入的年份是否是闰年。如果年份能被4整除但不能被100整除,或者年份能被400整除,则该年为闰年;否则不是闰年。PrivateSubCommand1_Click()y=InputBox("请输入年份")If(1)ThenPrinty&"年为闰年"ElsePrinty&"年不是闰年"LEndIfEndSub2.下面的程序用于求三个数中的最大数、最小数。PrivateSubCommand1_Click()a=Val(InputBox("请输入第一个数"))b=Val(InputBox("请输入第二个数"))C=Val(InputBox("请输入第三个数"))Max=aMin=aIfb>(1)ThenMax=bIfb<(2)ThenMin=bIf(3)ThenMax=cIf(4)ThenMin=cPrint"最大数为";MaxPrint"最小数为";MinEndSub3.以下程序判断从文本框Text1中输入的数据,如果该数据满足条件:除以3余2,除以5余3,除以7余4,则输出；否则将焦点定位在文本框Text1中，选中其中的确文本。PrivateSubCommand1_Click()x=Val(Text1.Text)If(1)ThenPrintxElse(2)(3)(4)EndIfEndSub4.下面的程序用于根据文本框A中输入的内容进行以下处理：当A<6.6时，打印"A<6.6"；当A=6.6时，打印"A=6.6"；当A>6.6时，打印"A>6.6"。PrivateSubCommand1_Click()If(1)ThenPrint"A<6.6"(2)Val(A.Text)=6.6ThenPrint"A=6.6"ElsePrint"A>6.6"(3)EndSub5.下面的程序用于根据文本框X中输入的内容进行以下处理：若X为2、4、6，则打印"X的值为2、4、6"；若X为3、5，则打印"X的值为3、5"；若X为7、8，则打印"X的值为7、8"；否则,打印"X不在范围内"。PrivateSubCommand1_click()SelectCaseVal(X.Text)Case(1)Print"X的值为2、4、6"Case(2)Print"X的值为3、5"Case(3)Print"X的值为7、8"(4)Print"X不在范围内"EndSelectEndSub6.下面程序用来计算:A+B(A>5)N=B/A(A=5)0(A<5)PrivateSubCommand1_C1ick()A=Val(Text1.Text)B=val(Text2.Text)SelectCaseACase(1)N=A+BCase(2)N=B/ACase(3)N=OEndSelectText3.Text=NEndSub第六章循环结构程序设计一、判断程序或程序段的执行结果1.下列程序段的执行结果为【】。I=0ForG=10To19Step3I=I+1NextGPrintI(A)4(B)5(C)3(D)62.下列程序段的执行结果为【】。X=0ForK=1To10Step2X=X+KNextKPrintK;X(A)-16(B)-116(C)16(D)11313.下列程序段的执行结果为【】。K=0ForI=1To3A=I^I^KPrintANextI(A)111(B)149(C)000(D)1234.下列程序段的执行结果为【】。N=10ForK=NTo1Step-1X=Sqr(K)X=X-2NextKPrintX-2(A)-3(B)-1(C)1(D)1.162277655.下列程序段的执行结果为【】。X=1Y=1ForI=1To3F=X+YX=YY=FPrintFNextI(A)236(B)222(C)234(D)2356.下列程序段的执行结果为【】。A="ABBACDDCBA"ForI=6To2Step-2X=Mid(A,I,I)Y=Left(A,I)Z=Right(A,I)Z=X&Y&ZNextIPrintZ(A)ABA(B)AABAAB(C)BBABBA(D)ABBABA7.给出下面程序段的输出结果【】。ForX=1.5To5Step1.5PrintXNextX8.给出下面程序段的输出结果【】。ForI=-5To–LoStep-1X=X+IPrintXNextI9.给出下面程序段的输出结果【】。Z="ABCDEFGABCDEFG"ForI=6To2Step-3U=String(I,Z)V=Left(Z,I)W=Mid(Z,I,I)X=Right(Z,I)Y=X+W+V+UNextIPrintU,V,W,X,Y10.给出下面程序段的输出结果【】。ForI=OTo3PrintTab(4*I+1);I;"2"&INextI11.给出下面程序段的输出结果【】。其中,Trim函数用于去除字符串前后的空格。ForI=1To7PrintTab(8-I);String(I,Trim(Str(I)))NextI12.下列程序段的执行结果为【】。A=0:B=1DoA=A+BB=B+1LoopWhileA<10PrintA;B(A)105(B)AB(C)01(D)103013.下列程序段的执行结果为【】。I=4A=5DoI=I+1A=A+2LoopUntilI>=7Print"I=";IPrint"A=";A(A)I=4(B)I=7(C)I=8(D)I=7A=5A=13A=7A=1114.下列程序段的执行结果为【】。N=OJ=1DoUntilN>2N=N+1J=J+N*(N+1)LoopPrintN;J(A)01(B)37(C)321(D)31315.给出下面程序段的输出结果【】。P=OS=0DoP=P+2S=S+PLoopWhileP<11Print"S=";S16.给出下面程序段的输出结果【】。M1=1M2=1DoWhileM2<>6M1=M1*M2M2=M2+1LoopPrint"M1=";M1,"M2=";M217.下列程序段的执行结果为【】。N=0ForI=1To3ForJ=5To1Step-1N=N+1NextJNextIPrintN;J;I(A)1204(B)1504(C)1231(D)153118.下列程序段的执行结果为【】。A=0B=0ForI=-1To–2Step-1ForJ=1To2B=B+1NextJA=A+1NextIPrintA;B(A)24(B)-22(C)42(D)2319.下列程序段的执行结果为【】。K=0ForJ=1To2ForI=1To3K=I+1NextIForI=1To7K=I+1NextINextJPrintK(A)10(B)6(C)11(D)1620.下列程序段的执行结果为【】。ForX=5To1Step-1ForY=1To6-XPrintTab(Y+5);"*";NextyPrintNextX(A)*****(B)*****(C)*(D)***********************************************************21.下列程序段的执行结果为【】。S=0:T=0:U=OForX=1To3ForY=1ToXForZ=YT03S=S+1NextZT=T+1NextYU=U+1NextXPrintS;T;U(A)3614(B)1463(C)1436(D)164322.给出下面程序段的输出结果【】。Fora=1To6PrintTab(7-a);Forb=1To2*a-1Print"*";NextbNexta23.给出下面程序段的输出结果【】。N=1DoFork=NTo5Print"*";NextkPrintN=N+1LoopUntilN>524.给出下面程序段的输出结果【】。ForA=OTo1ForB=1To2ForC=2To3Print(A=OOrB=1)And(C=2AndA=B)OrNot(C=3);NextCNextBNextA25.给出下面程序段的输出结果【】。DimiAsInteger,jAsInteger,kAsIntegerk=0Fori=OTo10Step3Forj=1To10Ifj>5Thenk=k+4:ExitFork=k+1NextjPrintI,kIfi>8ThenExitForNextiPrinti,k二、程序填空1.以下程序用来产生20个(0,99)之间的随机整数,并将其中的偶数打印出来。PrivateSubCommand1_Click()RandomizeForI=1To20X=Int(Rnd*(1))IfX/2=(2)ThenPrintXNextIEndSub2.以下程序用来计算由键盘输入的N个数中正数之和,负数之和,正数的个数,负数的个数。其中用C累加负数之和,IC累加负数的个数,D累加正数之和,ID累明加正数的个数。PrivateSubCommand1_Click()N=lOC=0:IC=0:D=0:ID=OFork=IToNA=Val(InputBox("请输入A"))IfAOThenD=(3):(4)NextkPrint"负数的个数为:",ICPrint"负数的和为:",CPrint"正数的个数为:",IDPrint"正数的和为:",DEndSub3.下面是一个体操评分程序。20位评委，除去一个最高分和一个最低分,计算平均分（设满分为100分）。PrivateSubCommand1_Click()Max=0Min=10ForI=1To20N=Val(InputBox("请输入分数"))If(1)ThenMax=NIf(2)ThenMin=NS=S+NNextIS=(3)P=S/18Print"最高分";Max,"最低分";MinPrint"最后得分:";PEndSub4.搬砖问题:36块砖，36人搬,男的搬4块,女的搬3块,2个小儿抬1块,
要求
对教师党员的评价套管和固井爆破片与爆破装置仓库管理基本要求三甲医院都需要复审吗
1次全部搬完,问需男、女、小儿各多少人。PrivateSubCommand1_click()ForMale=1To9ForFemale=1To12ForBoy=2To36Step2IfBoy+Female+Male=36And(1)ThenPrintMale,Female,BoyEndIfNextBoyNextFemaleNextMaleEndSub5.以下程序用于计算N=1+(1+3)+(1+3+5)+…+(1+3+5+…+39)。PrivateSubCommand1_Click()T=OM=1Sum=0DoT=T+(1)Sum=Sum+(2)M=M+2LoopWhile(3)Print"Sum=";SumEndSub6.以下程序用于计算数学表达式1^2-2^2+3^2-4^2+...+(N-1)^2-N^2。PrivateSubCommand1_Click()N=val(InputBox("请输入大于零的偶数N:"))S=0I=1C=1DoS=S+C*I*IC=(1)I=(2)LoopWhile(3)Print"S=";SEndSub7.以下程序用于求S=1+3+3^2+3^3+…+3^10的值。PrivateSubCommand1_Click()S=(1)T=1ForI=1To10T=(2)S=S+TNextIPrint"S=";SEndSub8.以下程序输入N个
书
关于书的成语关于读书的排比句社区图书漂流公约怎么写关于读书的小报汉书pdf
名,并将书名中含有连续3个字母COM的所有书名显示出来。PrivateSubCommand1_Click()n=InputBox("请输入数量:")Fori=1Tonbookname=InputBox("请输入书名:")l=Len(1)Ifl>=3ThenIf(2)ThenPrintbooknameEndIfNextiEndSub9.以下程序用于在带垂直滚动条的文本框Textl中输出3到100之间的全部素数。PrivateSubCommand1_Click()Text1.Text="ForN=3TolOOK=Int(sqr(N))I=2Flag=ODOWhileI<=(1)AndFlag=0IfNModI=OThenFlag=1ElseI=I+1LoopIf(2)ThenText1.Text=Text1.Text&Str(N)&Chr(13)&Chr(10)EndIfNextNEndSub10.以下程序用来输出20个在开区间(10,87)中的随机整数R,每行输出4个整数。PrivateSubCommand1_Click()ForI=1To20R=(1)PrintR;If(2)ThenPrintNextIEndSub11.以下程序在文本框Text1中输入任一字符串,并按相反的次序显示在文本框Text2中。PrivateSubCommand1_Click()DimNAsString,CASString,DASStringN=Text1.TextM=(1)ForI=MTo1Step–1C=Mid(N,I,1)D=D&(2)NextI(3)=DEndSub12.以下程序用于在单击图片框Picture1时显示图6_1所示的结果。PrivateSubPicture1_Click()Picture1.PrintTab(5);"*"ForI=1To4Picture1.Print(1)NextIForI=3To1Step–1Picture1.Print(2)NextIPicture1.PrintTab(5);"*"EndSub13.以下程序在窗体上打印出如图6_2示的数据。PrivateSubFonm_Click()ForN=1To6PrintTab(20-3*N);ForM=1To2*N-1IfM<=NThen(1)Else(2)PrintANextMPrintNextNEndSub14.单击窗体时输出"斐波那契数列"的前20项。该数列第一项为0,第二项为1,其后每一项的值都是前两项之和。即:0,1,1,2,3,5,8,13,…从题后供选择的
答案
八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案
中选出正确答案,填入以下程序中相应处,构成完整程序。PrivateSubFonm_Click()X1=0X2=1N=0DoWhile(1)PrintX1,X2X1=(2)X2=(3)N=N+1LoopEndSub供选择的答案:(1)(A)N<10(B)N<9(C)N<10(D)N<20(2)(A)X1+X2(B)X2(C)X1+N(D)X2+N(3)(A)X1+X2(B)X2(C)X1+N(D)X2+N15.单击窗体时输出图6_3所示的图形。从题后供选择的答案中选出正确答案,填入以下程序中相应处,构成完整程序。PrivateSubForm_Click()ForN=1To6Print(1)ForM=1To6Print"*";NextMPrint(2)ForM=1To6Print"*";NextMPrintNextNEndSub供选择的答案:(1)(A)Tab(6-N);(B)Tab(6+N);(C)Tab(7-N);(D)Tab(7+N);(2)(A)Tab(12+N);(B)Tab(11+N);(C)Tab(11-N);(D)Tab(12-N);16.单击命令按钮Command1时利用台劳级数展开式求sinx的近似值。展开式为:x-x^3/3!+x^5/5!-…+(-1)^i*x^(2i+1)/(2i+1)!+…(i=0,1,2,...,n)从题后供选择的答案中选出正确答案，填入以下程序中相应处，构成完整程序。（设在文本框Text1中输入的是角度，以上公式中的x为弧度）PrivateSubCommand1_Click()X1=Val(Text1.Text)X=X1*3.1415926/180N=Val(Text2.Text)Y=(1)F=1ForI=1ToN(2)S=1Fork=1To(3)T=T*KS=(4)NextkF=(-1)*FY=Y+F*(5)NextIPrint"sin(";X1;")=";YEndSub供选择的答案:(1)(A)O(B)X(C)1(D)N(2)(A)T=X(B)T=0(C)T=N(D)T=1(3)(A)2*I+1(B)I+1(C)2*I(D)I(4)(A)S*K(B)S*X(C)X*N(D)S*N(5)(A)T/S(B)S*F(C)S/T(D)S/F17.单击命令按钮Command1时利用梯形法求sinx的定积分,区间为[0,2]。从题后供选择的答案中选出正确答案,填入以下程序中相应处,构成完整程序。PrivateSubCommand1_Click()A=0B=2N=30S=0H=(B-A)/NFork=(1)ToNT=(Sin(A+(K-1)*H)+Sin(A+K*H))*H/2S=(2)NextkPrint(3)EndSub供选择的答案:(1)(A)0(B)1(C)N(D)A(2)(A)S+1(B)T(C)T+T(D)S+T(3)(A)"Area=";S(B)T(C)S=S(D)K18.单击命令按钮Command1时利用矩形法求(1+e^x)的定积分,区间为[0,1]。从题后供选择的答案中选出正确答案,填入以下程序中相应处,构成完整程序。PrivateSubCommand1_Click()A=0B=1N=100X=A:H=(B-A)/NF0=(1)S=0ForI=1ToNS1=F0*HS=(2)X=(3)F0=1+Exp(X)NextIPrintSEndSub供选择的答案:E(1)(A)0(B)1+Exp(H)(C)1+Exp(X)(D)H(2)(A)S+1(B)S+S1(C)S+F0(D)S1(3)(A)X+H(B)X+1(C)1+Exp(X)(D)S如有侵权请联系告知删除，感谢你们的配合！精品精品精品
浙公网安备 33021202002483