浙江省衢州市2021届高三上学期信息技术12月教学质量检测信息技术试卷
试卷更新日期：2021-02-01 类型：月考试卷
一、选择题
-
1. 下列有关信息与信息技术的说法，正确的是（ ）A、信息技术是计算机用来处理信息的一种技术 B、信息经过人的分析、综合和提炼，会有更高的使用价值 C、人们无法通过信息技术，将信息从一种形态转换为另一种形态 D、信息必须依附于某种载体，它不可以脱离它所反映的事物被存储和传播2. 关于网页与浏览器，下列说法不正确的是（ ）A、利用浏览器的收藏夹功能，可以方便记录网址 B、网页是通过TCP/IP协议进行浏览器与服务器之间的传输 C、网页中的文本、图像、超链接等元素是用HTML（超文本标记语言）描述的 D、在IE浏览器中，以“网页，仅HTML”类型保存网页，可以保存网页中的超链接3. 使用Access 软件设计一个数据表，存储如图所示的文件记录数据。
编号
索引号
主题分类
发布机构
公开时间
是否有效
1
11330800002618015K/2020-117888
年底实事项目计划
市电子政务中心
2020/12/11
有效
2
002482082/2020-07211
采购计划
市电子政务中心
2020/10/12
无效
3
002482082/2020-07356
.教育
省教育厅
2020/11/19
有效
…
…
…
…
…
…
下列表结构设计合理的是（ ）
A、
B、
C、
D、
4. 十进制正整数n转换为二进制数，该二进制数共3位，下列说法正确的是（ ）A、该二进制数末位数码对应权值是21 B、若该二进制数的首位为1，则n必大于4 C、若该二进制数的末位为1，则n+1一定为偶数 D、该二进制数首位去掉，转换为十进制数，所得的值是n\25. 使用Photoshop软件制作“江雪”作品，编辑界面如图所示。下列说法正确的是（ ）
A、调整“文字”图层的不透明度，该图层的图层样式不受影响 B、若要修改“标题”图层中对象的大小，可使用“自由变换”命令 C、若要实现透明背景，可用“橡皮擦”工具擦除“背景”图层内容 D、当前状态下直接保存文档，产生的文件名为“江雪.psd”，大小为1.21MB6. 一副未经压缩的1024*768像素的BMP图像文件，其存储容量约为768KB，则该图像每个像素色彩编码的位数为（ ）A、1bit B、8bit C、16bit D、24bit7. 下列VB表达式中，计算结果与其他不同的选项是（ ）A、Len("1+4=") B、17 Mod 13 \ 2 C、Abs(Int(-4.5)) D、Val(Mid(“2020520”，5，1))8. 某算法的部分流程图如图所示。执行这部分流程，若输入n的值为18，则输出c的值为（ ）
A、2 B、3 C、4 D、59. 有如下VB程序段：a(1) = 3:a(2) = 1:a(3) = 3
a(4) = 4 :a(5) = 6
pos = 1 : n = 5
For i = 1 To 10000
pos = (pos + a(pos) - 1) Mod n + 1
Next i
执行该程序段后，pos的值是（ ）
A、0 B、1 C、3 D、410. 有如下VB程序段：L = 0: R = 7: i = 1
Do While i < R
If a(i) = 0 Then
L = L + 1
t = a(i): a(i) = a(L): a(L) = t i = i + 1
ElseIf a(i) = 2 Then
R = R - 1
t = a(i): a(i) = a(R): a(R) = t
Else
i = i + 1
End If
Loop
数组元素 a(1)到 a(6)的值依次为“2，0，2，1，1，0”。执行该程序段后，下列说法不正确的是（ ）
A、变量L的值为2 B、变量R的值为5 C、变量i的值为4 D、数组元素值依次为“0，0，1，1，2，2”11. 有如下VB程序段：a(1) = 11 : a(2) = 14 : a(3) = 23 : a(4) = 23 : a(5) = 30 : a(6) = 42
key = Val(Text1.Text)
L = 1 : R = 6 : x = 0
Randomize
Do while L <= R
mid = Int(Rnd() * (R-L+1))+ L
If a(mid) = key Then
Exit Do
ElseIf a(mid) > key Then
R = mid - 1
x = x - 1
Else
L = mid + 1
x = x + 1
End If
Loop
If L <= R Then
Label1.Caption = "查找成功，" + "位置为" + str(mid)
Else
Label1.Caption = "查找失败"
End If
该程序执行后，在文本框Text1中输入23，则x的值不可能是（ ）
A、-3 B、-2 C、1 D、212. 某字符串s是由一个原始字符串反复重叠形成的。例如字符串"abcababcababcab"的是由原始字符串"abcab"重叠而成。为查找字符串s的原始字符串，有如下VB程序段:s = "abcababcababcab": L = Len(s)
For t = 1 To L \ 2 '枚举可能的原始长度
If L Mod t = 0 Then
For i = t + 1 To L Step t
If ① <> Mid(s， 1， t) Then Exit For
Next i
If i = L + 1 Then ans = ② : Exit For
End If
Next t
Text1.Text = ans
上述程序段划线处①②语句依次可为（ ）
A、①Mid(s， i， t) ②Mid(s， 1， t) B、①Mid(s， i， t) ②Mid(s， t， 1) C、①Mid(s， i Mod t， 1) ②Mid(s， 1， t) D、①Mid(s， i Mod t， 1) ②Mid(s， t， 1)二、非选择题
-
13. 小吴收集了NBA现役巨星的职业生涯数据，并用Excel软件进行数据处理，如图a所示。
图a
请回答下列问题：
(1)、如图a中所示，小吴已计算了G3单元格中的数据。他希望将单元格G3中的公式向下自动填充至G15，并正确计算出区域G3：G15中的数据，则G3单元格中的公式应修改为。(2)、根据图a中数据制作的图表如图b所示，创建该图表的数据区域是H9:J10，。
图b
(3)、若要对图a中的后卫球员以“罚球命中率%”为关键字进行降序排序，则排序选择的数据区域是。(4)、对区域A1：J15的数据进行筛选，设置“投篮命中率%”和“三分命中率%”的筛选方式均如图c所示，则筛选出（填数字）项数据。
图c
14. 小吴在疫情期间制作了“疫情防控宣传”动画，编辑界面如图所示。
图a
请回答下列问题。
(1)、在制作作品前，进行了相应的分析和规划。下列属于需求分析的是 （多选，填字母：）A、确定各种素材的获取方式 B、确定作品的主题与基本内容 C、确定制作所需的软件 D、设计作品结构 E、设计网络调查问卷用以分析不同群体对疫情的了解程度如何(2)、如图a所示，其中“文字”图层内容在动画停止播放后仍旧保持闪烁效果，则该图层中对象的元件类型为。(3)、若要“背景”图层中的音乐在动画播放1秒后开始播放，且不影响其他动画效果 ， 则“背景”图层可进行的操作为 （单选，填字母 ）A、将第1帧拖动至第12帧，并将第12帧舞台上的内容复制粘贴到第1帧 B、在第12帧插入关键帧，并删除第1帧中的声音 C、选中第1帧执行“剪切帧”，选中第12帧执行“粘贴帧”(4)、若要“文字”图层在第25帧到第30帧内容完全消失，且其他动画效果保持不变，则可进行的操作为。(5)、测试影片时，单击当前场景的“其他”按钮，打开网站：“http://www.gov.cn”，则“其他”按钮的动作脚本为。15. 小吴研究插入排序算法，若对无序数列5，2，9，5，3，利用传统的简单插入排序进行升序排序，其方法如下：首先将5取出，得到序列5；
第二步将2取出，插入序列得到2，5；
第三步将9取出，插入后得到2，5，9；
第四步将5取出，插入后得到2，5，5，9；
第五步将3取出，插入后得到2，3，5，5，9，排序完成。
小吴对这种插入排序进行了一些改进，将无序数列存入a数组中，将排序后的数据存入b数组中，同时保证b数组不存在重复的数字。对于重复出现的数字，用cnt数组记录重复个数。例如无序数列8、6、7、4、4、9、1、9、9、8，a(1)～a(10)存储原数据，b(1)～b(6)存储排序后的不重复数据，cnt(1)～cnt(6)存储每个数字重复的个数，如图a所示。
数组/下标
1
2
3
4
5
6
b
1
4
6
7
8
9
cnt
1
2
1
1
2
3
图a
程序运行后，自动随机生成原数组并显示在列表框List1中，点击按钮“开始”后，生成升序排序数组并显示在列表框List2中，程序运行界面如图b所示。
图b
请回答下列问题。
(1)、若要在窗体载入后让窗体标题显示“排序改进算法”，则下列操作可行的是 （单选，填字母。）A、直接将窗体属性栏中的“Text”属性值修改为“排序改进算法” B、在程序的Form_Load()事件中写上代码 Form1.Caption =“排序改进算法” C、在程序的Command1_Click()事件中写上代码Form1.Caption =“排序改进算法”(2)、请完成程序中的填空。Const n = 10
Dim a(0 To 100) As Integer， b(0 To 100) As Integer， cnt(1 To 100) As Integer
Dim Ln As Integer， pos As Integer 'Ln表示b数组的长度
Function search(key As Integer)
Dim i As Integer
For i = 1 To Ln
If b(i) >= key Then Exit For
Next i
search = i
End Function
Private Sub Command1_Click()
Dim i As Integer， j As Integer
Ln = 0
For i = 1 To n
pos =
If b(pos) <> a(i) Then
Ln = Ln + 1
j = Ln
Do While j > pos
b(j) = b(j - 1)
j = j - 1
Loop
b(j) = a(i)
cnt(pos) = 1
Else
End If
Next i
For i = 1 To Ln
For j = 1 To cnt(i)
List2.AddItem Str(b(i))
Next j
Next i
End Sub
Private Sub Form_Load()
For i = 1 To n
a(i) = Rnd() * 10 + 1
List1.AddItem Str(a(i))
Next i
End Sub
(3)、程序中加框处存在错误，请改正。16. 在挖金矿小游戏中，玩家通过指令控制小人运动，小人按照一定的规则将地底的金矿全部收集完毕。现将地底的截面可用一个n*n的矩阵表示，其中第一行表示地面，不会出现金矿；第2行至第n行表示地底。每一行中黑色格子表示金矿，白色格子表示空地，其中小人在矩阵左上角第一行第一列的位置。玩家通过4种指令控制小人运动：
· 左 X：小人向左移动X个格子
· 右 X：小人向右移动X个格子
· 下 X：小人向下移动X个格子
· 挖矿：收集小人所在格子的金矿
小人收集金矿需要遵循一定的规则：
①小人必须将当前行的金矿全部收集，才能去往下一行，即金矿需从上到下收集
②对于同一行的金矿，小人必须按照从左往右的顺序开始收集
现编写程序，以8*8的矩阵为例，在文本框Text1中输入金矿数量，点击按钮“开始”后，随机产生对应数量的金矿并借助图形控件输出（保证不会在同一个格子出现两个金矿），并且在列表框List1中按顺序输出指令，使小人按照规则得到所有金矿。如图a所示。请回答下列问题。
图a
(1)、现有4*4的地底截面如图b所示，小人在左上角位置，请写出任意一种可使小人按规则获得所有金矿的指令（指令之间用逗号或空格隔开）。
图b
(2)、请完成程序中的填空。Const n = 8 '程序以8*8的矩阵为例
Dim x(1 To n*n) As Integer, y(1 To n*n) As Integer '存储所有金矿的位置
Dim px As Integer, py As Integer '存储小人所在的位置
Dim i As Integer, j As Integer, m As Integer, tmp As Integer
Private Sub Command1_Click()
m = Val(Text1.Text)
Randomize
'随机产生m个金矿并通过图形控件显示在界面上，代码略
For i = 1 To m - 1
For j = 1 To m - i
'将所有金矿按照从上到下、从左到右的顺序排序，以符合题目描述的规则
If x(j) > x(j + 1) Or Then
tmp = x(j): x(j) = x(j + 1): x(j + 1) = tmp
tmp = y(j): y(j) = y(j + 1): y(j + 1) = tmp
End If
Next j
Next i
px = 1: py = 1
i = 1: j = 1
Do While j <= m
Do While x(j) = x(j + 1) And j <= m
j = j + 1
Loop
If y(i) < py Then
List1.AddItem "左" + Str(py - y(i))
ElseIf y(i) > py Then
List1.AddItem "右" + Str(y(i) - py)
End If
List1.AddItem "下" + Str)
List1.AddItem "挖矿"
For k = i + 1 To j
List1.AddItem "右" + Str(y(k) - y(k - 1))
List1.AddItem "挖矿"
Next k
px = x(j)
j = j + 1
i = j
Loop
End Sub