2023年12月山东高中信息技术学业水平考试算法部分五套

1、第一套23、以下选项中，关于算法的描述正确的是 。 A算法只能用自然语言描述 B算法必须在有限步骤内实现 C 算法就是一种高级程序设计语言 D算法可以有0个或多个输入，但只能有一个输出 24、以下选项中，能作为VB程序变量名的是 。 A while B 4A123 C a%c D dist25、以下程序段执行后，输出结果为 。 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表达式中，值为字符串类型的是 。 (1)

2、 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 2023=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、分析并完善程序以下是计算s=1+6+11+101的程

3、序代码，请完善程序。 Dim s As IntegerDim i As Integer s=0 For i=1 To 101 Step_ s=_ Next i Print s30、算法设计与程序实现 某市出租车收费标准如下： 13公里内含3公里，收费8元； 2超过3公里但未超过6公里局部，按1.5元/公里收费； 3超过6公里局部，按2.25元/公里收费。 根据以上标准，输入出租车行驶的公里数，请计算顾客需付费多少元？ 【参考代码】 Dim s As Single Dim p As Single s=Val(InputBox(“s=) If s6 Then p=2.25*(s-6)+1.5*3+

4、8 End If Print p 根据上述答复以下问题：1、 此题采用的算法是_填写：解析法/查找法/枚举法/排序法。2、 程序代码中空白处应填写的条件是_填写字母：A/B/C/D.A 33 And s3 Or sb And b3的值是。A 1B -1C FalseD True24、以下程序段运行后，x和st的值分别是。Dim x AsIntegerDim st AsString x=123+678 st=123+678A123678“123678B801“123678C123678“801D801“80125、用流程图表示条件“AB是否成立，要用到以下哪个图形？A 平行四边形B 菱形C 圆角

5、矩形D直角矩形26、以下选项中，能作为VB程序变量名的是。AdimB 3abC a*bD xy27、以下程序段运行后，s的值是。n=0s=0DoWhile s=10n=n+3s=s+nloopA 30B 18C 0D 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分29、分析并完善程序以下是计算s=1*2*3*10的程序代码，请补全程序。6 Dim s As Long Dim i As

6、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 100If _ThenPrint a;b;c End If Next cNext bNext a1、此题采用的算法是_填写：解析法/ 枚举法/排序法/递归法。2、程序代码中空白处应填写的条件是_填写字母：A/B/C/D.A ab And a2+b2=c2B

7、ab Or a2+b2=c2C ab And a2+b2=c2D ab Ora2+b2=c2第三套23、以下选项中，能作为VB程序变量名的是。A 、s+1B 、3stuC 、trueD 、 s124、以下哪个程序段的运行结果如图1所示？*图1A 、for i=1to5 For j=1to 6 Print * nextj print next iB 、for i=1to5 for i=1to 6 print * next i print next iC、for i=1 to5 For j=1to 6 Print * next j print next jD、 for i=1to5 For j=1

8、to 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=N020230502，那么变量code的数据类型应定义为。A IntegerB DoubleC StringD Single27、Visual Basic程序设计语言属于。A、汇编语言B、自然语言C、高级语言D、机器语言28、阅读程序，写出运行结果Di

9、m 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、算法设计与程序实现拖动滚动条浏览全部试题内容，点击右侧图标可切换输入法GDP增长问题某省2023年的GDP是6.7万亿元，如果每年按7%的比例增长，问多少年以后此省的GDP超过15万亿？【算法分析】假设n年后此省的GDP超过15万亿元，根据题意得出数学关系式？求最小的n。【参考程序】Dim pAs

10、 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、此题采用的算法是_填写：解析法/枚举法/排序法/递归法。2、写出程序中空白处表达式_。30、算法设计与程序实现判断车牌的单双号【背景知识】为了保障空气质量，减少雾霾，某市决定当空气污染严重时，实行汽车单双号限行，违反规定的车辆将予以处分。如何让高清摄像头自动判断车牌的单双号，交警犯了

11、愁，他需要编程高手的你帮助，完善下面的程序。提示：1所有车牌号中都含有数字，并且车牌号的长度都是6；2以车牌中最后一位阿拉伯数字的奇、偶来决定单双号。1输入：AD23672输入：A8888A(3)输入：A8963C输出：单号输出：双号输出：单号【算法描述】自然语言流程图第1步：输入车牌号第2步：取车牌号的最后一位x；第3步：判断x是否为数字，如果是，转第4步；如果不是，那么依次取得倒数第二、三位判断，知道找到数字为止；第4步：判断x是奇数还是偶数，然后输出相应的结果。开始请根据上述算法描述补全代码 Dim n As Integer Dim s As String定义s为字符串类型 Dim x

12、As String s=InputBox(“s=,s) 将输入的车牌号赋值给s n=6 车牌号的长度为6 x=Mid(s,n,1) 取车牌号s的第n位 Do While x9 x不是数字字符，那么取x的前一位_x=Mid(s,n,1)取车牌号s的第n位 Loop If _then Print“双号 Else Print“单号 End If(提示：Mid(s,m,n)的功能：从字符创S的第m位开始，截取长度为n的子串。例如：Mid(“A8963C,5,1)的返回值是“3。)请完善上述程序：共8分，每空4分1、根据题意，程序中空白处应填写：_。2、根据题意，程序中空白处应填写：_填写字母：A/B/

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

14、找范围而到达迅速确定目标的算法称为。A顺序查找法 B排序法 C解析法 D二分查找法25、在平面直角坐标系中，设点Ax1,y1、点Bx2，y2，那么AB两点之间的距离为：VB表达式是。A Sqr(x1-x22+(y1-y2)2)B Sqr(x1-x2)2+(y1-y2)2C Sqr(x1-x2)2+(y1-y2)2)D Sqr(x1-x2)2+(y1-y2)226、以下语句正确定义了一个单精度实型变量x的是。ADim x As SingleB其它三项都不对 CDim x As IntegerDDim x As String27、在VB中表示“x属于区间a,b)的正确表达式是。Aa=x And x

15、bBa=x Or xbCax And xb D a=xb28、阅读程序，写出运行结果Dim s As Integer Dim i As Integers=0 For i=1 To 10 Step 4Print “#;s=s+i Next i Print s上述程序运行后，输出“#的个数是_；输出s的值是_。共6分，每空3分29、阅读程序，写出运行结果Dim a As Integer Dim b As Integer Dim r As Integera=98 b=63 r=a Mod b Do While r 0 a=b b=r r=a Mod bLoopPrint b程序运行后，输出结果为：_

16、。6分30、算法设计与程序实现拖动滚动条浏览全部试题内容，点击右侧图标可切换输入法换钱问题要将一张100元的钞票，换成等值的5元、2元、1元一张的钞票共50张。其中一种换法如下：5元：3张 2元：38张 1元：9张求出所有的换钱方案。【算法设计】 x表示5元的张数：1x20； y表示2元的张数：1y50； z表示1元的张数：1z100.【参考程序】 Dim x AsInteger Dim y AsIntegerDim z As Integer For x=1 To20 For y=1To 50 Forz=1 To 100If _ThenPrint x;y;zx y z 之间以分号分隔End I

17、f Nextz Next y Next x根据上述答复以下问题：8分，每空4分1、此题采用的算法是 _填：解析法/枚举法/排序法/递归法。2、程序代码中空白处应填写的条件是 _填写字母：A/B/C/D。A 5x + 2y + z=100 Or x+ y + z = 50B 5x + 2y + z=100 And x + y + z = 50C 5*x + 2*y + z=100 Or x + y + z = 50D 5*x + 2*y + z=100 And x + y + z = 5第五套23、在VB中，以下属于字符串常量的是。 Acnt B3.14 C 2023 D “Visual Bas

18、ic24、将数学表达式转化为VB表达式，以下选项正确的是。25、以10下程序段运行后，整型变量s的值是。 s=1 Fori=1 To 10 Step 3s=s*iNext iPrint s A 55 B 3640 C 28 D 28026、以下程序段运行后，整型变量max1，min1的值分别是。 a=3 b=5max1=(a+b)/2+Abs(a-b)/2min1=(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=0 B yMod 4=0 C yMod 4=0 And y Mod 100 0 Or y Mod 400=0 D yM