算法与程序设计

算法与程序设计信息技术选修模块测试（一）一、选择题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*tA2D、1/2*g*tA25、给定一个四位数的年份，判断它是否为闰年：四年一闰、百年不闰；四百年又闰年份能被4整除但不能被100整除是闰年，或者年份能被400整除也是闰年。例如2004年和2000年都是闰年，2100年不是闰年）下列判断年份y是闰年的表达式正确的是A、ymod4=0orymod100<>0andymod400=0B、ymod400=0C、ymod4=0Dymod4=0andymod100<>0orymod400=06、在vb中，下列哪一个选项是正确的赋值语句（）A、5s=80B、s=s+5C、a+b=cD、2018=x7、以下程序运行后，s的值是（）n=0s=0Dowhiles<=10n=n+3s=s+nLoopPrintsA、18B、30C、3D、08以下程序段运行后，x和st的值分别是（）DimxasIntegerDimstasStringx=123+678st=123+678A、123678123678B、801123678C、801801D、1236788019“AB、C、D、10、设a=2,b=5，在vb中，表达式a>bandb>3的值是（）A、1B、TrueC、FalseD、111、以下程序段执行后，输出结果为（）m=29Ifmmod3<>0thenPrintm&不能被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*NextjNextiPrintPrintNextiNextj13、在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、IntegerD、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=”)Dowhilenmod2=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=3to6a(i)=a(i-1)+a(i-2)nextiprinta(6)上述程序运行后，输出a(6)的值是24、阅读程序，写出运行结果Dimi,x,yasIntegery=30Fori=1to3x=val(inputbox(x=)ify<xtheny=xendifnextiprinty程序运行后：依次输入：368751运行后输出结果是25、勾股数是指满足条件a2+b2=c2的自然数，求出100以内的满足a【算法分析】a的取值范围1,100;b的取值范围1,100；c的取值范围1,100；【参考程序】Dima,b,casIntegerFora=1To100Forb=1To100Forc=1To100IfThenPrinta;b;cabc之间以分号分隔EndifNextcNextbNexta根据上述回答下列问题：1、本题釆用的算法是(填写：解析法/枚举法/排序法/递归法)2、程序代码中空白处应填写的条件是(填写字母：A/B/C/D)A、a<banda2+b2=c2B、a<bora2+b2=c2C、a<bandaA2+bA2=cA2D、a<boraA2+bA2=cA226、十进制数转换为二进制整数釆用“除2取余”法第1步：输入一个十进制正整数n;第2步：将n除以2,记录余数r;第3步：将r追加到字符串s的左边（s用于记录转换后的二进制数，初值为空）第4步：将n除以2的商赋给n;第5步：若n为0,则转到第6步；若n不为0,转到第2步；第6步：输出s（即逆序输出每一次的余数）【参考程序】Dimsasstring记录转换后的二进制数DimnasInteger记录十进制正整数nDimrasInteger记录n除以2的余数s=s记录转换后的二进制数，初值为空n=ValDowhilen>0r=s=r&sn=loop=s1、上述算法描述釆用的方法是：（填：自然语言/伪代码/流程图）2、在参考程序处应填入（填写字母：A/B/C/D）A、nmod2B、n2C、2modnD、n/23、在参考程序处应填入（填写字母：A/B/C/D）A、nmod2B、n2C、2modnD、n/227、算法与程序设计：判断车牌的单双号【背景知识】为了保障空气质量，减少雾霾，某市决定当空气污染严重时，实行汽车单双号限行，违反规定的车辆将予以处罚。如何让高清摄像头自动判断车牌的单双号，交警犯了愁，他需要编程高手的你帮忙，完善下面的程序。（提示：1）所有车牌号中都含有数字,并且车牌号的长度都(1) 输入AD2367(2)输入A88888A(3)输入A8963C输出：单号输出：双号输出：单号自然语言流程图第1步：输入车牌号；第2步：取车牌号的最后一位X；第3步：判断x是否为数字，如果是转第4步；如果不是，则依次取倒数第二、三位判断，直到找到数字为止；第4步：判断x是奇数还是偶数，然后输出相应的结果。请根据上述算法描述补全代码DimnasIntegerDimsasString'定义s为字符串类型DimxasStrings=lnputBox("s=”,s)将输入的车牌号赋值给sn=6'车牌号的长度为6x=Mid(s,n,1)取车牌号s的第n位DoWhilex<”0”orx>”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分，每空4分)1、根据题意，程序中空白处应填写：。2、根据题意，程序中空白处应填写：(填写字母：A/B/C/D)。A.Val(x)2=0B. Val(x)mod2=1C. Val(x)mod2=0D. Val(x)mod2<>028、阅读下面问题：GDP增长问题某省2016年的GDP是万亿元，如果每年按7%的比例增长，问经过多少年该省的GDP超过15万亿元【算法分析】假设n年后此省的GDP超过15万亿元，根据题意得出数学关系式，*(1+7%)n>15。求最小的n。【参考程序】dimpassingle'p用于记录GDP的值dimrassingle'r用于记录GDP的年增长比例dimnasinteger'n用于统计年数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元的张数：1<z<100o参考程序Dimx,y,zAsIntegerForx=1To20Fory=1To50Forz=1To100IfThenPrintx;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(s<3)p=*(s-3)+8(3p=*(s-6)+*3+8(s>6)【参考代码】DimsasSingleDimpasSingles=Val(inputbox(“s=”)Ifs<=3Thenp=8EndIfIfThenp=*(s-3)+8EndIfIfs>6Thenp=*(s-6)+*3+8EndIfPrintp根据上述回答下列问题：(8分,每空4分)1、本题釆用的算法是(解析法/查找法/枚举法/排序法)。2、程序代码中空白处应填写的条件是(填写字母：A/B/C/D)A.3B.3<s<6>3ands<=6>3ors<=6