《2017年12月山东高中信息技术学业水平考试算法部分（共五套）》由会员分享，可在线阅读，更多相关《2017年12月山东高中信息技术学业水平考试算法部分（共五套）（13页珍藏版）》请在金锄头文库上搜索。
1、第一套23、下列选项中，关于算法的描述正确的是（ ）。 A算法只能用自然语言描述 B算法必须在有限步骤内实现 C 算法就是一种高级程序设计语言 D算法可以有0个或多个输入，但只能有一个输出 24、下列选项中，能作为VB程序变量名的是（ ）。 A while B 4A123 C a%c D dist 25、以下程序段执行后，输出结果为（ ）。 m=29 If m Mod 3 0 Then Print m & “不能被3整除” Else Print m & “能被3整除” End If A n能被3整除 B n不能被3整除 C 29不能被3整除 D 29能被3整除26、下列VB表达式中，值为字符串
2、类型的是（ ）。 (1) Abs(x) (2) Text1.Text (3)”123+45” (4) Sqr(x) (5) Labell.Caption A (1)(3)(5) B (2)(3)(5) C (2)(4)(5) D (1)(2)(3) 27、在VB中，下列哪个选项是正确的赋值语句？（ ）A 2018=xB 5s=80 C a+b=cD s=s+528、阅读程序，写出运行结果 Dim n As Integer n=Val(InputBox(“n=”) Do While n Mod 2=0 n=n2 Loop Print n程序运行时，输入24，输出n的值是：_29、分析并完善程序
3、以下是计算s=1+6+11+101的程序代码，请完善程序。 Dim s As Integer Dim i As Integer s=0 For i=1 To 101 Step_ s=_ Next i Print s30、算法设计与程序实现 某市出租车收费标准如下： （1）3公里内（含3公里），收费8元； （2）超过3公里但未超过6公里部分，按1.5元/公里收费； （3）超过6公里部分，按2.25元/公里收费。 根据以上标准，输入出租车行驶的公里数，请计算顾客需付费多少元？ 【参考代码】 Dim s As Single Dim p As Single s=Val(InputBox(“s=”) I
4、f s6 Then p=2.25*(s-6)+1.5*3+8 End If Print p 根据上述回答下列问题：1、 本题采用的算法是_（填写：解析法/查找法/枚举法/排序法）。2、 程序代码中空白处应填写的条件是_（填写字母：A/B/C/D）.A 33 And s3 Or sb And b3的值是（）。A 1 B -1 C False D True24、以下程序段运行后，x和st的值分别是（）。Dim x AsIntegerDim st AsString x=123+678 st=”123”+”678”A123678“123678” B801“123678” C123678“801” D8
5、01“801”25、用流程图表示条件“AB”是否成立，要用到以下哪个图形？（）A 平行四边形 B 菱形 C 圆角矩形 D直角矩形26、下列选项中，能作为VB程序变量名的是（）。Adim B 3ab C a*b D xy27、以下程序段运行后，s的值是（）。n=0s=0DoWhile s=10n=n+3s=s+nloopA 30 B 18 C 0 D 328、阅读程序，写出运行结果Dim a(10) As IntegerDim iAs Integera(1)=1a(2)=1Fori=3 To 6 a(i)=a(i-1)+a(i-2)Next iPrint a(6)上述程序运行后，输出a(6)的值
6、是_。（6分）29、分析并完善程序以下是计算s=1*2*3*10的程序代码，请补全程序。（6） Dim s As Long Dim i As Integer s=_ For i=1 To 10 s=_ Next i Print s30、算法设计与程序实现勾股数求出100以内满足ab的所有勾股数。【参考程序】Dim a As IntegerDim b As IntegerDim c As IntegerFor a=1 To 100For b=1 To 100 For c=1 To 100 If _Then Print a;b;c End If Next cNext bNext a1、本题采用的算
7、法是_（填写：解析法/ 枚举法/排序法/递归法）。2、程序代码中空白处应填写的条件是_（填写字母：A/B/C/D）.A ab And a2+b2=c2B ab Or a2+b2=c2C ab And a2+b2=c2D ab Ora2+b2=c2第三套23、下列选项中，能作为VB程序变量名的是（）。A 、s+1 B 、3stu C 、true D 、 s124、下列哪个程序段的运行结果如图1所示？（）*图1A 、for i=1to5 For j=1to 6 Print” *” nextj print next iB 、for i=1to5 for i=1to 6 print” *” next
8、i print next iC、for i=1 to5 For j=1to 6 Print” *” next j print next jD、 for i=1to5 For j=1to 6 Print” *” next j print next i25、在VB中，Int(x)函数的功能是返回不大于x的最大整数，设a=3，b=4，c=5，则下列表达式的运算结果中值最大的是（）。A 、 Sqr(c) B、 Abs(a-b) C 、 Int(2*a-c/b) D 、a2+b2-c226、在VB中，用变量code存储学生的借阅卡编码（code=”N020170502”），则变量code的数据类型应定义
9、为（）。A Integer B Double C String D Single27、Visual Basic程序设计语言属于（）。A、汇编语言 B、自然语言 C、高级语言 D、机器语言28、阅读程序，写出运行结果Dim i As IntegerDim x As IntegerDim y As Integery=30For i=1 To 3 x=Val(InputBox(“x=”) If y x Then y=x EndIfNext iPrint y程序运行后，依次输入：36 87 51运行后输出结果是_。（6分）29、算法设计与程序实现（拖动滚动条浏览全部试题内容，点击右侧图标可切换输入法）
10、GDP增长问题某省2016年的GDP是6.7万亿元，如果每年按7%的比例增长，问多少年以后此省的GDP超过15万亿？【算法分析】假设n年后此省的GDP超过15万亿元，根据题意得出数学关系式？求最小的n。【参考程序】Dim pAs Singlep用于记录GDP的值 Dimr As Singler用于记录GDP的年增长比例 Dimn As Integern用于统计年数 p=6.7r=0.07n=0Do While_p=p*(1+r)n=n+1LoopPrint n & ”年后，GDP的值超过15万亿元。”根据上述回答下列问题：（共6分，每空3分）1、本题采用的算法是_（填写：解析法/枚举法/排序法
11、/递归法）。2、写出程序中空白处表达式_。30、算法设计与程序实现判断车牌的单双号【背景知识】为了保障空气质量，减少雾霾，某市决定当空气污染严重时，实行汽车单双号限行，违反规定的车辆将予以处罚。如何让高清摄像头自动判断车牌的单双号，交警犯了愁，他需要编程高手的你帮忙，完善下面的程序。（提示：（1）所有车牌号中都含有数字，并且车牌号的长度都是6；（2）以车牌中最后一位阿拉伯数字的奇、偶来决定单双号。）（1）输入：AD2367（2）输入：A8888A(3)输入：A8963C输出：单号输出：双号输出：单号【算法描述】自然语言流程图第1步：输入车牌号第2步：取车牌号的最后一位x；第3步：判断x是否为数字，如果是，转第4步；如果不是，则依次取得倒数第二、三位判断，知道找到数字为止；第4步：判断x是奇数还是偶数，然后输出相应的结果。
