2018年山东省学业水平信息技术之算法第一套.docxVIP

2018第一套（算法） 23、下列选项中，能作为VB程序变量名的是（??）。 A 、s+1 B 、3stu C 、true D 、 s1 24、下列哪个程序段的运行结果如图1所示？（???） ****** ****** ****** ****** ??图1 A 、 ?for? i=1?to5 ?????? For?? j=1?to? 6 ?????????? Print” *” ????? ?next ?j? ?????? print ???? next i B 、 ?for? i=1?to5 ????? for?? i=1?to? 6 ?????????? ?print” *” ?????? next? i? ?????? print ?? next? i? C、 ?for? i=1? to5 ?????? For?? j=1?to? 6 ??????????? Print” *” ?????? next? j? ?????? print ? ?next j D、 ? for? j=1?to5 ?????? For?? j=1?to? 6 ??????????? Print” *” ?????? next? j ? ?????? print ??? next i 25、在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^2 26、在VB中，用变量code存储学生的借阅卡编码（code=”N020170502”），则变量code?的数据类型应定义为（??）。 A? Integer B? Double C? String D? Single 27、Visual Basic程序设计语言属于（??）。 A、汇编语言 B、自然语言 C、高级语言 D、机器语言 28、阅读程序，写出运行结果 Dim i As Integer Dim x As Integer Dim y As Integer y=30 For i=1? To? 3 ?? x=Val(InputBox(“x=”)) ?? If ?y x?? Then ????? ??y=x ?? End?If Next? i Print? y 程序运行后，依次输入：36? 87? 51 运行后输出结果是_________________。（6分） 29、算法设计与程序实现 （拖动滚动条浏览全部试题内容，点击右侧图标可切换输入法） GDP增长问题 ????某省2016年的GDP是6.7万亿元，如果每年按7%的比例增长，问多少年以后此省的GDP超过15万亿？ 【算法分析】 ?????假设n?年后此省的GDP超过15万亿元，根据题意得出数学关系式？求最小的n。 【参考程序】 ?????Dim? p?As? Single??????’p用于记录GDP的值 ???? Dim?r? As? Single?????’r用于记录GDP的年增长比例 ???? Dim?n? As? Integer????’n用于统计年数 ???? p=6.7 ??????r=0.07 ??????n=0 ??????Do While_________ ???????????p=p*(1+r) ???????????n=n+1 ??????Loop ??????Print? n ? ”年后，GDP的值超过15万亿元。” 根据上述回答下列问题：（共6分，每空3分） 1、?本题采用的算法是______________（填写：解析法/枚举法/排序法/递归法）。 2、?写出程序中空白处表达式_______________________________。 30、算法设计与程序实现 ???判断车牌的单双号 【背景知识】 ?为了保障空气质量，减少雾霾，某市决定当空气污染严重时，实行汽车单双号限行，违反规定的车辆将予以处罚。 如何让高清摄像头自动判断车牌的单双号，交警犯了愁，他需要编程高手的你帮忙，完善下面的程序。（提示：（1）所有车牌号中都含有数字，并且车牌号的长度都是6；（2）以车牌中最后一位阿拉伯数字的奇、偶来决定单双号。） ? （1）输入：AD2367 （2）输入：A8888A (3)输入：A8963C 输出：单号 输出：双号 输出：单号 【算法描述】 自然语言 流程图 第1步：输入车牌号 第2步：取车牌号的最后一位x； 第3步：判断x是否为数字，如果是，转第4步；如果不是，则依次取得倒数第二、三……位判断，知道找到数字为止； 第4步：判断x?是奇数还是偶数，然后输出相应的结果。 ? ??????开