2017年浙江省普通高校高考信息技术模拟试卷（13）

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

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

  A．信息可以被重复使用而不会像物质和能源那样产生损耗

  B．人们可以利用各种信息技术，把信息从一种形态转换为另一种形态

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

  D．很多网络支付采用密码和手机校验码结合的方式，主要是为了提高信息的安全性
  组卷：17引用：3难度：0.9

  解析

• 2．某论坛版主对一个“2016年中国大学排名”的帖子进行“置顶”操作，这属于信息资源评价中的（　　）

  A．专家推荐	B．个人推荐
  C．核心刊物评价	D．统计评价
  组卷：8引用：2难度：0.9

  解析

• 3．使用Word软件编辑文档部分界面如下，以下说法正确的是（　　）
  

  A．添加批注的用户为“鲁昕”

  B．拒绝第一处修订后，文字“第一种”应该是“她说：第一种”

  C．文字“技术技能人才的高考”在修订之前的内容是“技术技能型人才的高考”

  D．接受全部修订后，文字“技术技能人才的高考”应该是“技术技能型人才的高考”
  组卷：16引用：7难度：0.9

  解析

• 4．某Access数据表如图所示，则以下说法中正确的是（　　）
  

  A．该数据表最多7个字段

  B．“是否本科”字段类型为是否型，存储该类型数据需要1个字节

  C．“招生专业”字段类型为数字型，“所在地”字段类型为文本型

  D．该数据库的名称为“大学．accdb”
  组卷：9引用：2难度：0.7

  解析

• 5．阅读如下程序，下列表达式与该程序段运行结果相同的是（　　）
  k=1：s=0，Do while i＜=5，s=s+k/（i*（i+1）），i=i+1，k=-k,Loop.

  A．1/2-1/（2*3）=1/（3*4）-1/（4*5）+1（5*6）

  B．1/2-1/3+1/4-1/5+1/6

  C．1/2+1/（2*3）+1/（3*4）+1/（4*5）+1/（5*6）

  D．1/2+1/3+1/4+1/5+1/6
  组卷：11引用：1难度：0.7

  解析

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

• 16．【加试题】设计VB程序，该程序将输入的字符串中小写字母转换成大写字母后输出．在文本框Text1中输入一串字符（数字、字母均可），单击“转换”按钮Command1，在标签Label2中输出结果．（提示：Asc（x）：将字符x转换为ASCⅡ码值；Chr（x）：将ASCⅡ代码x转换为所对应的字符）该程序的设计界面如图所示，请根据算法将下列程序补充完整．
  
  Private Sub Command1_Click（　　）
  Dim ch As String,s As String
  Dim i AS Integer,j As Integer
  ch=Text1．Text
  For i=1To

   

  
  j=Asc（Mid（ch,i,1））
  if j＞96And j＜123 Then
  s=s+Chr（j-32）
  Else
  s=s+Chr（j）
  End If
  Next
  

   

  
  End Sub
  完善程序：①横线处代码为

   

  ．
  ②横线处代码为

   

  ．
  组卷：12引用：2难度：0.1

  解析

• 17．【加试题】对于函数f（x），若在某区间[a,b）内是单调函数，且其图象与x轴有交点，则存在一个x0使得f（x0）=0，我们可以设法找到x0的值．
  满足上述条件的区间[a,b）和函数f（x）必定有f（a）•f（b）＜=0，我们设计如下算法：第一步：区间中点m=

  a

  +

  b

  2

  ．
  第二步：若f（s）•f（m）＜0，则含零点的区间为[a,m]；否则，含零点的区间为[m,b），将新得到的含零点的区间仍记为[a,b]．
  第三步：判断[a,b）的长度是否小于一个足够小的值d.若是，则m是方程的近似解；否则，返回第一步．
  于是我们可以设计函数f（x）=x²-c,就可以用此算法求出任意非负常数c的非负平方根．程序运行效果如下图所示，程序中还输出了区间的左右端点和区间长度值．
  
  Const min As Single=0.00005
  Dim c As Single
  Function fn（x As Single）As single
  

   

  
  End Function
  Private Sub Command1_Click（　　）'按钮上的程序
  Dim a As Single,b As Single,m As Single
  c=Val（Text1．Text）
  a=0
  b=c
  Do While

   

  
  m=（a+b）/2
  List1．AddItem Str（a）&“”&Str（b）&“”Str（b-a）
  If

   

  Then
  b=m
  Else
  a=m
  End If
  Loop
  Label2．Caption=Str（m）
  End Sub
  回答以下问题：
  （1）事件处理过程“Command1_Click（　　）”用到的算法是

   

  （填算法具体名称）．
  （2）请将程序中的三处代码补充完整．
  （3）通过测试可知，该程序得到的

  2

  的近似值为1.4142，实际上更精确的值是1.4142135623731，请问如何改善程序，得到一个更精确的近似值？请写出至少两种改善意见：
  

   

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

  解析