2017年浙江省温州市普通高中选考模拟信息技术试卷（2月份）

一、选择题（共12小题，每小题2分，满分24分）

• 1．某用户使用手机“导航”软件，从 A 地驶向 B 地，规划路线后开始行驶，途中“导航”提醒前 方道路拥堵，建议改变路线，并实时提供新的导航路径，该事例体现信息的（　　）

  A．载体依附性

  B．真伪性

  C．共享性

  D．时效性
  组卷：23引用：7难度：0.9

  解析

• 2．小春用 Word 软件撰写了一篇观后感，经老师审阅后文档的部分截图如图所示，下列描述 正确的是（　　）
  

  A．拒绝所有修订后，文档内容为“《开学第 1 课》2016 年 9 月 1 日晚上 8 点在 CCTV 首播”

  B．拒绝所有修订后，文档内容为“《开学第 1 课》于 2016 年 9 月 1 日晚上 8 点在中央电视台首 播”

  C．接受所有修订后，文档内容为“《开学第一课》于 2016 年 9 月 1 日晚上 8 点在中央电视台首 播”

  D．接受所有修订后，文档内容为“《开学第一课》于 2016 年 9 月 1 日晚上 8 点在中央电视台CCTV 首播”
  组卷：12引用：6难度：0.9

  解析

• 3．下列应用中，没有运用人工智能的是（　　）

  A．使用翻译软件进行中英互译

  B．使用扫描仪对杂志封面进行扫描

  C．使用语音输入法进行文字录入

  D．使用 OCR 对图片文件中的文字进行识别
  组卷：8引用：7难度：0.9

  解析

• 4．有一 Access 数据表，其设计视图如图1所示，数据表如图2所示，下列说法正确的是（　　）
  

  A．当前数据表的表名为“外币储备．accdb”

  B．该表一共有 37 条记录，当前记录为第 33 条

  C．删除“2014年”字段后，“总计”字段中的各字段值不发生变化

  D．“排名”字段的字段类型可以更改为“自动编号”类型，且字段值不会改变
  组卷：8引用：5难度：0.9

  解析

• 5．某算法部分流程图如图所示，执行该部分流程图后，变量 s 和变量 i 的值分别为（　　）
  

  A．9 和 5

  B．9 和 7

  C．16 和 5

  D．16 和 7
  组卷：13引用：9难度：0.7

  解析

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

• 16．小王编写 VB 程序，功能如下：在文本框 Text1 中输入一段英语短文，点击“统计”按钮 Command1，在标签 Label2 中输出该短文中出现次数最多的小写字母、次数和频率（若有 多个，则全部输出），程序运行界面如图所示．
  
  若实现上述功能的程序如下，请在加框处修改合适代码，使程序正常运行． 
  Private Sub Command1_Click （　　）
  Dim i As Integer,n As Integer,f As Integer
  Dim max As Integer'变量 max 表示出现最多的字母
  Dim sum As Integer'sum 表示字母总数
  Dim zm（1To 26）As Integer'数组 zm 存放 26 个字母出现的次数 
  Dim s As String,c As String
  Dim cx As String'变量 cx 存放次数最多的字符 
  s=Text1．Text
  For i=1To Len（s） 
  c=Mid（s,i,1）
  If c＞=“a“And c＜=“z“Then n=
  zm（n）=zm（n）+1
  sum=sum+1
  End If
  Next i  
  max=0
  For j=1To 26
  If zm（j）＞max Then ：cx=““
  If zm（j）=max Then
  cx=cx+““+Chr（Asc（“a“）+j-1）
  End If
  Next j
  f=Int（max/sum*100）
  Label2．Caption=“字母：“& cx &“次数：“& max &“频率：“& Str（f） &“%“
  End Sub.
  组卷：6引用：3难度：0.1

  解析

• 17．小李编写 VB 程序，功能如下：单击“生成数组”按钮 Command1，则随机生成 13 个取值范围是 1～13 的正整数，分别存储到数组 a 中，对数组 a 的元素进行升序排列，并在标签label1 中显示；再单击“连续数”按钮 Command2，则在排序后的数组 a 中查找连续个数最多（忽略重复数值）的一组数值（即：连续数），若有两组连续数个数一样多，则取数值小的一组，将连续数显示在标签 label2 中．运行界面如图所示．
  
  若实现上述功能的程序如下，请在划线处填写合适代码，使程序正常运行．
  Dim a（1To 13）As Integer
  Dim n As Integer
  Private Sub Command1_Click （　　）
  Dim i As Integer,s As String,j As String
  Randomize
  n=13
  For i=1To n
  a（i）=Int（Rnd*13）+1
  Next i
  For i=1To n-1
  For j=i+1To n
  If a（j）＜a（i） Then
  t=a（j）： ①：a（i）=t
  End If
  Next j
  Next i
  s=““
  For i=1To n
  s=s+Str（a（i））
  If   ② Then s=s+“，“
  Next i
  Label1．Caption=s
  End Sub
  Private Sub Command2_Click （　　）
  Dim i As Integer,j As Integer
  Dim t As Integer,k As Integer
  Dim max As Integer'存储连续数个数最大值
  Dim begin As Integer'存储连续数开始的数值
  k=1
  max=1
  For i=2To 13
  If a（i）=a（i-1）+1Or a（i）=a（i-1）Then
  If   ③ Then k=k+1
  If k＞max Then
  max=k
  begin=  ④
  End If
  Else
  k=1
  End If
  Next i
  s=““
  For j=begin To begin+max-1
  s=s+Str（j）
  Next j
  Label2．Caption=s
  End Sub.
  组卷：6引用：2难度：0.1

  解析