算法与程序设计

《算法与程序设计》由会员分享，可在线阅读，更多相关《算法与程序设计（11页珍藏版）》请在装配图网上搜索。

1、算法与程序设计信息技术选修模块测试（一）一、选择题1、下列选项中，能作为vb程序变量名的是（）A、whileB、distC、4A123D、a%c2、以下程序段运行后，整型变量max1,min1的值分别是（）a=3b=5max1=（a+b）/2+Abs（a-b）/2min1=（a+b）/2-Abs（a-b）/2A、3，3B、3，5C、5，5D、5，33、以下程序段运行后，整型变量s的值是（）s=1Fori=1to10step3s=s*iNextiPrintsA、55B、280C、3640D、284、将数学表达式转换为vb表达式，下列选项正确的是（）A、1/2gtA2B、1/2g*t2C、1/2g

2、*tA2D、1/2*g*tA25、给定一个四位数的年份，判断它是否为闰年：四年一闰、百年不闰；四百年又闰年份能被4整除但不能被100整除是闰年，或者年份能被400整除也是闰年。例如2004年和2000年都是闰年，2100年不是闰年）下列判断年份y是闰年的表达式正确的是A、ymod4=0orymod1000andymod400=0B、ymod400=0C、ymod4=0Dymod4=0andymod1000orymod400=06、在vb中，下列哪一个选项是正确的赋值语句（）A、5s=80B、s=s+5C、a+b=cD、2018=x7、以下程序运行后，s的值是（）n=0s=0Dowhilesba

3、ndb3的值是（）A、1B、TrueC、FalseD、111、以下程序段执行后，输出结果为（）m=29Ifmmod30thenPrintm&不能被3整除ElsePrintm&能被3整除A、m不能被3整除B、29能被3整除C、29不能被3整除D、m能被3整除12、下面四段程序，哪段程序运行结果如图所示：（）A、forj=1to5B、fori=1to5forj=1to6fori=1to6Print*;Print*NextjNextiPrintPrintNextjNextiC、fori=1to5D、fori=1to5forj=1to6forj=1to6Print*;Print*NextjNextiP

4、rintPrintNextiNextj13、在VB中下列属于字符串常量的是（）A、2018B、cntC、D、visualbasic14、已知赋值语句s=“GoodBye!”，则下列定义变量s正确的是（）A、DimsasLongB、DimsasIntegerC、DimsasDoubleD、DimsasString15、下列序列能釆用二分查找法查找某一元素的是（）A、1471513B、151412723C、6912142325D、342517910316、在VB中，用变量code存储学生的借阅卡编码（code=NO），则变量code的数据类型应定义为（）A、DoubleB、StringC、Inte

5、gerD、Single17、在VB中，lnt（x）函数的功能是返回不大于x的最大整数，设a=3,b=4,c=5，则下列表达式的运算结果中值最大的是（）A、aA2+bA2-cA2B、Sqr（c）C、lnt（2*a-c/b）D、Abs（a-b）18、VisualBasic程序设计语言属于（）A、机器语言B、自然语言C、汇编语言D、高级语言二、分析题19、以下是计算s=1+6+11+101的程序代码，请完善该程序Dims,iasIntegers=0Fori=1to101steps=NextiPrints20、阅读程序，写出运行结果DimnasIntegern=Val(Inputbox(“n=”)Do

6、whilenmod2=0N=n2LoopPrintn程序运行时，输入24,输出n的值是(提示：整除运算如172=8;mod取余数运算如：17mod2=1)21、以下是计算s=12+22+32+1002的程序代码，请补全程序Dimsaslong;dimiasintegers=0fori=1to100s=Prints22、以下是解决s=1*2*3*4*10的程序代码，请补全程序：DimsaslongDimiasIntegers=Fori=1to10s=NextiPrints23、阅读程序,写出运行结果Dima(10)asIntegerDimiasIntegera(1)=1a(2)=1Fori=3t

7、o6a(i)=a(i-1)+a(i-2)nextiprinta(6)上述程序运行后，输出a(6)的值是24、阅读程序，写出运行结果Dimi,x,yasIntegery=30Fori=1to3x=val(inputbox(x=)ifyxtheny=xendifnextiprinty程序运行后：依次输入：368751运行后输出结果是25、勾股数是指满足条件a2+b2=c2的自然数，求出100以内的满足a【算法分析】a的取值范围1,100;b的取值范围1,100；c的取值范围1,100；【参考程序】Dima,b,casIntegerFora=1To100Forb=1To100Forc=1To100I

8、fThenPrinta;b;cabc之间以分号分隔EndifNextcNextbNexta根据上述回答下列问题：1、本题釆用的算法是(填写：解析法/枚举法/排序法/递归法)2、程序代码中空白处应填写的条件是(填写字母：A/B/C/D)A、abanda2+b2=c2B、abora2+b2=c2C、abandaA2+bA2=cA2D、a0r=s=r&sn=loop=s1、上述算法描述釆用的方法是：（填：自然语言/伪代码/流程图）2、在参考程序处应填入（填写字母：A/B/C/D）A、nmod2B、n2C、2modnD、n/23、在参考程序处应填入（填写字母：A/B/C/D）A、nmod2B、n2C、

9、2modnD、n/227、算法与程序设计：判断车牌的单双号【背景知识】为了保障空气质量，减少雾霾，某市决定当空气污染严重时，实行汽车单双号限行，违反规定的车辆将予以处罚。如何让高清摄像头自动判断车牌的单双号，交警犯了愁，他需要编程高手的你帮忙，完善下面的程序。（提示：1）所有车牌号中都含有数字,并且车牌号的长度都(1) 输入AD2367(2)输入A88888A(3)输入A8963C输出：单号输出：双号输出：单号自然语言流程图第1步：输入车牌号；第2步：取车牌号的最后一位X；第3步：判断x是否为数字，如果是转第4步；如果不是，则依次取倒数第二、三位判断，直到找到数字为止；第4步：判断x是奇数还是

10、偶数，然后输出相应的结果。请根据上述算法描述补全代码DimnasIntegerDimsasString定义s为字符串类型DimxasStrings=lnputBox(s=”,s)将输入的车牌号赋值给sn=6车牌号的长度为6x=Mid(s,n,1)取车牌号s的第n位DoWhilex”9”x不是数字字符，则取x的前一位x=mid(s,n,1)取车牌号s的第n位LooplfThenPrint“双号”ElsePrint“单号”Endlf(提示：mid(s,m,n)的功能：从字符串s的第m位开始，截取长度为n为子串。例如：mid(“A8963C”,5,1)的返回值是”3”。)请完善上述程序：(共8分，每

11、空4分)1、根据题意，程序中空白处应填写：。2、根据题意，程序中空白处应填写：(填写字母：A/B/C/D)。A.Val(x)2=0B. Val(x)mod2=1C. Val(x)mod2=0D. Val(x)mod2028、阅读下面问题：GDP增长问题某省2016年的GDP是万亿元，如果每年按7%的比例增长，问经过多少年该省的GDP超过15万亿元【算法分析】假设n年后此省的GDP超过15万亿元，根据题意得出数学关系式，*(1+7%)n15。求最小的n。【参考程序】dimpassinglep用于记录GDP的值dimrassingler用于记录GDP的年增长比例dimnasintegern用于统计

12、年数p=r=n=0dowhilep=p*(1+r)n=n+1loopprintn&年后，GDP的值超过15万亿元。”根据上述回答下列问题：(每空3分共6分)1、本题采用的算法是(填写：解析法/枚举法/排序法/递归法)2、写出程序中空白处表达式。29、要将一张100元的钞票，换成等值的5元、2元、1元一张的零钞，每次换成50张，其中一种换法如下：5元：3张；2元：38张；1元：9张。求出所有的换钱方案。算法设计x表示5元的张数：1SXS20;y表示5元的张数1SyS50;z表示1元的张数：1z100o参考程序Dimx,y,zAsIntegerForx=1To20Fory=1To50Forz=1T

13、o100IfThenPrintx;y;zEndIfNextzNextyNextx根据上述回答下列问题：(8分，每空4分)1、本题釆用的算法是(填：解析法枚举法/排序法/递归法)。2、程序代码中空白处应填写的条件是(填写字母：A/B/C/D)。+2y+z=100orx+y+z=50+2y+z=100Andx+y+z=50*x+2*y+z=100orx+y+z=50*x+2*y+z=100Andx+y+z=5030、算法与程序设计：出租车计费问题某市出租车收费标准如下：(1) 3公里内(含3公里)，收费8元；(2) 超过3公里但未超过6公里部分，按元/公里收费；(3) 超过6公里部分，按元/公里收费。根据以上标准，输入出租车行驶的公里数，请计算顾客付费多少元【算法分析】假设总费用为p,则可以分段计算p=8(s6)【参考代码】DimsasSingleDimpasSingles=Val(inputbox(“s=”)Ifs6Thenp=*(s-6)+*3+8EndIfPrintp根据上述回答下列问题：(8分,每空4分)1、本题釆用的算法是(解析法/查找法/枚举法/排序法)。2、程序代码中空白处应填写的条件是(填写字母：A/B/C/D)A.3B.3s3ands3ors=6