2018-2019学年浙江省宁波市北仑中学高二（上）期中信息技术试卷

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

• 1．有很多公司在微信的服务号上提供免费的直播课程（如图所示），小何同学将邀请卡发送给自己的同学，邀请她一起来学习关于无人机的课程。她的同学可以通过扫描二维码进入学习的页面。上述描述中最能体现信息的（　　）

  A．载体依附性

  B．共享性

  C．价值性

  D．存储性
  组卷：13引用：4难度：0.9

  解析

• 2．未来互联网的发展需要强大的网络支持．前不久，以中国的华为公司主导推动的PolarCode码被国际移动通信标准化组织采纳为技术方案．对5G技术的理解，你认为下列选项错误的是（　　）

  A．随着5G技术的发展，人类可能进入了万物互联的时代

  B．5G技术为虚拟现实、智能驾驶等提供了创新动力

  C．5G技术主要是提高了网络传输速度，和人工智能、物联网等技术没多大关系

  D．5G技术不只是人与人之间的通信，虚拟现实、3D息影都将成为现实
  组卷：8引用：3难度：0.9

  解析

• 3．陈老师想对自己学生交来的小论文做个修改，同时让自己的学生清楚的知道自己修改的痕迹，最恰当采用的方式是（　　）

  A．利用Word中的“替换”功能

  B．利用Word中的“批注”功能

  C．利用Word中的“自动更正”功能

  D．利用Word中的“修订”功能
  组卷：12引用：1难度：0.4

  解析

• 4．使用 Access 软件创建的数据表，其设计视图的部分界面如图所示。下列说法不正确的是（　　）
  

  A．如果该表已经有数据，可以把“编号”字段的类型改为“数字”类型

  B．“发行时间”字段值可以输入“2018\2\16”

  C．“价格”字段的内容可以输入整数

  D．“编号”字段在数据表视图中不能够被删除
  组卷：10引用：5难度：0.4

  解析

• 5．某算法的部分流程图如图所示。输入s值为2018，i初始值为0，执行这部分流程图后，则s和i分别是（　　）

  A．1，3

  B．1，4

  C．2，3

  D．2，4
  组卷：0引用：3难度：0.6

  解析

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

• 16．【加试题】计算整数t的近似算术平方根算法如下：
  x_i+1=

  1

  2

  （x_i+

  t

  x

  i

  ），i=1，2，3，…
  先取x₁=1，然后根据公式计算x₂，再由x₂计算x₃，…直到|x_i-x_i-1|＜0.00001，则x_i为解．
  小李编写了一个VB程序实现上述功能：运行程序时，在Text1中输入一个正整数，单击命令按钮Command1，文本框Text2显示该数的算术平方根．
  程序代码如下，请完成以下两小题．
  Function fun（x As Integer,x0 As Double） As Double
      Dim x1 As Double
      x1=（x0+x/x0）/2
      If Abs（x1-x0）＜0.00001 Then
         fun=x1
      Else
         fun=

   

  
      EndIf
  End Function
  Private Sub Command1_Click（　　）
      Dim t As Integer
      Dim k As Double
      t=Val（Text1．Text）
      k=fun（t,1）
      k=

   

  '保留两位小数的四舍五入
      Text2．Text=Str（k）
  End Sub
  （1）题中函数fun主要采用的算法思想是

   

  ；
  （2）程序中①横线处应填写的代码是

   

  ；
  程序中②横线处应填写的代码是

   

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

  解析

• 17．【加试题】小李同学碰到了一个数学问题：400个同学按顺序进行编号后围成一个大圈，按1至2报数（从1号位置开始），报到2的同学出列，以此一直循环报数下去，问最后剩下的那位同学的编号是几号？
  例如以6个同学编号为例，按1至2报数（从1号位置开始）依次出列的编号次序为2-4-6-3-1-5，那么最后剩下的就是编号为5的同学．
  为了解决这个问题，小李用VB编写了如下程序尝试解决，其中列表List1显示出列的顺序编号，文本框Text1中显示最后留下的编号，程序代码如下（测试界面如图）．
  Private Sub Command1_Click（　　）
      Dim s,f,t As Integer
      Dim a（1 To 400）As Boolean
      For i=1 To 400
          a（i）=False
      Next i
      s=0
      f=0
      i=0
      Do While f＜399
          i=i+1
          If i=401 Then i=

   

  
          If a（i）=False Then s=s+1
          If s=2 Then
  

   

  
             List1．AddItem Str（i）
             a（i）=True
             f=

   

  
          EndIf
      Loop
      For i=1 To 400
          If

   

   Then Text1．Text=str（i）
      Next i
  End Sub
  为实现程序功能，在程序横线处填入合适的代码．
  （1）①处应填

   

  ；
  （2）②处应填

   

  ；
  （3）③处应填

   

  ；
  （4）④处应填

   

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

  解析