信息技术考试题算法

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

2、160; &  “能被3整除”  End  If  A n能被3整除  B n不能被3整除  C 29不能被3整除  D 29能被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中，下列哪个选项是正确的赋值语句？（）A 2018=xB

3、5s=80  C a+b=cD s=s+528、阅读程序，写出运行结果Dim n As Integern=Val(InputBox(“n=”)Do While n Mod 2=0 n=n2LoopPrint n程序运行时，输入24，输出n的值是：_29、分析并完善程序以下是计算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、算法设计与程序实现

4、某市出租车收费标准如下：  （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=”)If s<=3 Then  p=8End  IfIf _Then  p=1.5*(s-3)+8End IfIf s>6 Then 

5、 p=2.25*(s-6)+1.5*3+8End IfPrint p 根据上述回答下列问题：1、 本题采用的算法是_（填写：解析法/查找法/枚举法/排序法）。2、 程序代码中空白处应填写的条件是_（填写字母：A/B/C/D）.A 3<s6B 3 s6 C  s>3 And s<=6  D s>3 Or s<=62018第二套(算法部分)23、设a=2，b=5，在VB中，表达式a>b And b>3的值是（  ）。A 1B -1C FalseD True24、以下程序段运行后，x和st

6、的值分别是（  ）。 Dim  x  As Integer Dim  st  As String  x=123+678  st=”123”+”678”A 123678  “123678”B 801  “123678”C 123678“801”D 801“801”25、用流程图表示条件“A>B”是否成立，要用到以下哪个图形？（  ）A  平行四边形B  

7、菱形C  圆角矩形直角矩形D 26、下列选项中，能作为VB程序变量名的是（  ）。A dimB 3abC a*bD xy27、以下程序段运行后， s的值是（  ）。n=0s=0Do While  s<=10 n=n+3 s=s+nloopA 30B 18C 0D 328、阅读程序，写出运行结果Dim a(10)  As  Integer Dim iAs Integer a(1)=1 a(2)=1 Fori=3

8、To 6  a(1)=a(i-1)+a(i-2) Next  i Print a(6) 上述程序运行后，输出a(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以内满足a<b的所有勾股数。【参考程序】Dim

9、 a As IntegerDim b As IntegerDim c As IntegerFor a=1 To 100 For b=1 To 100  For c=1 To 100If _Then  Print a;b;cEnd If  Next c Next bNext a1、本题采用的算法是_（填写：解析法/ 枚举法/排序法/递归法）。2、程序代码中空白处应填写的条件是_（填写字母：A/B/C/D）.A  a<b  And  a2+b2=c2B  a<b  Or  a2

10、+b2=c2C  a<b  And a2+b2=c2D  a<b  Or a2+b2=c22018第三套(算法部分)23、下列选项中，能作为VB程序变量名的是（  ）。A 、s+1B 、3stuC 、trueD 、 s124、下列哪个程序段的运行结果如图1所示？（）*  图1A 、 for  i=1 to5 Forj=1 to  6  Print” *” next j  print  next

11、iB 、 for  i=1 to5fori=1 to  6print” *” next  i  printnext  i C、 for  i=1  to5 Forj=1 to  6Print” *” next  j  printnext jD、  for  i=1 to5 Forj=1 to  6Print” *” next  j   print next i25、在

12、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 的数据类型应定义为（  ）。A  IntegerB  DoubleC  StringD  Single27、Visual Basic程

13、序设计语言属于（  ）。A、汇编语言B、自然语言C、高级语言D、机器语言28、阅读程序，写出运行结果Dim i As IntegerDim x As IntegerDim y As Integery=30For i=1  To  3x=Val(InputBox(“x=”)If  y< xThen  y=xEnd IfNext  iPrint  y程序运行后，依次输入：36  87  51运行后输出结果是_。（6分）29、算法设计与程序实现（拖动滚动条浏览全部试题内容，点

14、击右侧图标可切换输入法）GDP增长问题 某省2016年的GDP是6.7万亿元，如果每年按7%的比例增长，问多少年以后此省的GDP超过15万亿？【算法分析】  假设n 年后此省的GDP超过15万亿元，根据题意得出数学关系式？求最小的n。【参考程序】  Dim  p As  Singlep用于记录GDP的值  Dim r  As  Single  r用于记录GDP的年增长比例  Dim n  As  Integ

15、er n用于统计年数  p=6.7r=0.07n=0Do While_  p=p*(1+r)  n=n+1LoopPrint  n &  ”年后，GDP的值超过15万亿元。”根据上述回答下列问题：（共6分，每空3分）1、 本题采用的算法是_（填写：解析法/枚举法/排序法/递归法）。2、 写出程序中空白处表达式_。30、算法设计与程序实现判断车牌的单双号【背景知识】 为了保障空气质量，减少雾霾，某市决定当空气污染严重时，实行汽车单双号限行，违反规定的车辆将予以处罚。如何让高清摄像

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

17、 Dim n As Integer  Dim s As String定义s 为字符串类型  Dim x As String  s=InputBox(“s=”,s)将输入的车牌号赋值给s  n=6 车牌号的长度为6  x=Mid(s,n,1)取车牌号s的第n位  Do While x<”0” Or x>”9” x不是数字字符，则取x的前一位_x=Mid(s,n,1)取车牌号s的第n位  Loop  If _then  Print“双号”Else  Print“单号”End I

18、f(提示：Mid(s,m,n)的功能：从字符创S的第m位开始，截取长度为n的子串。例如：Mid(“A8963C”,5,1)的返回值是“3”。)请完善上述程序：（共8分，每空4分）1、 根据题意，程序中空白处应填写：_ 。2、 根据题意，程序中空白处应填写：_（填写字母：A/B/C/D）。A、Val(x) 2= 0 B、Val(x)Mod 2 = 1C、Val(x) Mod 2=0 D、Val(x) Mod 2 <> 02018第四套(算法部分)23、一下程序段运行后，y的值是（ ）。  x=3  If

19、x>3 Then  y=2*x  Else  y=3*x+1end ifA 25B 26C 10D 524、某晚会的猜数字游戏中，有100张写有1100之间整数的卡片，主持人随机抽取一张卡片，让大家竞猜。有一种方案是：第一次猜50，若提示低了，则第二次猜75，若提示还是低了，则第三次猜87，依次类推；若第一次猜50，提示高了，则第二次猜25，若提示还是高了，则第三次猜12，依次类推；。这种每次缩小一半查找范围而达到迅速确定目标的算法称为（  ）。A 顺序查找法B 排序法C 解析法D 二分查

20、找法25、在平面直角坐标系中，设点A（x1,y1）、点B（x2，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 

21、;属于区间a,b)”的正确表达式是（  ）。Aa<=x And x<bBa<=x Or x<bC ax And x<bD a<=x<b28、阅读程序，写出运行结果  Dim s As Integer  Dim i As Integer  s=0  For i=1 To 10 Step 4Print “#”;s=s+i  Next i  Print s  上述程序运行后，输出“#”的个数是_；输出s的值是_。（共6分，每空3分）29、阅读程序，写

22、出运行结果  Dim a As Integer  Dim b As Integer  Dim r As Integer a=98  b=63  r=a Mod b  Do While r <>0  a=b  b=r  r=a Mod b  Loop  Print b  程序运行后，输出结果为：_。（6分）30、算法设计与程序实现  拖动滚动条浏览全部试题内容，点击右侧图标可切换输入法  换钱问题

23、要将一张100元的钞票，换成等值的5元、2元、1元一张的钞票共50张。其中一种换法如下：5元：3张2元：38张1元： 9张求出所有的换钱方案。【算法设计】x表示5元的张数：1x20；y表示2元的张数：1y50；z表示1元的张数：1z100.【参考程序】Dim x AsIntegerDim y AsIntegerDim z As IntegerFor x=1 To20 For y=1To 50Forz=1 To 100  If _ThenPrint x;y;z  x y z 之间以分号分隔  End If Nextz Next

24、 y  Next 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 = 50D  5*x + 2*y + z=100 And  x + y + z = 52018第五套(算法部分)23、在VB中，

25、下列属于字符串常量的是（）。  Acnt  B3.14  C2018  D “Visual  Basic”24、将数学表达式转化为VB表达式，下列选项正确的是（  ）。 25、以10下程序段运行后，整型变量s的值是（ ）。  s=1  Fori=1 To 10 Step 3 s=s*i Next  i Print  s  A  55  B  3640  C  28 

26、D  28026、 以下程序段运行后，整型变量max1，min1的值分别是（  ）。  a=3  b=5 max1=(a+b)/2+Abs(a-b)/2 min1=(a+b)/2-Abs(a-b)/227、给定一个四位数的年份，判断它是否为闰年：四年一闰、百年不闰；四百年又闰（年份能被4整除但不能被100整除是闰年，或者年份能被400整除也是闰年。例如2004年和2000年都是闰年，2100年不是闰年）。下列判断年份。下列判断年份y是闰年的表达式正确的是（  ）。  A yMod 4=0 Or y Mod 100<>0 And y Mod 400=0  B yMod 4=0  C yMod 4=0 And y Mod 100 <>0 Or y Mod 400=0  D yMod 400=028、分析并完善流程图执行流程图，当输入x的值为4时，输出y的值为2，则菱形判断框中的条件可能为_（填写字母：A/B/C/D 6分）。A x>3  B  x>4C x<=4  D  x<=529、分析并完善程序  以下是计算s=