2016-2017学年浙江省新高考研究联盟高三（上）第一次联考信息技术试卷

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

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

  A．因特网上的任意信息应尽可能地经过甄别后再使用

  B．网页中使用文字、图象、表格、超链接等方式表达信息

  C．在微信朋友圈分享自己的旅行见闻，这一过程主要属于信息的获取

  D．设置邮箱，限制邮件大小、类型以及过滤垃圾邮件，主要是为了提高信息的安全性
  组卷：17引用：6难度：0.9

  解析

• 2．使用浏览器软件打开某网页文件如图所示．
  
  下列说法正确的是（　　）

  A．该网页文件名为“冬季养生食物．htm”

  B．该网页文件本质上是文本文件

  C．页面中图象被保存在djyssp.htm文件中

  D．页面中图象上没有超链接
  组卷：5引用：4难度：0.9

  解析

• 3．评价某网络新闻的部分界面如图所示．
  
  图中包含的评价方式有（　　）

  A．个人推荐、统计评价

  B．个人推荐、核心刊物评价

  C．核心刊物评价、统计评价

  D．专家推荐、核心刊物评价
  组卷：4引用：1难度：0.9

  解析

• 4．使用Access软件创建数据表，存储如下表所示的图书信息：
  

  编号	书名	作者	书价	出版时间	出版社
  SN-7208061644	追风筝的人	卡勒德•胡赛尼	￥28.90	2014-01-01	上海人民出版社

  则该数据表对应的结构恰当的是（　　）

  A．

  B．

  C．

  D．
  组卷：10引用：4难度：0.7

  解析

• 5．计算s=2+4+6+…+10的算法流程图如图所示．
  
  若要计算s=2×4×6×…×10，则上述流程图中的“s←s+x,x←x+2”应改为（　　）

  A．x←x+1，x←s×x	B．s←s×x,x←x+1
  C．x←x+2，s←s×x	D．x←s×x,x←x+2
  组卷：6引用：3难度：0.7

  解析

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

• 16．查找并删除重复数据的算法是基于顺序查找的优化，主要思路是把待查数据的起点元素设置成查找关键字，然后从后往前查找，通过结束时停留的数据位置来判断查找结果（即结束时若停留在数据序列的起点，表示数据序列中无重复数据；否则，存在重复数据，删除该数据后继续查找）．
  
  编写VB程序，实现上述算法．程序功能如下：运行程序时，在列表框List1中显示数组a中的原始数据；单击“去重”按钮（Command1），查找数组a中的重复数据并删除，即相同的数据仅保留一个，并在列表框List2中输出去重后的数组a中的数据，同时在标签Label1中显示删除的数据总个数，运行效果如第16题图所示．
  实现上述功能的VB代码如下，但加框处代码有错，请改正．
  Const maxn=10
  Dim a（1To maxn） As Integer
  Private Sub Form_Load （　　）
  'maxn个数据存储在数组a中，并在列表框List1中显示
  '代码略
  End Sub
  Private Sub Command1_Click （　　）
  Dim i As Integer,n As Integer'n用于存储当前查找的数组长度
  Dim j As Integer,key As Integer'key用于存储本次查找关键字的数据位置
  key=1：n=maxn
  Do While key＜=n
  i=n
  Do While  '（1）
  i=i-1
  Loop
  If i=key Then'找到重复数据，删除；未找到，设定下一查找关键字
  key=key+1
  Else
  For j=i To n-1
  a（j）=a（j+1）
  Next j
  n=n-1
  End If
  Loop
  For i=1To n
  List2．AddItem a（i）
  Next i
  Label1．Caption=“共删除重复数据：“&    &“个“'（2）
  End Sub.
  组卷：2引用：2难度：0.3

  解析

• 17．如果一个正整数从左到右读与从右到左读是一样的，就称它为回文式数（简称回数），如12321．“回数猜想”的主要思想是，对任意正整数，若它不是回数，则按下列算法即可获得一个回数：
  （1）把该整数的数字顺序颠倒，求得该数的逆序数；
  （2）将该整数和其对应的逆序数相加；
  （3）若相加结果不是回数，则将结果作为新的整数，返回步骤（1）．
  小林按照上述算法，设计了验证回数猜想的VB程序（猜想次数不超过10次），程序功能如下：在文本框Text1中输入一个正整数，单击“验证”按钮（Command1），获取文本框Text1中的数，当该数不是回数时，采用回数猜想的方法进行验证，并在列表框List1中输出每次验证的过程，若验证成功或验证次数超过10次，则停止验证，最后在列表框List1中输出验证结果．程序运行效果如图所示．
  
  实现上述功能的VB程序如下：
  Private Sub Command1_Click （　　）
  Dim t As String,a As Long,b As Long
  Dim count As Integer'count用于存储回数猜想的验证次数
  
  t=Text1．Text
  count=1
  Do While Check（t）=False And count＜=10
  a=Val（t）
  

   

  
  c=a+b
  List1．AddItem Str（a） &“+“& Str（b） &“=“& Str（c）
  count=count+1
  t=Str（c）
  Loop
  If Check（t） Then
  List1．AddItem“验证成功！“
  Else
  List1．AddItem“10次内未验证成功！“
  End If
  End Sub
  '自定义函数Turn
  Function Turn（x As String） As Long
  Dim s As String,i As Integer
  s=““
  For i=Len（x） To 1Step-1
  s=s & Mid（x,i,1）
  Next i
  Turn=Val（s）
  End Function
  '自定义函数Check,检查x是否为回文数
  Function Check（x As String） As Boolean
  Dim i As Integer
  Check=True
  For i=1To Len（x）\2Step 1
  If Mid（x,i,1）＜＞

   

  Then Check=False
  Next i
  End Function
  （1）程序代码中，自定义函数Turn（x）的功能是

   

  ．
  （2）请在横线处填入合适代码．
  组卷：2引用：1难度：0.3

  解析