2018信息技术考试题算法

1、2018第一套（算法部分）23、下列选项中，关于算法的描述正确的是（）A算法只能用自然语言描述B算法必须在有限步骤内实现C算法就是一种高级程序设计语言D算法可以有0个或多个输入，但只能有一个输出24、 下列选项中，能作为 VB程序变量名的是（）A whileB 4A123C a%cD dist25、以下程序段执行后，输出结果为（）。m=29If m Mod 3 0 The nPrint m &“不能被3整除”ElsePrint m & “能被3整除”End IfA n能被3整除B n不能被3整除C 29不能被3整除D 29能被3整除26、 下列VB表达式中，值为字符串类型的是()(1) Abs

2、(x) ” 123+45 Sqr(x) (5)A (1) (3) (5)B(5)C (2)(4)(5)D (1) (2)(3)27、在VB中，下列哪个选项是正确的赋值语句()A 2018二xB 5s=80C a+b=cD s=s+528、阅读程序，写出运行结果Dim n As In tegern=Val(lnputBox( “n二”)Do While n Mod 2=0n=n2LoopPr int n程序运行时，输入24,输出n的值是：29、分析并完善程序以下是计算s=1+6+11 + 101的程序代码，请完善程序。Dim s As In tegerDim i As In tegers=0Fo

3、r i=1 To 101 Steps=Next iPrint s30、算法设计与程序实现某市出租车收费标准如下：（1）3公里内（含3公里），收费8元；（2）超过3公里但未超过6公里部分，按元/公里收费；（3）超过6公里部分，按元/公里收费。根据以上标准，输入出租车行驶的公里数，请计算顾客需付费多少元 【参考代码】Dim s As Si ngleDim p As Si ngles=Val（lnputBox（“s=”）If s6 Thenp=*(s-6)+*3+8End IfPr int p根据上述回答下列问题：1、 本题采用的算法是 (填写：解析法/查找法/枚举法/ 排序法)。2、 程序代码中空

4、白处应填写的条件是 (填写字母：A/B/C/D).A 33 And s3 Or sb And b3的值是（）。A 1B -1C FalseD True24、 以下程序段运行后，x和st的值分别是（）。Dim x As In tegerDim st As Stri ngx=123+678st= ” 123” +” 678”A 123678“ 123678”B 801“123678”C 123678“ 801”D 801“ 801”25、用流程图表示条件“AE”是否成立，要用到以下哪个图形（）A平行四边形B 菱形C 圆角矩形直角矩形D26、 下列选项中，能作为 VB程序变量名的是（）A dimB

5、3abC a*bD xy27、 以下程序段运行后，s的值是（）。n=0s=0Do While s=10n=n+3s=s+nloopA 30B 18C 0D 328、阅读程序，写出运行结果Dim a（10） AsIn tegerDim iAs In tegera(1)=1a(2)=1Fori=3 To 6a(1)=a(i-1)+a(i-2)Next iPrint a(6)上述程序运行后，输出 a(6)的值是。(6分)29、分析并完善程序以下是计算s=1*2*3*10的程序代码，请补全程序。(6)Dim s As LongDim i As In tegers=For i=1 To 10s=Next

6、 iPrint s30、算法设计与程序实现勾股数求出100以内满足ab的所有勾股数。【参考程序】Dim a As In tegerDim b As In tegerDim c As In tegerFor a=1 To 100For b=1 To 100For c=1 To 100IfThenPrint a;b;cEnd IfNext cNext bNext a1、本题采用的算法是 （填写：解析法/枚举法/排序法/递归法）。2、程序代码中空白处应填写的条件是 （填写字母:A/B/C/D）.AabAnd2 . 2 2 a +b =cBabOr2 2 2a +b=cCabAnd aA2+bA2=c

7、A2DabOraA2+bA2=cA22018第三套（算法部分）23、下列选项中，能作为 VB程序变量名的是（）A、s+1B、3stuC、trueD、si1所示（24、下列哪个程序段的运行结果如图)*图1A、for i=1 to5Forj=1 to 6Print ” * ”n extjprintn ext iB、for i=1 to5fori=1 to 6printn ext iprintn extiC、for i=1 to5Forj=1 to 6Print ” * ”n ext jprintn ext jD、for i=1 to5Forj=1 to 6Print ” * ”n ext jpri

8、ntn ext i25、在VB中，Int(x)函数的功能是返回不大于 x的最大整数，设a=3 ,b=4, c=5,则下列表达式的运算结果中值最大的是()A、Sqr(c)B、Abs(a-b)C、In t(2*a-c/b)D 、aA2+bA2-cA 226、在VB中，用变量code存储学生的借阅卡编码(code二” N020170502 )，则变量code 的数据类型应定义为( )。A In tegerB DoubleC Stri ngD Si ngle27、Visual Basic 程序设计语言属于()。A、汇编语言B、自然语言C、高级语言D机器语言28、阅读程序，写出运行结果Dim i As

9、In tegerDim x As In tegerDim y As In tege ry=30For i=1 To 3If y xThe ny=xEnd IfNext iPrint y程序运行后，依次输入：36 87 51运行后输出结果是 。（6分）29、算法设计与程序实现（拖动滚动条浏览全部试题内容，点击右侧图标可切换输入法）GDP增长问题某省2016年的GDP是万亿元，如果每年按7%勺比例增长，问多 少年以后此省的GDP超过15万亿【算法分析】假设n年后此省的GDP超过15万亿元，根据题意得出数学关 系式求最小的n。【参考程序】Dim p As Si nglep用于记录GDP勺值Dim r

10、 As Si ngler用于记录GD啲年增长比例Dim n As In tegern用于统计年数P=r=n=0Do Whilep=p*（1+r）n=n+1LoopPrintn &”年后，GDP勺值超过15万亿元。”根据上述回答下列问题：（共6分，每空3分）1、本题采用的算法是 （填写：解析法/枚举法/排序法/递归法）。2、写出程序中空白处表达式30、算法设计与程序实现判断车牌的单双号【背景知识】为了保障空气质量，减少雾霾，某市决定当空气污染严重时， 实行汽车单双号限行，违反规定的车辆将予以处罚。如何让高清摄像头自动判断车牌的单双号，交警犯了愁，他需要 编程高手的你帮忙，完善下面的程序。（提示：

11、（1）所有车牌号中 都含有数字，并且车牌号的长度都是 6;( 2)以车牌中最后一位阿 拉伯数字的奇、偶来决定单双号。)(1)输入：AD2367(2)输入：A8888A(3)输入：A8963C输出：单号输出：双号输出：单号【算法描述】自然语言流程图第1步：输入车牌号第2步：取车牌号的最后一位X；开始第3步：判断x是否为数字，如果是，转第4步；如果不是，则依次取得倒数第二、三位判断，知道找到数字为止；第4步:判断x是奇数还是偶数，然后输出相应的结果。请根据上述算法描述补全代码Dim n As In tegerDim s As Stri ng定义s为字符串类型Dim x As Stri ng s=l

12、nputBox（ “s二” ,s）将输入的车牌号赋值给sn=6车牌号的长度为6x=Mid(s, n,1)取车牌号s的第n位Do While x ” 9”x不是数字字符，则取x的前一位x=Mid(s, n,1)取车牌号s的第n位LoopIf thenPrint “双号”ElsePrint “单号”End If(提示：Mid(s,m,n)的功能：从字符创S的第m位开始，截取长度为n的子串。例如：Mid( “ A8963C ,5,1)的返回值是“ 3”。)请完善上述程序：(共8分，每空4分)1、 根据题意，程序中空白处应填写:2、根据题意，程序中空白处应填写： (填写字母:A/B/C/D )。A V

13、al(x) 2= 0B、Val(x)Mod 2 = 1C Val(x) Mod 2=0D Val(x) Mod 2 02018第四套（算法部分）23、 一下程序段运行后，y的值是（）。x=3If x3The ny=2*xElsey=3*x+1end ifA 25B 26C 10D 524、某晚会的猜数字游戏中，有100张写有1100之间整数的卡片， 主持人随机抽取一张卡片，让大家竞猜。有一种方案是：第一次猜50,若提示低了，则第二次猜75,若提示还是低了，则第三次猜87, 依次类推；若第一次猜50,提示高了，则第二次猜25,若提示还是 高了，则第三次猜12，依次类推；。这种每次缩小一半查找范

14、围而达到迅速确定目标的算法称为（）。A顺序查找法B排序法C解析法D二分查找法25、在平面直角坐标系中，设点 A (x1,y1 )、点B (x2, y2),则 AB两点之间的距离为：VB表达式是()。A Sqr(x1-x2A2+(y1-y2)A2)B Sqr(x1-x2)A2+(y1-y2)A2C Sqr(x1-x2)2+(y1-y2) 2)D Sqr(x1-x2)2+(y1-y2) 226、 下列语句正确定义了一个单精度实型变量x的是()。ADim x As Sin gleB其它三项都不对CDim x As In tegerDDim x As Stri ng27、 在VB中表示“ x属于区间a

15、,b) ”的正确表达式是()。Aa=x And xbBa=x Or xbC a三 x And xbD a=xb28、阅读程序，写出运行结果Dim s As In tegerDim i As In tegers=0For i=1 To 10 Step 4Print“ #”；s=s+iNext iPrint s上述程序运行后，输出“ #”的个数是;输出s的值是。（共6分，每空3分）29、阅读程序，写出运行结果Dim a As In tegerDim b As In tegerDim r As In tegera=98b=63r=a Mod bDo While r 0a=bb=rr=a Mod bL

16、oopPrint b程序运行后，输出结果为： 。 （ 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.【参考程序】Dim x Asin tegerDim y Asin tegerDim z As in tegerFor x=1 To20For y=1To 50Forz=1 To 100ifThenPri

17、nt x;y;zx y z之间以分号分隔End IfNextzNext yNext x根据上述回答下列问题：（8分，每空4分）1、 本题采用的算法是 （填：解析法/枚举法/排序 法/递归法）。2、 程序代码中空白处应填写的条件是 （填写字母：A/B/C/D ）。A 5x + 2y + z=100Or x+ y + z = 50B 5x + 2y + z=100And x + y + z = 50C 5*x + 2*y + z=100 Or x + y + z = 502018第五套（算法部分）23、在VB中，下列属于字符串常量的是（）Ac ntC2018D “ Visual Basic ”24

18、、将数学表达式转化为 VB表达式，下列选项正确的是（）25、以10下程序段运行后，整型变量s的值是（）s=1Fori=1 To 10 Step 3s=s*iNext iPrint sA 55B 3640C 28D 28026、以下程序段运行后，整型变量max1, min1的值分别是（）a=3b=5max1=(a+b)/2+Abs(a-b)/2min 1=(a+b)/2-Abs(a-b)/227、给定一个四位数的年份，判断它是否为闰年：四年一闰、百年不闰；四百年又闰(年份能被4整除但不能被100整除是闰年，或者年 份能被400整除也是闰年。例如2004年和2000年都是闰年，2100 年不是闰年)。下列判断年份。下列判断年份y是闰年的表达式正确 的是()。A yMod 4=0 Or y Mod 1000 And y Mod 400=0B yMod 4=0C yMod 4=0 And y Mod 100 0