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

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

• 1．信息安全危害的两大源头是病毒和黑客，因为黑客是（　　）

  A．网络的非法入侵者	B．Cookies的发布者
  C．计算机编程高手	D．信息垃圾的制造者
  组卷：5引用：2难度：0.9

  解析

• 2．电子邮件的传送的基本流程如图所示．
  
  其中的过程③中使用的协议是（　　）

  A．SMTP

  B．FTP

  C．POP3

  D．HTML
  组卷：12引用：4难度：0.9

  解析

• 3．要在Word中达到如下图所示的图文混排效果，需要设置图片的环绕方式为（　　）
  

  A．四周型	B．浮于文字上方
  C．衬于文字下方	D．紧密型
  组卷：27引用：7难度：0.9

  解析

• 4．关于下面这个Access数据表，以下说法正确的是（　　）

  A．该数据库文件名为：书籍收藏．accdb

  B．新建一条记录时，购买日期可输入“2009/12/1”

  C．书籍编号为数字类型，输入记录后，进入设计视图后可以将类型修改为自动编号

  D．若不慎删除了第1条记录，可通过“撤销”操作恢复记录
  组卷：3引用：2难度：0.7

  解析

• 5．有如下一段VB程序：
  k=-20
  Do While k=0
  k=k+1
  Loop
  以下说法正确的是（　　）

  A．do while 语句执行了20次

  B．do While 循环是无限循环

  C．循环体语句一次也不执行

  D．循环体语句执行一次
  组卷：10引用：2难度：0.7

  解析

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

• 16．对分查找算法可用于求解方程的近似解．现要求方程x³-4x²+x+5=0的一个近似解，可设f（x）=x³-4x²+x+5，若有区间[a,b]，使f（a）与f（b）异号，则该区间内必存在该方程的一个解．小吴为此编写了VB程序，功能如下：分别在文本框Text1和Text2中输入求解的区间值a和b（a＜b），单击“计算”按钮Command1，若该区间必有解，则求解出该区间内的一个近似解（精确到10^-5），否则提示“重新输入区间”，计算后的相关结果显示在列表框List1中．程序运行界面如图所示．
  
  实现上述功能的VB程序如下，但加框处代码有错，请改正．
  Function f（x As Double） As Double
  Dim y As Double
  y=x^3-4*x^2+x+5：（1）
  End Function
  Private Sub Command1_Click （　　）
  Dim a As Double,b As Double,m As Double,x As Double
  a=Val（Text1．Text）：b=Val（Text2．Text）
  If f（a）*f（b）＜0And a＜b Then
  Do While a＜=b
  m=（a+b）/2
  If Abs（f（m））＜0.00001Then Exit Do
  If ＜0  Then'（2）
  b=m
  Else
  a=m
  End If
  Loop
  x=Format（m,“0.00000“）'Format函数用于定义输出的小数位数
  List1．AddItem“[“& Text1．Text &“，“& Text2．Text &“]“&“解为：“& x
  Else
  List1．AddItem“[“& a &“，“& b &“]“&“重新输入区间“
  End If
  End Sub.
  组卷：2引用：1难度：0.1

  解析

• 17．小林很期待建国100年大庆的盛典，在学习了VB程序设计后，他设计一个VB应用程序，在Text1、Text2、Text3中输入当天的年、月、日，点击命令按钮Command1，程序在标签Label4上显示离2049年10月1日还有多少天，程序运行界面如图所示
  ：
  实现上述功能的VB程序如下，请在横线处填入合适代码．
  Dim mon（1To 12）As Long
  Sub makemonth （　　）
  mon（1）=31：mon（2）=28：mon（3）=31：mon（4）=30：mon（5）=31：mon（6）=30
  mon（7）=31：mon（8）=31：mon（9）=30：mon（10）=31：mon（11）=30：mon（12）=31
  End Sub
  Function isp（y as Integer） As

   

  '判断是否闰年
  If y Mod 400=0Then
  isp=True
  ElseIf y Mod 100＜＞0And y Mod 4=0Then
  isp=True
  Else
  isp=False
  End If
  End Function
  Private Sub Command1_Click （　　）
  Dim y As Long,m As Long,d As Long
  Dim cnt As Long
  y=Val（Text1．Text）
  m=Val（Text2．Text）
  d=Val（Text3．Text）
  Call makemonth'预定义每个月最大天数
  cnt=0
  Do While （y＜＞2049）Or （m＜＞10）Or （d＜＞1）
  cnt=cnt+1
  

   

  
  md=mon（m）
  If m=2And isp（y）=True Then

   

  
  If d＞md Then
  d=1
  m=m+1
  End If
  If m＞12Then
  m=1
  y=y+1
  End If
  Loop
  Label4．Caption=“到2049年10月1日还有“+Str（cnt）+“天“
  End Sub              其中，（1）、（2）、（3）处语句分别填

   

  、

   

  、

   

  ．
  组卷：1引用：1难度：0.3

  解析