资源简介

中小学教育资源及组卷应用平台
2021-2022学年高二下学期信息技术期末试题（一）
试卷副标题
考试范围：xxx；考试时间：100分钟；命题人：xxx
注意事项：
1．答题前填写好自己的姓名、班级、考号等信息
2．请将答案正确填写在答题卡上
第I卷（选择题）
请点击修改第I卷的文字说明
一、选择题
1．2021年6月11日，海军招生宣传片《踏浪扬帆 崭新征程》在各大媒体重磅发布，很快引发社会广泛关注。以下关于信息的说法错误的是（ ）
A．“2021年6月11日”交代了事件发生的时间信息
B．海军招生宣传片发布后很快引发社会关注，体现了信息的共享性
C．宣传片中的文字、图像、声音、视频都是信息的表达方式
D．部分民众通过口耳相传得以了解宣传片内容，说明信息可以脱离载体而存在
【答案】D
【解析】
【详解】
本题主要考查信息的描述。部分民众通过口耳相传得以了解宣传片内容，信息依靠的载体是声音，信息不可以脱离载体而存在，故本题选D选项。
2．下列关于信息安全的做法，正确的是 （ ）
①直接打开朋友转发的网页链接
②开启杀毒软件的自动运行查杀功能
③将管理员密码修改为便于记忆的“123456”等字符
④使用Windows操作系统自动更新功能进行软件更新，修复系统漏洞
A．①② B．②③ C．②④ D．①②④
【答案】C
【解析】
【详解】
本题考查的是信息安全。直接打开朋友转发的网页链接和管理员密码修改为便于记忆的“123456”等字符都是不安全的方法，密码应该越复杂越安全。故选项C正确。
3．用 Access软件设计某APP管理数据库，其中已建好的“基本信息”数据表用于存储如图所示的数据。
编号 APP名称 容量 星级评分 最近更新 开发者 免费
1 酷狗音乐 88.7MB 4.8 2021/06/03 广州酷狗计算机科技有限公司 否
2 今日头条 13.3MB 4.4 2021/06/07 北京字节跳动科技有限公司 是
3 知乎 51.4MB 4.0 2020/06/11 智者四海技术有限公司 是
… … … … … … …
下列关于“基本信息”数据表的描述，正确的是 （ ）A．“基本信息”表中的字段顺序与图中数据的列顺序必须一致
B．通过数据库管理系统可以访问“基本信息”表中的数据
C．不能将上面数据以Excel形式导入数据库来创建数据表
D．图中“免费”列在该数据表中相应字段的数据类型一定是“是/否”
【答案】B
【解析】
【详解】
本题主要考查Access数据库。“基本信息”表中的字段顺序不必与图中数据的列顺序必须一致；通过数据库管理系统可以访问“基本信息”表中的数据；能将上面数据以Excel形式导入数据库来创建数据表；图中“免费”列在该数据表中相应字段的数据类型可能是“是/否”，也可能是文本类型，故本题选B选项。
4．用 UltraEdit 软件观察字符“十U，加油”的内码，部分界面如图所示。
下列描述正确的是 （ ）
A．字符“十”内码值的十进制表示小于128
B．字符“U”内码值对应的十进制数可能是偶数
C．字符“，”采用ASCII码，占1个字节
D．字符“油”内码值对应的二进制数中含有偶数个“1”
【答案】D
【解析】
【详解】
本题主要考查 UltraEdit 软件。由图可知，字符“十”占2个字节，其内码值的十进制表示大于128；字符“U”内码值是55，对应的十进制数是85；字符“，”不采用ASCII码，占2个字节；字符“油”内码值是D3 CD，对应的二进制数是1101 0011 1100 1101，含有10个“1”，故本题选D选项。
5．用PhotoShop软件制作“爱阅读”作品，部分编辑界面如图所示。下列说法正确的是（ ）

A．可以使用文字工具修改“宣传语”图层中的文字字体
B．“世界读书日4月23日”图层中的文字可用橡皮擦工具直接擦除
C．可以为“背景”图层设置“镜头光晕”的滤镜效果
D．将文件存储为BMP格式，“LOGO”图层的内容将可见
【答案】C
【解析】
【详解】
本题主要考查Photoshop软件。“宣传语”不是文字图层，不可以使用文字工具修改“宣传语”图层中的文字字体；“世界读书日4月23日”是文字图层，图层中的文字不可用橡皮擦工具直接擦除；可以为“背景”图层设置“镜头光晕”的滤镜效果；将文件存储为BMP格式，“LOGO”图层的内容将不可见，故本题选C选项。
6．使用GoldWave软件编辑某音频文件，选择其中一段音频后的部分界面如图所示。
下列操作会引起文件容量变大的是（ ）
A．执行增大音量操作后按原格式保存
B．选择声道为双声道后按原格式保存
C．执行“剪裁”操作后按原格式保存
D．执行“删除”操作后，插入10s静音，按原格式保存
【答案】D
【解析】
【详解】
本题主要考查GoldWave软件。音频文件容量与音量无关，立体声与双声道的容量相同；当前仅对左声道操作，执行“剪裁”操作后按原格式保存，音频容量不变；执行“删除”操作后，插入10s静音，按原格式保存，音频总时长变长，容量变大，故本题选D选项。
7．下列 VB 表达式中，值不为5的选项是 （ ）
A．Val(Mid("12345",5,1)) B．Abs(Int(-4.1))
C．sqr(12345 Mod 10) D．Len("天天向上!")
【答案】C
【解析】
【详解】
本题主要考查VB表达式的运算。Val(Mid("12345",5,1))=Val("5")=5，Abs(Int(-4.1)) =Abs(-5)=5，sqr(12345 Mod 10)=sqr(5) =2.24， Len("天天向上!")=5，故本题选C选项。
8．某算法的部分流程图如图所示。执行这部分流程，若输入 n 的值为“96175”，则输出的x值为 （ ）
A．2 B．3 C．4 D．5
【答案】B
【解析】
【详解】
本题主要考查算法流程图的执行。分析程序可知，从变量n的右边开始，判断相邻的两个值，若左边的数大于右边的数，则变量x递增，否则赋值x=1，初始值x=1，7>5，x=x+1=2；1<7，x=1；6>1，x=x+1=2；9>6，x=x+1=3，输出x的值为3，故本题选B选项。
9．斐波那契数列是指从第3项开始，每一项的值为前两项之和。该数列为：1、1、2、3、5、8、13……下列程序段用于求斐波那契数列的第n项的值：
n = Val(Text1.Text)
f1 = 1: f2 = 1
For i = 3 To n
Next i
Text2.Text = "第" + Str(n) + "项的值为：" + Str(f)
方框中代码由三部分组成：①f2 = f ②f1 = f2 ③f = f1 + f2。代码的正确顺序为（ ）
A．①②③ B．②①③ C．③①② D．③②①
【答案】D
【解析】
【详解】
本题主要考查VB程序的调试。斐波那契数列是指从第3项开始，每一项的值为前两项之和，故从第三项开始，首先计算第三项f=f1+f2，然后更新f1、f2的值，f1=f2，f2=f1，继续循环求下一项，故选D选项。
10．某算法的VB程序段如下：
For i = 1 To 2
k = i
For j = i + 1 To 6
If a(j) > a(k) Then k = j
Next j
If k <> i Then
t = a(i): a(i) = a(k): a(k) = t
End If
Next i
整型数组元素a(1)到 a(6)中依次存储的数据为81，79，92，65，88，90，执行该程序段后，a(1)到a(6)各元素值分别是（ ）
A．92 90 81 65 88 79 B．92 90 88 81 79 65
C．65 79 92 81 88 90 D．65 79 81 88 90 92
【答案】A
【解析】
【详解】
本题主要考查排序算法。分析程序可知，该程序实现降序排序，当i=1时，将最大值92与第一项交换，交换后a(1)到a(6)各元素值分别是92 79 81 65 88 90；当i=2时，将剩余数汇总最大值90与第二项交换，交换后a(1)到a(6)各元素值分别是92 90 81 65 88 79，故本题选A选项。
11．某算法的VB程序段如下：
Const n = 5
For i = 1 To n - 1
For j = i + 1 To n
If a(i) > a(j) Then
b(i) = b(i) + 1
Else
b(j) = b(j) + 1
End If
Next j
Next i
整型数组元素 a(1)到 a(5)中依次存储的数据为3，6，5，1，9，b(1)到 b(5)初值均为1，执行该程序段后，b(1)到b(5)各元素值分别是（ ）
A．1 2 3 4 5 B．1 3 2 0 4
C．4 2 3 5 1 D．2 4 3 1 5
【答案】D
【解析】
【详解】
本题考查的是VB循环嵌套。阅读程序可知b(i)统计的是数组中a(i)比数组a其它元素大的个数。 a(1)到 a(5)中依次存储的数据为3，6，5，1，9。3比组a其它元素大的个数为1；6比组a其它元素大的个数为3；5比组a其它元素大的个数为2；1比组a其它元素大的个数为0；9比组a其它元素大的个数为4。b(1)到 b(5)初值均为1，故执行该程序段后，b(1)到b(5)各元素值分别是2 4 3 1 5。选项D正确。
12．某对分查找算法的VB程序如下：
i = 1: j = 10: n = 0
Do While i <= j
m = (i + j) \ 2
n = n + 1
If a(m) <= Key Then
i = m + 1
Else
j = m - 1
End If
Loop
数组元素a(1)到a(10)互不相同且升序排列，以下数组元素作为查找键Key值中产生的n值与其他三项不同的是（ ）
A．a(1) B．a(3) C．a(7) D．a(9)
【答案】A
【解析】
【详解】
本题主要对分查找算法。二叉树查找如下，由图可知，查找a(1)，n值为3，查找a(3)、a(7)、a(9)，n的值为4，故本题选A选项。
第II卷（非选择题）
请点击修改第II卷的文字说明
二、操作题
13．小王收集了2021年第一季度全国累计农林牧渔业总产值数据，并使用Excel软件进行数据处理，如图a所示。
图a
请回答下列问题：
（1）区域H3:H32的数据是通过RANK函数计算得到，在H3单元格输入公式，再使用自动填充功能完成区域H4:H32的计算。则在H3单元格输入的公式应为______（单选，填字母A．=RANK(G3,G3:G32)/B．=RANK(G3,G$3:G$32)/C．=RANK(G3,$G3:$G32)）（提示：RANK函数是求某一个数值在某一区域内的排名，比如=RANK(A1,A1:A10)用于返回A1在区域A1:A10中的降序排名）
（2）对于A2:H32的数据进行相关统计，结果放在区域J2:O5如图a所示，对第13题图a中的数据分析，下列说法正确的是______（多选，填字母）。
A．若更改G列的数据，则H列的排名会随之改变
B．为了将中部地区农业产值最高的数据显示在当前工作表最前面，可以选择“农业”为主要关键字，“地区”为次要关键字均按降序排序
C．为了得到东部地区总产值最大的数据，可以“地区”为“东部地区”，“总产值”为最大1项进行筛选得到
D．先以“区域”为“西部地区”进行筛选，再以“渔业”为关键字降序排序与先以“渔业”为关键字降序排序，再以“区域”为“西部地区”进行筛选，两者得到的结果相同
（3）根据图a中的数据制作的图表如图b所示，创建图表的数据区域是__________。
图b
【答案】 B A D J2:K5,N2:N5
【解析】
【详解】
本题考查的是Excel表格的综合应用。（1）该处引用的为绝对地址，写法正确的是B.=RANK(G3,G$3:G$32)。（2）为了将中部地区农业产值最高的数据显示在当前工作表最前面，可以选择“地区”为主要关键字，“农业”为次要关键字均按降序排序，故选项B错误。得到东部地区总产值最大的数据，可以“地区”为“东部地区”筛选即可得到，选项C错误。故选项AD正确。（3）图表中含的数据范围是“东部地区”“中部地区”“西部地区”的农业和渔业，所以数据范围是J2:K5,N2:N5。
14．使用Flash软件创作“疫苗接种宣传”多媒体作品，部分编辑界面如图a所示。
图a
请回答下列问题：
（1）在创作之前进行了作品设计，下列说法正确的是_______（多选，填字母）。
A．确定作品的结构类型为演示型，属于作品的应用需求分析
B．制定使用Flash软件制作作品，属于作品的创作需求分析
C．将作品划分为片头、主交互界面、片尾等组成部分，属于系统结构设计
D．制定处理各种多媒体素材的方案，属于脚本大纲
E.在编写制作脚本之前，应该先设计好文字脚本
（2）在“音乐”图层的第37帧插入关键帧后，测试场景，该图层的声音在场景动画播放三秒后停止播放。由此可见，“音乐”图层中声音的同步属性为_______(选填:事件/开始/数据流)。
（3）“宣传语”图层第13帧中仅有的对象喇叭为形状，该帧已设置形状补间。测试场景时，第13帧到第36帧没有实现喇叭变为“疫苗种起来”的形状补间效果，原因是______________。
（4）在不改变其他动画播放效果的情况下，要实现“按钮”图层内容延迟1秒出现，下列操作可行的是_________（多选，填字母）。
A．“按钮”图层第13帧插入关键帧，第1帧清除关键帧
B．移动“按钮”图层第1帧到第13帧
C．“按钮”图层第1帧至第12帧删除帧
D．“按钮”图层第1帧清除帧，第13帧插入关键帧
E.“按钮”图层第13帧插入关键帧，删除第1帧中的内容
（5）测试影片，发现该场景动画播放完毕会自动跳转到当前场景第一帧并停止，则“背景”图层第60帧添加的动作脚本为_________。
【答案】 B C E 数据流 “宣传语”图层第36帧中对象没有分离成形状 B E gotoandstop(1);或gotoandstop(“main”,1);或其他等价答案
【解析】
【详解】
本题主要考查Flash动画制作。①需求分析包括应用需求分析和创作需求分析，其中应用需求分析包括：社会需求、用户情况、作品效益等，创作需求分析包括：对主题思想、作品内容、结构类型，硬件需求，发布方式等。确定作品的结构类型为演示型，属于作品的创作需求分析；制定处理各种多媒体素材的方案，属于媒体元素分解，故本题选BCE选项。②数据流是与时间轴同步时间轴不动它也不播放，事件是时间轴不播放了它也要播放完成，只有通过脚本才能停下来。fps=12，在“音乐”图层的第37帧插入关键帧后，测试场景，该图层的声音在场景动画播放三秒后停止播放。由此可见，“音乐”图层中声音的同步属性为数据流。③形状补间效果的前提对象要分离成形状，第13帧到第36帧没有实现喇叭变为“疫苗种起来”的形状补间效果，原因是“宣传语”图层第36帧中对象没有分离成形状。④fps=12，在不改变其他动画播放效果的情况下，要实现“按钮”图层内容延迟1秒出现，即将当前帧移到12帧以后，可以通过：移动“按钮”图层第1帧到第13帧，或“按钮”图层第1帧清除帧，第13帧插入关键帧，故选BE选项。⑤测试影片，发现该场景动画播放完毕会自动跳转到当前场景第一帧并停止，可以通过gotoandstop命令实现，则“背景”图层第60帧添加的动作脚本为gotoandstop(1);或gotoandstop(“main”,1);。
15．分解质因子。一个非素数的正整数可以表示成它的质因子（1和它本身除外）的乘积。编写程序实现如下功能：在文本框Text1中输入一个大于0且小于等于1000的合数，单击“分解”按钮Command1，在文本框Text2中显示其质因子分解式。如输入“36”，输出“36=2*2*3*3”。
（1）VB表达式Text1.Text中的Text1是_______（单选，填字母：A．对象名/B．属性名/C．属性值）。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
（3）程序加框处代码有错，请改正。
Private Sub Command1_Click()
Dim a(1 To 1000) As Integer
For i = 1 To 1000
a(i) = 0
Next i
s = ""
n = Val(Text1.Text)
__________
Do While i <= n
If __________ Then
a(i) = a(i) + 1
n = n \ i
Else
i = i + 1
End If
Loop
f = False
For i = 1 To 1000
If a(i) > 0 Then
For j = 1 To __________
If Not f Then
s = CStr(i) 'Cstr功能是将数据从其它类型转变为字符串类型
__________
Else
s = s + "*" + CStr(i)
End If
Next j
End If
Next i
Text2.Text = Text1.Text + "=" + s
End Sub
【答案】 A i = 2 n Mod i = 0 a(i) f = True
【解析】
【详解】
本题主要考查VB程序的执行与调试。①VB表达式Text1.Text中的Text1是对象名，Text是方法名，故本题选A选项。②一个非素数的正整数可以表示成它的质因子（1和它本身除外）的乘积，通过循环找出所有质因子，故变量i从2开始，故此处填i=2。③此处判断变量i是不是n的质因数，即n是否能整除i，故此处填n Mod i = 0。④数组a(i)保存质因子i的个数，此处通过循环将质因子i依次取出来，故加框处应改为a(i)。⑤变量f用来标记是否质因子i，当该因子取出后，赋值其为True，故此处填f=True。
16．小王基于冒泡排序算法编写了一个VB程序，实现数据分段排序。功能如下：在文本框Text1中输入产生的数据个数，单击“产生原始数据”按钮Command1，随机产生若干个不重复的整数依次存储在数组a中，并显示在文本框Text2中。在文本框Text3中输入每段数据的元素个数及排序的次序（0表示升序，1表示降序），数据之间用空格隔开，提取数据后，依次存储在数组b中。单击“排序”按钮Command2，根据要求输出数据排序的结果。部分运行界面如图所示。
（1）若在文本框Text1中输入“10”，文本框Text2中显示“29 25 95 52 50 38 46 51 23 44”，在文本框Text3中输入“3 1 4 0 3 0”，则排序后数据序列为_____（单选，填字母）。
A．25 29 95 52 50 46 38 51 44 23 B．95 29 25 38 46 50 52 23 44 51
C．95 29 25 38 46 50 52 51 44 23 D．23 25 29 38 44 46 50 51 52 95
（2）请在划线处填入合适的代码。
Dim a(1 To 100) As Integer
Dim b(1 To 100) As Integer
Dim n As Integer
Function sort(x As Integer, m As Integer, k As Integer) As Integer
Dim r As Integer, t As Integer
Dim i As Integer, j As Integer
If k = 0 Then k = -1
For i = 1 To m - 1
For j = x To x + m - 1 - i
If __________ Then
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
End If
Next j
Next i
sort = x + m
End Function
Private Sub Command1_Click()
n = Val(Text1.Text)
'产生n个不重复的随机整数依次存储在数组元素a(1)到a(n)中，并显示在文本框Text2
代码略
End Sub
Private Sub Command2_Click()
Dim y As Integer, d As Integer, c As Integer
Dim st As String, s As Integer
y = 1
st = Text3.Text
For i = 1 To Len(st)
ch = Mid(st, i, 1)
If ch >= "0" And ch <= "9" Then
__________
Else
If y Mod 2 = 1 Then s = s + b(y)
y = y + 1
End If
Next i
If s <> n Then
MsgBox ("排序数据量与数据总量不相等")
Else
c = 1
d = 1
Do While d <= n
d = __________
c = c + 1
Loop
For i = 1 To n
Text4.Text = Text4.Text + Str(a(i))
Next i
End If
End Sub
【答案】 B a(j) * k < a(j + 1) * k b(y) = b(y) * 10 + Val(ch) sort(d, b(c * 2 - 1), b(c * 2))
【解析】
【详解】
本题主要考查冒泡排序算法及VB程序实现。①若在文本框Text1中输入“10”，文本框Text2中显示“29 25 95 52 50 38 46 51 23 44”，在文本框Text3中输入“3 1 4 0 3 0”，前三个数进行降序排序，中间4个数进行升序排序，最后3个数进行升序排序，则排序后数据序列为95 29 25 38 46 50 52 23 44 51，故本题选B选项。②0表示升序，1表示降序。变量k用来标记是升序还是降序，此处比较j与j+1处值的大小，完成交换实现排序，故填a(j) * k < a(j + 1) * k。③数据之间用空格隔开，提取数据后，依次存储在数组b中，奇数位存放数据，用变量y的奇偶性判断，此处当截取的字符ch是数字，则将其保存到数组b(y)中，故填b(y) = b(y) * 10 + Val(ch)。④数组b奇数位索引保存每段数据的元素个数，偶数位索引保存排序的次序，sort(x,m,k)函数实现从x开始将m个元素按照k进行排序，排序后返回下一个分段的开始位置，即x+m。其中变量x用来标记排序起点，变量m用来标记从x开始参与排序的元素个数，变量k标记升序还是降序。此处变量d即每段开始的位置，d从1开始，sort排序后更新下一个d的开始位置，即d=sort(d, b(c * 2 - 1), b(c * 2))，故此处填sort(d, b(c * 2 - 1), b(c * 2))。
试卷第1页，共3页
21世纪教育网(www.21cnjy.com)中小学教育资源及组卷应用平台
2021-2022学年高二下学期信息技术期末试题（一）
试卷副标题
考试范围：xxx；考试时间：100分钟；命题人：xxx
注意事项：
1．答题前填写好自己的姓名、班级、考号等信息
2．请将答案正确填写在答题卡上
第I卷（选择题）
请点击修改第I卷的文字说明
一、选择题
1．2021年6月11日，海军招生宣传片《踏浪扬帆 崭新征程》在各大媒体重磅发布，很快引发社会广泛关注。以下关于信息的说法错误的是（ ）
A．“2021年6月11日”交代了事件发生的时间信息
B．海军招生宣传片发布后很快引发社会关注，体现了信息的共享性
C．宣传片中的文字、图像、声音、视频都是信息的表达方式
D．部分民众通过口耳相传得以了解宣传片内容，说明信息可以脱离载体而存在
2．下列关于信息安全的做法，正确的是 （ ）
①直接打开朋友转发的网页链接
②开启杀毒软件的自动运行查杀功能
③将管理员密码修改为便于记忆的“123456”等字符
④使用Windows操作系统自动更新功能进行软件更新，修复系统漏洞
A．①② B．②③ C．②④ D．①②④
3．用 Access软件设计某APP管理数据库，其中已建好的“基本信息”数据表用于存储如图所示的数据。
编号 APP名称 容量 星级评分 最近更新 开发者 免费
1 酷狗音乐 88.7MB 4.8 2021/06/03 广州酷狗计算机科技有限公司 否
2 今日头条 13.3MB 4.4 2021/06/07 北京字节跳动科技有限公司 是
3 知乎 51.4MB 4.0 2020/06/11 智者四海技术有限公司 是
… … … … … … …
下列关于“基本信息”数据表的描述，正确的是 （ ）A．“基本信息”表中的字段顺序与图中数据的列顺序必须一致
B．通过数据库管理系统可以访问“基本信息”表中的数据
C．不能将上面数据以Excel形式导入数据库来创建数据表
D．图中“免费”列在该数据表中相应字段的数据类型一定是“是/否”
4．用 UltraEdit 软件观察字符“十U，加油”的内码，部分界面如图所示。
下列描述正确的是 （ ）
A．字符“十”内码值的十进制表示小于128
B．字符“U”内码值对应的十进制数可能是偶数
C．字符“，”采用ASCII码，占1个字节
D．字符“油”内码值对应的二进制数中含有偶数个“1”
5．用PhotoShop软件制作“爱阅读”作品，部分编辑界面如图所示。下列说法正确的是（ ）

A．可以使用文字工具修改“宣传语”图层中的文字字体
B．“世界读书日4月23日”图层中的文字可用橡皮擦工具直接擦除
C．可以为“背景”图层设置“镜头光晕”的滤镜效果
D．将文件存储为BMP格式，“LOGO”图层的内容将可见
6．使用GoldWave软件编辑某音频文件，选择其中一段音频后的部分界面如图所示。
下列操作会引起文件容量变大的是（ ）
A．执行增大音量操作后按原格式保存
B．选择声道为双声道后按原格式保存
C．执行“剪裁”操作后按原格式保存
D．执行“删除”操作后，插入10s静音，按原格式保存
7．下列 VB 表达式中，值不为5的选项是 （ ）
A．Val(Mid("12345",5,1)) B．Abs(Int(-4.1))
C．sqr(12345 Mod 10) D．Len("天天向上!")
8．某算法的部分流程图如图所示。执行这部分流程，若输入 n 的值为“96175”，则输出的x值为 （ ）
A．2 B．3 C．4 D．5
9．斐波那契数列是指从第3项开始，每一项的值为前两项之和。该数列为：1、1、2、3、5、8、13……下列程序段用于求斐波那契数列的第n项的值：
n = Val(Text1.Text)
f1 = 1: f2 = 1
For i = 3 To n
Next i
Text2.Text = "第" + Str(n) + "项的值为：" + Str(f)
方框中代码由三部分组成：①f2 = f ②f1 = f2 ③f = f1 + f2。代码的正确顺序为（ ）
A．①②③ B．②①③ C．③①② D．③②①
10．某算法的VB程序段如下：
For i = 1 To 2
k = i
For j = i + 1 To 6
If a(j) > a(k) Then k = j
Next j
If k <> i Then
t = a(i): a(i) = a(k): a(k) = t
End If
Next i
整型数组元素a(1)到 a(6)中依次存储的数据为81，79，92，65，88，90，执行该程序段后，a(1)到a(6)各元素值分别是（ ）
A．92 90 81 65 88 79 B．92 90 88 81 79 65
C．65 79 92 81 88 90 D．65 79 81 88 90 92
11．某算法的VB程序段如下：
Const n = 5
For i = 1 To n - 1
For j = i + 1 To n
If a(i) > a(j) Then
b(i) = b(i) + 1
Else
b(j) = b(j) + 1
End If
Next j
Next i
整型数组元素 a(1)到 a(5)中依次存储的数据为3，6，5，1，9，b(1)到 b(5)初值均为1，执行该程序段后，b(1)到b(5)各元素值分别是（ ）
A．1 2 3 4 5 B．1 3 2 0 4
C．4 2 3 5 1 D．2 4 3 1 5
12．某对分查找算法的VB程序如下：
i = 1: j = 10: n = 0
Do While i <= j
m = (i + j) \ 2
n = n + 1
If a(m) <= Key Then
i = m + 1
Else
j = m - 1
End If
Loop
数组元素a(1)到a(10)互不相同且升序排列，以下数组元素作为查找键Key值中产生的n值与其他三项不同的是（ ）
A．a(1) B．a(3) C．a(7) D．a(9)
第II卷（非选择题）
请点击修改第II卷的文字说明
二、操作题
13．小王收集了2021年第一季度全国累计农林牧渔业总产值数据，并使用Excel软件进行数据处理，如图a所示。
图a
请回答下列问题：
（1）区域H3:H32的数据是通过RANK函数计算得到，在H3单元格输入公式，再使用自动填充功能完成区域H4:H32的计算。则在H3单元格输入的公式应为______（单选，填字母A．=RANK(G3,G3:G32)/B．=RANK(G3,G$3:G$32)/C．=RANK(G3,$G3:$G32)）（提示：RANK函数是求某一个数值在某一区域内的排名，比如=RANK(A1,A1:A10)用于返回A1在区域A1:A10中的降序排名）
（2）对于A2:H32的数据进行相关统计，结果放在区域J2:O5如图a所示，对第13题图a中的数据分析，下列说法正确的是______（多选，填字母）。
A．若更改G列的数据，则H列的排名会随之改变
B．为了将中部地区农业产值最高的数据显示在当前工作表最前面，可以选择“农业”为主要关键字，“地区”为次要关键字均按降序排序
C．为了得到东部地区总产值最大的数据，可以“地区”为“东部地区”，“总产值”为最大1项进行筛选得到
D．先以“区域”为“西部地区”进行筛选，再以“渔业”为关键字降序排序与先以“渔业”为关键字降序排序，再以“区域”为“西部地区”进行筛选，两者得到的结果相同
（3）根据图a中的数据制作的图表如图b所示，创建图表的数据区域是__________。
图b
14．使用Flash软件创作“疫苗接种宣传”多媒体作品，部分编辑界面如图a所示。
图a
请回答下列问题：
（1）在创作之前进行了作品设计，下列说法正确的是_______（多选，填字母）。
A．确定作品的结构类型为演示型，属于作品的应用需求分析
B．制定使用Flash软件制作作品，属于作品的创作需求分析
C．将作品划分为片头、主交互界面、片尾等组成部分，属于系统结构设计
D．制定处理各种多媒体素材的方案，属于脚本大纲
E.在编写制作脚本之前，应该先设计好文字脚本
（2）在“音乐”图层的第37帧插入关键帧后，测试场景，该图层的声音在场景动画播放三秒后停止播放。由此可见，“音乐”图层中声音的同步属性为_______(选填:事件/开始/数据流)。
（3）“宣传语”图层第13帧中仅有的对象喇叭为形状，该帧已设置形状补间。测试场景时，第13帧到第36帧没有实现喇叭变为“疫苗种起来”的形状补间效果，原因是______________。
（4）在不改变其他动画播放效果的情况下，要实现“按钮”图层内容延迟1秒出现，下列操作可行的是_________（多选，填字母）。
A．“按钮”图层第13帧插入关键帧，第1帧清除关键帧
B．移动“按钮”图层第1帧到第13帧
C．“按钮”图层第1帧至第12帧删除帧
D．“按钮”图层第1帧清除帧，第13帧插入关键帧
E.“按钮”图层第13帧插入关键帧，删除第1帧中的内容
（5）测试影片，发现该场景动画播放完毕会自动跳转到当前场景第一帧并停止，则“背景”图层第60帧添加的动作脚本为_________。
15．分解质因子。一个非素数的正整数可以表示成它的质因子（1和它本身除外）的乘积。编写程序实现如下功能：在文本框Text1中输入一个大于0且小于等于1000的合数，单击“分解”按钮Command1，在文本框Text2中显示其质因子分解式。如输入“36”，输出“36=2*2*3*3”。
（1）VB表达式Text1.Text中的Text1是_______（单选，填字母：A．对象名/B．属性名/C．属性值）。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
（3）程序加框处代码有错，请改正。
Private Sub Command1_Click()
Dim a(1 To 1000) As Integer
For i = 1 To 1000
a(i) = 0
Next i
s = ""
n = Val(Text1.Text)
__________
Do While i <= n
If __________ Then
a(i) = a(i) + 1
n = n \ i
Else
i = i + 1
End If
Loop
f = False
For i = 1 To 1000
If a(i) > 0 Then
For j = 1 To __________
If Not f Then
s = CStr(i) 'Cstr功能是将数据从其它类型转变为字符串类型
__________
Else
s = s + "*" + CStr(i)
End If
Next j
End If
Next i
Text2.Text = Text1.Text + "=" + s
End Sub
16．小王基于冒泡排序算法编写了一个VB程序，实现数据分段排序。功能如下：在文本框Text1中输入产生的数据个数，单击“产生原始数据”按钮Command1，随机产生若干个不重复的整数依次存储在数组a中，并显示在文本框Text2中。在文本框Text3中输入每段数据的元素个数及排序的次序（0表示升序，1表示降序），数据之间用空格隔开，提取数据后，依次存储在数组b中。单击“排序”按钮Command2，根据要求输出数据排序的结果。部分运行界面如图所示。
（1）若在文本框Text1中输入“10”，文本框Text2中显示“29 25 95 52 50 38 46 51 23 44”，在文本框Text3中输入“3 1 4 0 3 0”，则排序后数据序列为_____（单选，填字母）。
A．25 29 95 52 50 46 38 51 44 23 B．95 29 25 38 46 50 52 23 44 51
C．95 29 25 38 46 50 52 51 44 23 D．23 25 29 38 44 46 50 51 52 95
（2）请在划线处填入合适的代码。
Dim a(1 To 100) As Integer
Dim b(1 To 100) As Integer
Dim n As Integer
Function sort(x As Integer, m As Integer, k As Integer) As Integer
Dim r As Integer, t As Integer
Dim i As Integer, j As Integer
If k = 0 Then k = -1
For i = 1 To m - 1
For j = x To x + m - 1 - i
If __________ Then
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
End If
Next j
Next i
sort = x + m
End Function
Private Sub Command1_Click()
n = Val(Text1.Text)
'产生n个不重复的随机整数依次存储在数组元素a(1)到a(n)中，并显示在文本框Text2
代码略
End Sub
Private Sub Command2_Click()
Dim y As Integer, d As Integer, c As Integer
Dim st As String, s As Integer
y = 1
st = Text3.Text
For i = 1 To Len(st)
ch = Mid(st, i, 1)
If ch >= "0" And ch <= "9" Then
__________
Else
If y Mod 2 = 1 Then s = s + b(y)
y = y + 1
End If
Next i
If s <> n Then
MsgBox ("排序数据量与数据总量不相等")
Else
c = 1
d = 1
Do While d <= n
d = __________
c = c + 1
Loop
For i = 1 To n
Text4.Text = Text4.Text + Str(a(i))
Next i
End If
End Sub
试卷第1页，共3页
21世纪教育网(www.21cnjy.com)

展开更多......

收起↑