2017年浙江省高考信息技术模拟试卷（3）

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

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

  A．天气预报不适合用书本、光盘形式发布主要体现了信息的时效性

  B．硬盘主要作为计算机存储信息的载体

  C．信息可以无限的传播但信息本身不会发生改变

  D．所有收到的信息都是真实的
  组卷：18引用：2难度：0.9

  解析

• 2．有如下Visual Basic程序段：
  A=“Happy new year！”
  B=Len（A）\2
  C=63 Mod 10
  Text1．Text=Mid（A，B，C）
  该程序运行后文本框text1显示的内容为（　　）

  A．3

  B．new

  C．B

  D．Mid（A，7，3）
  组卷：11引用：2难度：0.9

  解析

• 3．下列过程没有涉及到人工智能技术的是（　　）

  A．将报纸中的内容用扫描仪扫描下来保存成图片方便以后浏览

  B．在苹果手机上用语音识别软件Siri拨打电话

  C．将看不懂的他国语言文字用“百度翻译”翻译成中文

  D．把曾经的打印稿件用OCR识别后复制到Word中重新编辑
  组卷：10引用：3难度：0.9

  解析

• 4．若将视频文件“片头．mpg”的声音分离并保存成一个独立的声音文件，下列软件中能实现该功能的是（　　）

  A．Goldwave

  B．Frontpage

  C．会声会影

  D．Flash
  组卷：4引用：2难度：0.7

  解析

• 5．如图所示的部分流程图中，“s←s+i”被执行次数为（　　）
  

  A．0

  B．1

  C．32

  D．33
  组卷：5引用：2难度：0.7

  解析

【加试题】

• 16．统计单词个数．小明要参加英语等级考试，正在苦练写作，为了快速统计文章中单词的个数，他设计了如下VB程序，只要在文本框Text1中输入短文，单击统计按钮，单词的个数就在Text2中显示（假定每个单词中不包含英文字母以外的其他字符）．
  算法的基本思路：按位取出字符，如果是字母，并且flag=False,说明是一个单词的开始，则单词个数增加1，flag置为True,余下的连续字母不再计数．如果读入非字母，则表示一个单词已经完成，flag重新置为False,继续循环．
  程序界面如图所示，按此要求编写程序如下，但加框处代码有错，请改正．
  Private Sub Command1_Click （　　）
  Dim x As String,y As String
  Dim n As Integer,m As Integer,flag As Boolean
  x=Text1．Text
  m=0：flag=False
  For i=1To Len（x）
  y=xtod（Mid（x,i,1））
  If y＞=“A”And y＜=“Z”Then
  IfThen’①
  m=m+1
  flag=True
  End If
  Else
  flag=False
  End If
  Next
  Text 2．Text=Str（m）
  End Sub
  Function xtod（ch As String） As String’将小写字母转化为大写字母．
  If ch＞=“a”And ch＜=“z”Then
  xtod=’②
  Else
  xtod=ch
  End If
  End Function
  （1）加框处①有错，应改为

   

  ．
  （2）加框处②有错，应改为

   

  ．
  组卷：5引用：2难度：0.3

  解析

• 17．小王利用VB及ACCESS数据库制作了一个解密程序，具体使用过程如下：
  在VB项目文件夹目录中有一个ACCESS数据库文件data.accdb,其中有一张数据表如图1所示ask字段中存放的是密文字符，对应ans字段中存放的是明文字符．
  
  VB程序界面如图2所示，其中一个按钮Command1的Caption属性值设置为“读取密码本”，另一个按钮Command2的Caption属性值设置为“解密”．程序运行后先点击Command1，程序将从ACCESS数据库中读取明文密文对照表并显示在列表框List1中．然后在密文文本框Texe1中输入加密文字，点击Command2解密后的明文将显示在Text2中．
  
  程序代码部分如下，请回答后面的问题：
  Dim a As String
  Dim b  As String
  Dim length As Integer
  Private Sub Command1_Click （　　）
  List1．Clear
  Dim i As Integer
  Dim conn As New ADODB．Connection
  Dim rs As New ADODB．Recordset
  conn.ConnectionString=“provider=microsoft.ace.jye.ai.12.0；data source=”& App.Path &
  “\

   

  ”
  conn.Open
  rs.ActiveConnection=conn
  rs.CursorLocation=adUseClient
  rs.Open （“select*from code”）
  length=rs.RecordCount
  ReDim a（1To length）
  ReDim b（1To length）
  rs.MoveFirst
  For i=1To length
  a（i）=rs.Fields（“ask”）
  b（i）=rs.Fields（“ans”）
  List1．AddItem （a（i）&“+”&b（i））
  rs.

   

  
  Next i
  End Sub
  Private Sub Command2_Click （　　）
  Text2．Text=“”
  Dim s As String
  Dim i As Integer
  s=Text1．Text
  For i=1To Len（s）
  Text2．Text=Text2．Text&translate（Mid（s,

   

  ）
  Next i
  End Sub
  
  Function translate（ask As String） As String
  Dim i as Integer
  Dim flag as Boolean
  i=1
  flag=True
  Do While i＜=length And flag
  If a（i）=ask Then
  

   

  
  End If
  i=i+1
  Loop
  If flag=True Then
  translate=“”
  Else
  translate=b（i-1）
  End If
  End Function
  （1）程序代码①处应该填入

   

  ．
  （2）程序代码②处应该填入

   

  ．
  （3）在程序代码③处补全Mid函数：

   

  ．
  （4）程序代码④处应该填入

   

  ．
  （5）translate函数使用的查找算法是

   

  （填对分查找/顺序查找）．
  组卷：21引用：1难度：0.1

  解析