2017年浙江省杭州市萧山区高考信息技术模拟试卷（10）

一、选择题（本大题共12小题，每小题2分，共24分．每小题列出的四个备选中只有一个是符合题目要求的，不选、多选、选错均不得分）

• 1．下列关于信息的说法，不正确的是（　　）

  A．要使计算机能够处理信息，首先要对信息进行编码

  B．信息技术是因特网出现之后才产生的

  C．在微信中设置“不让他看我的朋友圈”是为了提高信息的安全性

  D．Apple Pay的指纹验证支付也存在安全问题
  组卷：11引用：1难度：0.9

  解析

• 2．《精灵宝可梦Go》是一款对现实世界中出现的小精灵进行探索捕捉、战斗以及交换的游戏．玩家可以通过智能手机在现实世界里发现精灵，进行抓捕和战斗．该游戏主要使用的人工智能技术是（　　）

  A．机器翻译技术	B．运动仿真技术
  C．虚拟现实技术	D．图象识别技术
  组卷：8引用：1难度：0.9

  解析

• 3．字符“A”比“a”的ASCII码值小32（十进制），已知字符“H”的二进制为0100 1000，则字符“h”的二进制ASCII码值为（　　）

  A．0110 1000

  B．0111 1000

  C．0010 1000

  D．0011 1000
  组卷：5引用：1难度：0.9

  解析

• 4．如图所示，流程图用于描述算法：计算1～500之间所有能被6整除的整数之和．下列说法正确的是（　　）

  A．①处无误，运算结果能够符合预期

  B．②处将i=i+1改成i=i+2，会影响结果

  C．可以使用DO语句或For语句实现

  D．程序运行结束后，i的值是500
  组卷：4引用：1难度：0.7

  解析

• 5．使用access数据库管理系统创建的数据库部分界面如图所示，下列说法正确的（　　）
  

  A．该数据表至少有4个字段

  B．编号字段数据类型一定是自动编号

  C．该数据库名称是员工信息．accdb

  D．该数据表存在编号为5的员工信息
  组卷：8引用：1难度：0.9

  解析

二、非选择题（本大题共5小题，其中第13小题4分，第14小题5分，第15小题8分，第16小题4分，第17小题5分，共26分）

• 16．【加试题】某分段函数计算y的值公式如下：
  Y=

  - x （ x ＜ 0 ）

  3 x 2 - 2 x + 1 （ 0 ≤ x ≤ 100 ）

  3 x 2 + 1 3 x - 2 （ x ＞ 100 ）

  
  现要求编写VB程序（运行界面如图所示），实现如下功能：在文本框text1中输入x的值，单击“计算”按钮command1，在标签label3中显示y的值．
  按此要求编写的程序如下，解决此问题的相应程序如下，请根据题意，在横线处填入合适的代码．
  Function f（x As Single） As Single
  If x＜0Then
  f=-x
  ElseIf ①Then
  f=（3*x*x+1）/（3*x-2）
  Else
  f=Sqr（3*x*x-2*x+1）
  End If
  End Function
  Private Sub Command1_Click（　　）
  Dim x As Single,y As Single
  x=Val（Text1．Text）
  ②
  Label3．Caption=Str（y）
  End Sub
  程序中①横线处应填入

   

  
  程序中②横线处应填入

   

   
  组卷：13引用：1难度：0.1

  解析

• 17．商品条码是将表示商品信息的数字代码转换成由一组规则排列的平行线条构成的特殊符号．EAN-13通用商品条形码是用途较为广泛的商品条码．它共有13位，由前缀码、制造厂商代码、商品代码和校验码组成．前缀码用来标识国家或地区（图书等特殊商品除外），一共3位．例如690～695是中国，880是韩国，775是秘鲁．
  
  编写VB程序，实现如下功能：扫描条形码，条形码图象显示在图片框image1中，识别条形码，在text1中产生条形码数字序列，单击“国家/地区”按钮command1，在标签label1中输出对应的国家/地区信息．
  前缀码的相关信息存放在数据库文件“ean13．accdb”的code表中，程序运行时界面如图所示．
  程序代码如下：
  Private Sub Command1_Click（　　）
  Dim cod（1000）As String
  Dim area（1000）As String
  Dim s As String,t As String
  Dim flag As Boolean
  Dim i As Integer,k As Integer
  Dim num As Integer,m As Integer
  s=mid（Text1．Text,1，3）
  
  Dim conn As New ADODB．Connection,rs As New ADODB．Recordset
  Dim strSQL As String
  conn.Connectionstring=“Provider=Microsoft.ACE．OLEDB.12.0；Date Source=“+App.Path+“\ean13．accdb“
  conn.Open
  strSQL=“select cod,area from code“
  Set rs.ActionConnection=conn
  rs.OpenstrSQL
  num=0
  Do While Not rs.EOF
  ①
  cod（num）=rs.Fields（“cod“）
  area（num）=rs.Fields（“area“）
  rs.MoveNext
  Loop
  rs.Close
  conn.Close
  Set rs=Nothing
  Set conn=Nothing
  
  i=1：flag=False
  Do While i＜=num And flag=False
  m=Fix（（i+num）/2）
  If cod（m）=s Then
  ②
  ElseIf Val（s）＜Val（cod（m）） Then
  num=m-1
  Else
  i=m+1
  End If
  Loop
  
  If flag=False Then
  Text1．Text=“该前缀不代表国家或地区“
  Else
  Label1．Caption=area（m）
  End If
  End Sub
  根据以上程序代码，回答下列问题：
  （1）程序段加框处使用的算法是

   

  （填：冒泡排序/选择排序/递归算法）
  （2）程序中①横线处应填入

   

  
  （3）程序中②横线处应填入

   

  ．
  组卷：7引用：1难度：0.1

  解析