2020-2021学年浙江省温州市十校联合体高二（下）期末信息技术试卷

一、选择题(本大题共12小题,每小题2分,共24分。每小题列出的四个备选项中只有一个是符合题目要求的,不选、多选、错选均不得分)、

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

  A．计算机中的信息是以十六进制形式存储的

  B．声音、图像必须经过数字化后才有价值

  C．文字、声音、图像等既是载体，也是信息的表达技术

  D．算术运算和逻辑运算是计算机处理信息的基本运算
  组卷：5引用：2难度：0.7

  解析

• 2．下列应用中，不属于人工智能应用范畴的是（　　）

  A．使用指纹解锁功能解锁手机

  B．利用手持金属探测仪对旅客进行安检扫描

  C．某“在线翻译”系统将英文文章翻译成中文

  D．“无人驾驶汽车”在道路上行驶
  组卷：8引用：1难度：0.6

  解析

• 3．用 Access 软件设计某大学新生管理信息系统的数据库，其中“基本信息表”中需要存储如表所示的数据。
  

  学号	姓名	性别	出生年份	户籍所在地	注册日期	是否住校
  202002001	张阳	男	2002	温州市瓯海区	2020/8/31	是
  202003001	李玥	女	2001	宁波市北仑区	2020/8/30	否
  ...	...	...	...	...	...	...

  下列关于该新生管理信息系统的描述，正确的是（　　）

  A．该新生管理信息系统是数据库管理系统

  B．“姓名”字段设为主键，是合理的

  C．“基本信息表”中同一字段的字段值的数据类型一定相同

  D．该数据表中必定有一个字段的字段名为“户籍所在地”
  组卷：11引用：3难度：0.4

  解析

• 4．某数转换为十进制数为 n,若n\5=5，则该数可能是（　　）

  A．1DH

  B．21H

  C．10111B

  D．11111B
  组卷：5引用：1难度：0.5

  解析

• 5．使用 Photoshop 软件制作“四月你好”的作品，部分编辑界面如图所示。
  下列说法正确的是（　　）

  A．“背景”图层中的图像内容不可以进行修改

  B．可通过“自由变换”仅改变“传统节气”图层中“节气”文字的大小

  C．交换“节气解读”和“鱼”图层的顺序，不影响作品的呈现效果

  D．可通过“拷贝图层样式”将“夏至”图层的图层样式复制到莲花图层
  组卷：2引用：1难度：0.4

  解析

二、非选择题(本大题共4小题,共26分)

• 15．为方便习题讲解，需对某次考试中选择题得分率数据进行统计分析，找出选择题得分率最低的前m 项对应的题号及考点（若有与第 m 项得分率相同的，一并选取）。
  编写 VB 程序，实现上述功能。运行程序时，先读取每个选择题的题号、得分率和考点，显示在列表框 List1 中。在文本框 Text1 中输入得分率最低的前 m 项值，单击“统计”按钮，按照得分率从小到大升序排序，并在列表框 List2 中输出得分率最低前 m 项的题号、得分率及考点。程序运行界面如图所示。
  
  请回答下列问题：
  （1）“统计”按钮的事件过程名是

   

  。
  （2）实现上述功能的 VB 程序如下，请在横线处填入合适的代码。
  （3）程序中加框处代码有错，请改正。
  Dim n As Integer
  Dim th（0 To 100）As Integer,df（0 To 100）As Single,kd（1 To 100）As String Private Sub Form_Load（　　）
  '读取题号、得分率和考点分别存入数组 th、df 和 kd 数组，在列表框 List1 中显示，代码略
  '选择题的个数存入变量 n,代码略End Sub
  Function dq（x As String,k As Integer） As String
  '固定数据的位数
  dq=x
  Do While①

   

  
  dq=dq+““
  Loop
  End Function
  Private Sub Select_Click（　　）
  Dim m As Integer,i As Integer,j As Integer,p As Integer,t As Integer,mm As Integer
  List2.Clear
  m=Val（Text1.Text）
  i=1
  Do While i＜=n-1
  p=i
  For j=i+1 To n
  If ②

   

  Then p=j
  Next j
  If p＜＞i Then
  t=th（i）：th（i）=th（p）：th（p）=t
  End If
  If  Then Exit Do'改 错
  i=i+1
  Loop
  ③

   

  
  For i=1 To mm
  List2.AddItem dq（Str（th（i）），6）+dq（Str（df（th（i））），8）+dq（kd（th（i）），12）
  Next i End Sub
  组卷：0引用：1难度：0.3

  解析

• 16．在某区间内有若干个障碍物，现需找出一个最大的空正方形用于建设方形场地。如图所示，将该区间用网格表示（区间范围 m*n,m、n 的值均在 1-1000 之间），障碍物（黑色圆点） 位于若干个网点上，障碍物个数及位置随机生成。
  对 w*h（10*8）网格数据进行存储，无障碍物的位置对应数组元素数值为 0，有障碍物的位置对应数组元素数值为 1。数组 d 中数据初始化后，对应数组元素数值 d（2）=1：d（27）=1：d（33）=1：d（45）=1：d（52）=1：d（57）=1，其他数组元素数值为 0。对应最大空正方形的起始位置为 3，边长为 4。
  找最大空正方形的方法如下：①从当前位置右下角开始逐渐扩大正方形边长，直到有障碍物出现，不能再扩展为止；②取下一个位置，按照步骤①继续查找，最后 1 列为边界，该位置上无需查找。（1）给定 7*8 网格，有障碍物的位置为 d（8）=1：d（18）=1：d（27）=1：d（36）=1：d（52）=1，则对应最大空正方形的起始位置和边长分别为

   

  。（注：两个数字之间请用逗号“”，隔开）
  （2）小李根据上述描述，设计了一个查找最大的空正方形起始位置和边长的算法。算法的 VB 程序如下请在横线处填入合适的代码。
  Const w=10 Const h=8
  Dim d（1 To w*h） As Integer Private Sub Form_Load（　　）
  '数组初始化，无障碍物的位置对应数组元素值为 0，有障碍物的位置对应数组元素数值为 1
  End Sub
  Private Sub Command1_Click（　　）
  Dim i As Integer,length As Integer,maxw As Integer
  Dim max As Integer
  max=0
  For i=1 To w*h
  If i Mod w＜＞0 Then'判断该位置是否需要查找
  ①

   

  
  If length＞max Then max=length：maxw=i
  End If
  Next i
  '输出最大空正方形的起始位置和边长，代码略。End Sub
  Function scan（k As Integer） As Integer
  Dim j As Integer
  Dim t As Integer,s As Integer
  Dim dw As Integer
  t=1
  Do While k\w+1+t＜h And②

   

  
  s=0
  dw=k+w+1
  For j=1 To t^2
  s=s+d（dw+w*（（j-1）\t）+（j-1）Mod t）
  Next j
  If③

   

  Then
  Exit Do'退出循环
  Else
  t=t+1
  End If
  Loop
  scan=t End Function
  组卷：0引用：1难度：0.5

  解析