搜索
第一套23、下列选项中，关于算法的描述正确的是（）。A算法只能用自然语言描述B算法必须在有限步骤内实现C算法就是一种高级程序设计语言D算法可以有0个或多个输入，但只能有一个输出24、下列选项中，能作为VB程序变量名的是（）。AwhileB4A123Ca%cDdist25、以下程序段执行后，输出结果为（）。m=29IfmMod30ThenPrintm&“不能被3整除”ElsePrintm&“能被3整除”EndIfAn能被3整除Bn不能被3整除C29不能被3整除D29能被3整除26、下列VB表达式中，值为字符串类型的是（）。(1)Abs(x)(2)Text1.Text(3)”123+45”(4)Sqr(x)(5)Labell.CaptionA(1)(3)(5)B(2)(3)(5)C(2)(4)(5)D(1)(2)(3)27、在VB中，下列哪个选项是正确的赋值语句？（）A2018=xB5s=80Ca+b=cDs=s+528、阅读程序，写出运行结果DimnAsIntegern=Val(InputBox(“n=”))DoWhilenMod2=0n=n\2LoopPrintn程序运行时，输入24，输出n的值是：______29、分析并完善程序以下是计算s=1+6+11+…+101的程序代码，请完善程序。DimsAsIntegerDimiAsIntegers=0Fori=1To101Step__________s=____________NextiPrints30、算法设计与程序实现某市出租车收费标准如下：（1）3公里内（含3公里），收费8元；（2）超过3公里但未超过6公里部分，按1.5元/公里收费；（3）超过6公里部分，按2.25元/公里收费。根据以上标准，输入出租车行驶的公里数，请计算顾客需付费多少元？【参考代码】DimsAsSingleDimpAsSingles=Val(InputBox(“s=”))Ifs=3Thenp=8EndIfIf______________Thenp=1.5*(s-3)+8EndIfIfs6Thenp=2.25*(s-6)+1.5*3+8EndIfPrintp根据上述回答下列问题：1、本题采用的算法是__________（填写：解析法/查找法/枚举法/排序法）。2、程序代码中空白处应填写的条件是____________（填写字母：A/B/C/D）.A3s≦6B3≦s≦6Cs3Ands=6Ds3Ors=6第二套23、设a=2，b=5，在VB中，表达式abAndb3的值是（）。A1B-1CFalseDTrue24、以下程序段运行后，x和st的值分别是（）。DimxAsIntegerDimstAsStringx=123+678st=”123”+”678”A123678“123678”B801“123678”C123678“801”D801“801”25、用流程图表示条件“AB”是否成立，要用到以下哪个图形？（）A平行四边形B菱形C圆角矩形D直角矩形26、下列选项中，能作为VB程序变量名的是（）。AdimB3abCa*bDxy27、以下程序段运行后，s的值是（）。n=0s=0DoWhiles=10n=n+3s=s+nloopA30B18C0D328、阅读程序，写出运行结果Dima(10)AsIntegerDimiAsIntegera(1)=1a(2)=1Fori=3To6a(i)=a(i-1)+a(i-2)NextiPrinta(6)上述程序运行后，输出a(6)的值是_________________________。（6分）29、分析并完善程序以下是计算s=1*2*3*…*10的程序代码，请补全程序。（6）DimsAsLongDimiAsIntegers=__________Fori=1To10s=__________NextiPrints30、算法设计与程序实现勾股数求出100以内满足ab的所有勾股数。【参考程序】DimaAsIntegerDimbAsIntegerDimcAsIntegerFora=1To100Forb=1To100Forc=1To100If________ThenPrinta;b;cEndIfNextcNextbNexta1、本题采用的算法是__________（填写：解析法/枚举法/排序法/递归法）。2、程序代码中空白处应填写的条件是________（填写字母：A/B/C/D）.AabAnda2+b2=c2BabOra2+b2=c2CabAnda^2+b^2=c^2DabOra^2+b^2=c^2第三套23、下列选项中，能作为VB程序变量名的是（）。A、s+1B、3stuC、trueD、s124、下列哪个程序段的运行结果如图1所示？（）************************图1A、fori=1to5Forj=1to6Print”*”nextjprintnextiB、fori=1to5fori=1to6print”*”nextiprintnextiC、fori=1to5Forj=1to6Print”*”nextjprintnextjD、fori=1to5Forj=1to6Print”*”nextjprintnexti25、在VB中，Int(x)函数的功能是返回不大于x的最大整数，设a=3，b=4，c=5，则下列表达式的运算结果中值最大的是（）。A、Sqr(c)B、Abs(a-b)C、Int(2*a-c/b)D、a^2+b^2-c^226、在VB中，用变量code存储学生的借阅卡编码（code=”N020170502”），则变量code的数据类型应定义为（）。AIntegerBDoubleCStringDSingle27、VisualBasic程序设计语言属于（）。A、汇编语言B、自然语言C、高级语言D、机器语言28、阅读程序，写出运行结果DimiAsIntegerDimxAsIntegerDimyAsIntegery=30Fori=1To3x=Val(InputBox(“x=”))IfyxTheny=xEndIfNextiPrinty程序运行后，依次输入：368751运行后输出结果是_________________。（6分）29、算法设计与程序实现（拖动滚动条浏览全部试题内容，点击右侧图标可切换输入法）GDP增长问题某省2016年的GDP是6.7万亿元，如果每年按7%的比例增长，问多少年以后此省的GDP超过15万亿？【算法分析】假设n年后此省的GDP超过15万亿元，根据题意得出数学关系式？求最小的n。【参考程序】DimpAsSingle’p用于记录GDP的值DimrAsSingle’r用于记录GDP的年增长比例DimnAsInteger’n用于统计年数p=6.7r=0.07n=0DoWhile_________p=p*(1+r)n=n+1LoopPrintn&”年后，GDP的值超过15万亿元。”根据上述回答下列问题：（共6分，每空3分）1、本题采用的算法是______________（填写：解析法/枚举法/排序法/递归法）。2、写出程序中空白处表达式_______________________________。30、算法设计与程序实现判断车牌的单双号【背景知识】为了保障空气质量，减少雾霾，某市决定当空气污染严重时，实行汽车单双号限行，违反规定的车辆将予以处罚。如何让高清摄像头自动判断车牌的单双号，交警犯了愁，他需要编程高手的你帮忙，完善下面的程序。（提示：（1）所有车牌号中都含有数字，并且车牌号的长度都是6；（2）以车牌中最后一位阿拉伯数字的奇、偶来决定单双号。）（1）输入：AD2367（2）输入：A8888A(3)输入：A8963C输出：单号输出：双号输出：单号【算法描述】自然语言流程图第1步：输入车牌号第2步：取车牌号的最后一位x；第3步：判断x是否为数字，如果是，转第4步；如果不是，则依次取得倒数第二、三……位判断，知道找到数字为止；第4步：判断x是奇数还是偶数，然后输出相应的结果。开始请根据上述算法描述补全代码DimnAsIntegerDimsAsString’定义s为字符串类型DimxAsStrings=InputBox(“s=”,s)‘将输入的车牌号赋值给sn=6‘车牌号的长度为6x=Mid(s,n,1)‘取车牌号s的第n位DoWhilex”0”Orx”9”‘x不是数字字符，则取x的前一位_______①_______x=Mid(s,n,1)‘取车牌号s的第n位LoopIf_______②_______thenPrint“双号”ElsePrint“单号”EndIf(提示：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)Mod20第四套23、一下程序段运行后，y的值是（）。x=3Ifx3Theny=2*xElsey=3*x+1endifA25B26C10D524、某晚会的猜数字游戏中，有100张写有1~100之间整数的卡片，主持人随机抽取一张卡片，让大家竞猜。有一种方案是：第一次猜50，若提示低了，则第二次猜75，若提示还是低了，则第三次猜87，依次类推；若第一次猜50，提示高了，则第二次猜25，若提示还是高了，则第三次猜12，依次类推；……。这种每次缩小一半查找范围而达到迅速确定目标的算法称为（）。A顺序查找法B排序法C解析法D二分查找法25、在平面直角坐标系中，设点A（x1,y1）、点B（x2，y2），则AB两点之间的距离为：VB表达式是（）。ASqr((x1-x2^2+(y1-y2)^2)BSqr[(x1-x2)^2+(y1-y2)^2]CSqr((x1-x2)2+(y1-y2)2)DSqr[(x1-x2)2+(y1-y2)2]26、下列语句正确定义了一个单精度实型变量x的是（）。ADimxAsSingleB其它三项都不对CDimxAsIntegerDDimxAsString27、在VB中表示“x属于区间[a,b)”的正确表达式是（）。Aa=xAndxbBa=xOrxbCa≦xAndxbDa=xb28、阅读程序，写出运行结果DimsAsIntegerDimiAsIntegers=0Fori=1To10Step4Print“#”;s=s+iNextiPrints上述程序运行后，输出“#”的个数是__________；输出s的值是________。（共6分，每空3分）29、阅读程序，写出运行结果DimaAsIntegerDimbAsIntegerDimrAsIntegera=98b=63r=aModbDoWhiler0a=bb=rr=aModbLoopPrintb程序运行后，输出结果为：___________________。（6分）30、算法设计与程序实现拖动滚动条浏览全部试题内容，点击右侧图标可切换输入法换钱问题要将一张100元的钞票，换成等值的5元、2元、1元一张的钞票共50张。其中一种换法如下：5元：3张2元：38张1元：9张求出所有的换钱方案。【算法设计】x表示5元的张数：1≦x≦20；y表示2元的张数：1≦y≦50；z表示1元的张数：1≦z≦100.【参考程序】DimxAsIntegerDimyAsIntegerDimzAsIntegerForx=1To20Fory=1To50Forz=1To100If______________ThenPrintx;y;z’xyz之间以分号分隔EndIfNextzNextyNextx根据上述回答下列问题：（8分，每空4分）1、本题采用的算法是_____