2019-2020学年浙江省宁波市海曙区效实中学高二（下）期中信息技术试卷

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

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

  A．电影技术、计算机技术和传感技术都属于现代信息技术

  B．信息的表示、存储和传播需要依附于载体

  C．信息只有通过计算机才能进行加工和处理

  D．文字、声音、图象、视频等都是信息
  组卷：33引用：2难度：0.7

  解析

• 2．下列描述中不属于人工智能应用范畴的是（　　）
  ①通过手机操控“无人机”高空拍摄视频
  ②医生在B超可视环境下给病人进行腹腔手术
  ③通过在线翻译网站将中文翻译为英文
  ④Word软件中的“自动更正”功能
  ⑤通过指纹解锁功能打开手机
  ⑥在手机上通过手写的方式输入文字

  A．①②④

  B．③⑤⑥

  C．①②⑥

  D．③④⑤
  组卷：5引用：1难度：0.6

  解析

• 3．使用Word软件编辑某文档，部分界面如图所示。下列说法正确的是（　　）
  

  A．修订前第一行的文字内容是“宁波效实中学校徽诞生于1987年由诗人校长朱敦礼参与构思，美术教师秦梁和初”

  B．删除批注中的“删除的内容甬江、姚江、奉化江”文字内容，此条批注也同步被删除

  C．用户“U”对文中首行的“宁波效实中学”添加批注，则批注框内显示的内容为“批注[U2]：宁波市白杨街178号”

  D．若要将文中所有的“宁波”改为“宁波市”，并将字体颜色改为红色，可使用Word中的“自动更正”功能来实现
  组卷：4引用：1难度：0.6

  解析

• 4．用ACCESS软件打开数据库，部分界面如图，下列说法不正确的是（　　）
  

  A．可以修改数据表第4条记录中“收藏日期”字段值为“2017-2-28”，数据表不会报错

  B．将当前数据表导出到EXCEL表格后，“是否借出”列将显示为“TRUE”或“FALSE”，并包含4行7列数据

  C．数据表中的“ID”列的字段类型是自动编号

  D．在当前选中记录位置插入新记录，新记录将添加在数据表的最后面。
  组卷：0引用：1难度：0.6

  解析

• 5．某算法的部分流程图如图所示，执行该流程，以下说法正确的是（　　）

  A．8

  B．16

  C．32

  D．64
  组卷：1引用：1难度：0.6

  解析

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

• 16．数组a中有20个正整数，以降序排序。在文本框Text1中输入一个正整数data,寻找数组中是否存在两个元素之差等于给定的数据。若是则输出这两个数（有多对数满足条件，只输出最先找到的数对）。否则输出“notfind”。实现此问题的算法程序如下，加框处代码有误，请改正。
  ①

   

  
  ②

   

  
  ③

   

  
  PrivateSubCommand1_Click （　　）
  Constn=20
  Dima（20）AsInteger
  DimdataAsInteger,leftAsInteger,rightAsInteger,mAsInteger
  DimfAsBoolean
  f=True
  data=Val（Text1．Text）
  '随机产生符合题意的数组a中各元素并按降序排序
  Fori=1Ton-1
  ①
  right=n
  DoWhile②
  m=（left+right）\2
  Ifa（i）-a（m）＞dataThen
  right=m-1
  ElseIfa（i）-a（m）＜dataThen
  left=m+1
  Else
  Text2．Text=a（i）&a（m）
  ③
  EndIf
  Loop
  Nexti
  Iff=TrueThenText2．Text=″notfind″
  EndSub
  组卷：0引用：1难度：0.3

  解析

• 17．数组a中存放着1到20的正整数，要求对其中的元素进行分段排序，在Text2中输入每段元素的个数，在文本框Text3中显示每段降序排序后的数据，其中多余的元素不做处理。具体程序实现如图所示。
  
  实现该功能的VB程序代码如下，请在横线处填入合适代码。
  Dima（0To100）AsInteger
  Consthigh=16
  PrivateSubForm_Load （　　）
  Randomize
  Fori=1Tohigh
  a（i）=Int（Rnd*20）+1
  Text1．Text=Text1．Text+Str（a（i））
  Nexti
  EndSub
  PrivateSubCommand1_Click （　　）
  DimpAsInteger,qAsInteger,tAsInteger
  DimmAsInteger,nAsInteger,kAsInteger
  m=Val（Text2．Text）
  Fori=1To①
  c=““
  Forj=1Tom
  p=②
  q=i*m
  k=sort（p,q）
  Ifa（k）＜＞a（p）Then
  t=a（p）：a（p）=a（k）：a（k）=t
  EndIf
  c=③
  Nextj
  Text3．Text=Text3．Text+″″+c
  Nexti
  EndSub
  Functionsort（fAsInteger,gAsInteger）AsInteger
  s=f
  Fori=fTog
  Ifa（i）＞a（s）Then
  s=i
  EndIf
  Nexti
  sort=s
  EndFunction
  组卷：0引用：1难度：0.3

  解析