资源简介

登录二一教育在线组卷平台 助您教考全无忧
浙江省诸暨市2021届高三上学期信息技术12月诊断性考试试卷
一、选择题(本大题共12小题，每小题2分，共24分。)
1．（2020高三上·诸暨月考）微信中有语音转文字功能，以下说法正确的是（　　）
A．语音和文字是信息，而微信是载体
B．微信属于信息表达方式，语音和文字属于信息表达技术
C．该功能主要采用了虚拟现实技术
D．该过程反映了信息具有可加工处理性
【答案】D
【知识点】信息及其特征；信息表达方式与表达技术
2．（2020高三上·诸暨月考）下列有关网页与浏览器的说法，不正确的是（　　）
A．使用不同的搜索引擎对相同关键词进行检索，得到的结果可能不同
B．用HTML（超文本标记语言）可以描述网页中的文本、图像和超链接等元素
C．在IE浏览器中，使用“添加到收藏夹”功能可以保存正在浏览的网页内容
D．在IE浏览器中，以“文本文件（*.txt）”类型保存网页，不能保存网页中的超链接地址
【答案】C
【知识点】网络资源的类型、下载与保存；浏览器；网络资源的检索；网页标记语言及基本组成
3．（2020高三上·诸暨月考）使用Access软件创建“jsxxb”数据表，其设计视图的部分界面如图所示。
下列说法正确的是（　　）
A．若将某个字段设置为主键，其数据类型必须为自动编号
B．将数据表导出到Excel，“高级教师”字段值将变为“是/否”字样
C．可以直接输入数字如“3000”作为“绩效工资”字段值
D．在当前状态下删除一行，将导致该数据表的记录数减少
【答案】C
【知识点】数据表、字段、记录的编辑；字段的数据类型
4．（2020高三上·诸暨月考）某加密算法如下：
1）以字节为单位对ASCII字符进行加密处理；
2）8位二进制数最高位不处理；
3）后7位做如下处理：先按位取反，再右移3位，最高位用右移出的最低位填充；
所得的8位二进制数即为密文的编码。已知某字符的密文为“i”，其对应的原文字符是（　　）
A．b B．u C．1 D．2
【答案】C
【知识点】字符编码
5．（2020高三上·诸暨月考）使用Photoshop软件制作“我的读书梦”作品，部分界面如图所示。
下列说法正确的是（　　）
A．可以使用文本工具修改“我的读书梦”图层中的文字字体
B．不能直接为“书香中国”图层设置“波浪”滤镜效果
C．在当前状态下执行“剪裁”操作，不会影响“背景”图层内容的呈现效果
D．拷贝“书香中国”图层样式到“我的读书梦”图层，可以保留“我的读书梦”图层的投影效果
【答案】B
【知识点】图片加工常用工具的使用；图层及图层的基本操作
6．（2020高三上·诸暨月考）一段时长为40秒、像素为1024*768，采用PAL制式（25帧/秒）且未经压缩的无声视频，以压缩比10:1转换为容量为75MB的MPG文件，则原始视频的颜色模式可能是（　　）
A．16色彩色 B．16位彩色 C．24位真彩色 D．256级灰度
【答案】D
【知识点】声音、图像、视频编码
7．（2020高三上·诸暨月考）下列VB表达式正确的是（　　）
A．a + |c| B．a1 + 2 C．3a - 1 D．2 × h / g
【答案】B
【知识点】运算符、基本运算与表达式
8．（2020高三上·诸暨月考）某算法的部分流程图如图所示。执行这部分流程，输入n的值为4，则输出值不可能的是（　　）
A．0 B．0.5 C．0.8 D．1
【答案】C
【知识点】流程图识读
9．（2020高三上·诸暨月考）已知k为十进制多位整数，与语句“If k \ 10 Mod 2 = 0 Then a = 1 Else a = 2”功能不同的是（　　）
A．If k \ 10 Mod 2 = 1 Then a = 2 Else a = 1
B．If k Mod 100 \ 10 Mod 2 = 0 Then a = 1 Else a = 2
C．a = 2 : If k \ 10 Mod 2 = 0 Then a = 1
D．a = 2 : If (k Mod 100) \ 10 Mod 2 = 0 Then a = 1
【答案】B
【知识点】运算符、基本运算与表达式；分支结构语句及程序实现
10．（2020高三上·诸暨月考）有VB程序段如下：
s1 = Text1.Text
s2 = ""
For i = 1 To Len(s1)
c = Mid(s1, i, 1)
If c >= "0" And c <= "9" Then
c = Chr((Asc(c) - Asc("0") + 1) Mod 10 + Asc("0"))
s2 = s2 + c
ElseIf c >= "A" And c <= "Z" Then
c = Chr(Asc(c) + 32)
s2 = c + s2
End If
Next i
Text2.Text = s2
执行该程序段，在文本框Text1中输入“GoLand,19”，则文本框Text2中显示的内容为（　　）
A．lg20 B．lg210 C．210,dnalog D．210,goland
【答案】A
【知识点】循环结构语句及程序实现；常用标准函数
11．（2020高三上·诸暨月考）有VB程序段如下：
p = Val(Text1.Text)
t = 0: j = 2: flag = True
s = Text1.Text + "="
Do While p > 1 And flag
If p Mod j = 0 Then
t = t + 1
p = p \ j
s = s + Str(j) + "*"
Else
If t = 1 Then flag = False
t = 0: j = j + 1
End If
If p = 1 And t = 1 Then flag = False
Loop
If flag Then
Text2.Text = Mid(s, 1, Len(s) - 1)
Else
Text2.Text = Text1.Text + "不是漂亮数"
End If
执行该程序段，在文本框Text1中输入6，则文本框Text2中显示的内容为（　　）
A．6= 2* 3 B．6= 2* 3* C．6= 1* 2* 3 D．6不是漂亮数
【答案】D
【知识点】分支结构语句及程序实现；循环结构语句及程序实现；常用标准函数
12．（2020高三上·诸暨月考）有数组a，其奇数下标的元素是降序排序的奇数，偶数下标的元素是降序排序的偶数，依据对分查找思想，设计一个在数组a中查找数据key的程序。部分程序段如下：
Key = Val(Text1.Text)
i = 1: j = 10: flag = False
Do While
m = Int((i + j) / 2 + 0.5)
If Then m = m - 1
If a(m) = Key Then
flag = True
ElseIf Then
i = m + 2
Else
j = m - 2
End If
Loop
If Not flag Then
Text2.Text = "查无数据"
Else
Text2.Text = "该数位置为" + Str(m)
End If
方框①②③中的代码依次为（　　）
A．①i <= j And Not flag ②Key Mod 2 + a(m) Mod 2 = 1 ③a(m) > Key
B．①i <= j And Not flag ②Key Mod 2 <> a(m) Mod 2 ③a(m) < Key
C．①i <= j Or Not flag ②Key Mod 2 + a(m) Mod 2 = 1 ③a(m) > Key
D．①i <= j Or Not flag ②Key Mod 2 <> a(m) Mod 2 ③a(m) < Key
【答案】A
【知识点】排序算法及程序实现
二、非选择题（本大题共4小题，4+8+7+7，共26分）
13．（2020高三上·诸暨月考）小李收集了近2年双十一部分商品的销售情况数据，并使用Excel软件进行数据处理，如图a所示。
图a
请回答下列问题：
（1）G4单元格统计的是“服饰”类商品销售总金额。通过G4单元格中的公式，对区域H4:I4进行自动填充，则H4单元格中显示的结果是　 　(单选，填字母:A .＃VALUE！/B
.5793.56.84/C .＃DIV/0！/D .0.00)。
（提示：SUMIF函数用于对满足条件的单元格求和。例如“=SUMIF(B4:B33,G3,E4:E33)”，用于统计2020年11月类别为“服饰”的金额总和。）
（2）若要正确计算H4和I4单元格中的数据，可对G4单元格中的公式进行修改，并对区域H4:I4进行自动填充，则G4单元格中的公式是　 　。
（3）在数据分析和数据挖掘前，通常先对数据进行各种处理。在完成以上计算的基础上，下列对数据处理和分析正确的是 （多选，填字母）。
图b
A．已知以G3:I4为数据区域创建了如图b所示的图表，则选中A3:E33区域，以“人数”为主要关键字进行升序排序，不会影响图表的呈现效果。
B．按“类别”为医疗器械，“金额（万元）”为最大1项进行筛选，筛选结果为金额最大的医疗器械类商品
C．假如G3单元格中“服饰”字样被误删，则G4单元格中的显示结果变为#REF。
D．先以“类别”为医疗器械进行筛选，再以“金额（万元）”为关键字降序排序，与先以“金额（万元）”为关键字降序排序，再以“类别”为医疗器械进行筛选，两种操作后选取排在最前面的商品相同。
【答案】（1）D
（2）=SUMIF($B$4:$B$33,G3,$E$4:$E$33)或 =SUMIF($B4:$B33,G3,$E4:$E33)
（3）A；D
【知识点】表格数据的处理与计算；表格数据的图表呈现
14．（2020高三上·诸暨月考）使用Flash软件创作“全城马拉松”多媒体作品，“主界面”场景的部分编辑界面如第图a所示。请回答下列问题：
图a
（1）下列对多媒体作品创作的说法正确的是 （多选，填字母）；
A．确定使用Flash软件来合成作品，属于创作需求分析
B．Flash属于以程序语言为基础的创作工具
C．将所需的原始素材列成表格，确定获取原始素材的方式并分类登记，属于脚本编写环节
D．作品的模块设计描述了该多媒体作品的组成部分、工作流程、主要界面
E．了解该作品的使用价值和使用频率如何，属于应用需求分析
（2）“人物”图层中实现了由库中的“奔跑的人”元件产生的实例从完全透明到完全显示的动画效果，则该图层第13帧到第48帧的动画类型是　 　（选填：逐帧动画/动画补间/形状补间），若调整第48帧中实例的大小，则“奔跑的人”元件　 　（选填：会/不会）同步变化。
（3）在“音乐”图层第1帧上添加了“music.wav”文件，其声音属性设置如图b所示。
图b
以下操作肯定不会改变声音播放效果的是　 　（单选：填字母：A .将声音的效果设置为“淡入”/B .将声音的同步属性修改为“数据流”/C .在“声音”图层第60帧执行“插入帧”操作）
（4）“大标题”图层第1帧至第36帧制作的是从完全透明到完全显示的动画效果，但测试场景时，发现没有成功，为了实现该动画效果，可以进行的操作是　 　。
（5）已知在“按钮”图层第60帧添加了“stop();”的动作命令，测试场景时，其实现的功能是 （单选：填字母）。
A．单击“按钮”时，停止该场景播放
B．单击“按钮”时，跳转到该场景第60帧并停止播放
C．该场景播放到第60帧时，自动停止播放
【答案】（1）A；C；E
（2）动画补间；不会
（3）C
（4）“大标题”图层第20帧执行“清除关键帧”操作
（5）C
【知识点】多媒体作品的规划和设计；动画的类型；动画的实现；多媒体数据采集与编辑软件；声音同步属性设置
15．（2020高三上·诸暨月考）索引排序是近年来各类模拟考试中的新宠，而“索引排序”是和“物理排序”相对应的概念，所谓物理排序就是改变数组元素存储的物理位置，即直接对数组进行排序；而索引排序通过增加一个索引数组来存储各数组元素的下标，在排序时不需要对原数组进行排序，只需对索引数组排序即可。小明为了探究索引排序，
编写VB程序演示索引排序算法，功能如下：在文本框Text1中输入各个数据（用“,”隔开和结尾），单击“读取”按钮Command1，将各个数据依次存储到数组a中；单击“排序”按钮Command2，则对索引数组b重新排列，使得数组a中的元素按升序存储到数组c中，分别将处理后的索引数组b和有序数组c显示在标签Label1和Label2中。部分运行界面如图所示。
请回答下列问题：
（1）下列对象中，无
Caption属性的是　 　（单选，填字母：mand1 / B .Text1/C . Form1）。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Dim n As Integer
Dim a(1 To 20) As Integer
Dim b(1 To 20) As Integer
Dim c(1 To 20) As Integer
Private Sub Command1_Click()
Dim i As Integer, t As String, ch As String
n = 0: t = ""
　 　
Do While i <= Len(Text1.Text)
ch = Mid(Text1.Text, i, 1)
If ch = "," Then
n = n + 1
　 　
b(n) = n
t =
""
Else
t = t + ch
End If
i = i + 1
Loop
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, t As
Integer
For i = 1 To n - 1
For j = n To i + 1 Step -1
If Then
t = b(j): b(j) = b(j - 1): b(j - 1) = t
End If
Next j
Next i
For i = 1 To n
　 　
Label1.Caption = Label1.Caption + Str(b(i))
Label2.Caption = Label2.Caption + Str(c(i))
Next i
End Sub
（3）程序加框处代码有错，请改正。
【答案】（1）B
（2）i = 1；a(n) = Val(t)；c(i) = a(b(i))
（3）a(b(j)) < a(b(j - 1))
【知识点】排序算法及程序实现；循环结构语句及程序实现
16．（2020高三上·诸暨月考）给定n个不同的正整数（小于等于100），将它们分组，使得每组中任意两个数互质（它们的公约数为1）。按照以下算法对n个数进行分组：
n个正整数由文本框Text1输入，依次存储到a数组中，b(1 to 25)中存储100内的素数，c数组存储每一组的数字个数及对应数字，d数组存储每一组内所含的质因子，相同质因子只存储一次，最后分组情况显示在列表框List1中。
c数组初始状态：
组别 第一组 第二组 …
位置 0 1 2 3 4 5 6 7 8 9 10 11 12 13 …
值 0 0 0 0 0 0 0 0 0 0 0 0 0 0 …
d数组初始状态：
组别 第一组 第二组 …
位置 1 2 3 4 5 6 … 25 26 27 28 29 30 … 50 …
值 0 0 0 0 0 0 … 0 0 0 0 0 0 … 0 …
若第一个数据为70，确定分组的过程为：先查找第一组内所含的质因子中是否含有70的质因子，未找到，则c数组中表示第一组数据个数的值加1，并将70添加到c数组的第一组内，同时在d数组第一组中依次添加70所含的各个质因子。
c数组变化情况：
组别 第一组 第二组 …
位置 0 1 2 3 4 5 6 7 8 9 10 11 12 13 …
值 1 70 0 0 0 0 0 0 0 0 0 0 0 0 …
d数组变化情况：
组别 第一组 第二组 …
位置 1 2 3 4 5 6 … 25 26 27 28 29 30 … 50 …
值 2 5 7 0 0 0 … 0 0 0 0 0 0 … 0 …
尝试将第2～n个整数分组。在确定某数分组的过程中，若已有的组内不存在该数所含的质因子，则将其分到第一个符合条件的组；否则，将其分到新生成的组中。
分组完毕后数组存储情况如下表。
c数组：
组别 第一组 第二组 …
位置 0 1 2 3 4 5 6 7 8 9 10 11 12 13 …
值 2 70 99 0 0 0 0 3 25 54 11 0 0 0 …
d数组：
组别 第一组 第二组 …
位置 1 2 3 4 5 6 … 25 26 27 28 29 30 … 50 …
值 2 5 7 3 11 0 … 0 5 2 3 11 0 … 0 …
按照上述要求编写一个VB程序，其运行界面如图所示。
（1）按照上述算法，若有“35、40、26、18、63、77 ”6个整数，至少分成　 　组（填具体数字）。
（2）请在划线处填入合适的代码。
Const n = 6 '数据个数
Dim a(1 To n) As Integer '存储原始数据
Dim b(1 To 25) As Integer '存储100以内的素数
Dim c(0 To (n + 1) * n) As
Integer '存储每一组的数字个数及对应数字
Dim d(1 To 25 * n) As
Integer 'd数组存储每一组内含有的质因子
Private Sub Command1_Click()
Dim t As Integer, i As Integer, j As
Integer
Dim k As Integer, m As Integer, p As
Integer
Dim y As Integer, zu As Integer
Dim st As String
For t = 1 To n
k = 1
i = 1
Do While d((k - 1) * 25 + i) <> 0
If a(t) Mod d((k - 1) * 25 + i) = 0 Then
　 　
i
= 0
End
If
i =
i + 1
Loop
m = (k - 1) * (n + 1) '每一组存储数字个数的所在位置
c(m) = c(m) + 1
　 　
For j = 1 To 25
If a(t) Mod b(j) = 0 Then
　 　
i = i + 1
End
If
Next j
Next t
p = 0
Do While c(p) > 0
st = ""
For i = 1 To c(p)
st = st + Str(c(p + i))
Next i
zu = p \ (n + 1) + 1
List1.AddItem "第" +
CStr(zu) + "组为:" + st
'Cstr的功能：将数值型转为字符串型
p = p + n + 1
y = y + 1
Loop
List1.AddItem "至少分：" +
CStr(y) + "组"
End Sub
Private Sub Form_Load()
'读取文本框Text1中的各个数据依次存储到数组a中，存储100以内的素数到数组b中，代码略
End Sub
【答案】（1）3
（2）k = k + 1；c(m + c(m)) = a(t)；d((k - 1) * 25 + i) = b(j)
【知识点】查找算法及程序实现；循环结构语句及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1登录二一教育在线组卷平台 助您教考全无忧
浙江省诸暨市2021届高三上学期信息技术12月诊断性考试试卷
一、选择题(本大题共12小题，每小题2分，共24分。)
1．（2020高三上·诸暨月考）微信中有语音转文字功能，以下说法正确的是（　　）
A．语音和文字是信息，而微信是载体
B．微信属于信息表达方式，语音和文字属于信息表达技术
C．该功能主要采用了虚拟现实技术
D．该过程反映了信息具有可加工处理性
2．（2020高三上·诸暨月考）下列有关网页与浏览器的说法，不正确的是（　　）
A．使用不同的搜索引擎对相同关键词进行检索，得到的结果可能不同
B．用HTML（超文本标记语言）可以描述网页中的文本、图像和超链接等元素
C．在IE浏览器中，使用“添加到收藏夹”功能可以保存正在浏览的网页内容
D．在IE浏览器中，以“文本文件（*.txt）”类型保存网页，不能保存网页中的超链接地址
3．（2020高三上·诸暨月考）使用Access软件创建“jsxxb”数据表，其设计视图的部分界面如图所示。
下列说法正确的是（　　）
A．若将某个字段设置为主键，其数据类型必须为自动编号
B．将数据表导出到Excel，“高级教师”字段值将变为“是/否”字样
C．可以直接输入数字如“3000”作为“绩效工资”字段值
D．在当前状态下删除一行，将导致该数据表的记录数减少
4．（2020高三上·诸暨月考）某加密算法如下：
1）以字节为单位对ASCII字符进行加密处理；
2）8位二进制数最高位不处理；
3）后7位做如下处理：先按位取反，再右移3位，最高位用右移出的最低位填充；
所得的8位二进制数即为密文的编码。已知某字符的密文为“i”，其对应的原文字符是（　　）
A．b B．u C．1 D．2
5．（2020高三上·诸暨月考）使用Photoshop软件制作“我的读书梦”作品，部分界面如图所示。
下列说法正确的是（　　）
A．可以使用文本工具修改“我的读书梦”图层中的文字字体
B．不能直接为“书香中国”图层设置“波浪”滤镜效果
C．在当前状态下执行“剪裁”操作，不会影响“背景”图层内容的呈现效果
D．拷贝“书香中国”图层样式到“我的读书梦”图层，可以保留“我的读书梦”图层的投影效果
6．（2020高三上·诸暨月考）一段时长为40秒、像素为1024*768，采用PAL制式（25帧/秒）且未经压缩的无声视频，以压缩比10:1转换为容量为75MB的MPG文件，则原始视频的颜色模式可能是（　　）
A．16色彩色 B．16位彩色 C．24位真彩色 D．256级灰度
7．（2020高三上·诸暨月考）下列VB表达式正确的是（　　）
A．a + |c| B．a1 + 2 C．3a - 1 D．2 × h / g
8．（2020高三上·诸暨月考）某算法的部分流程图如图所示。执行这部分流程，输入n的值为4，则输出值不可能的是（　　）
A．0 B．0.5 C．0.8 D．1
9．（2020高三上·诸暨月考）已知k为十进制多位整数，与语句“If k \ 10 Mod 2 = 0 Then a = 1 Else a = 2”功能不同的是（　　）
A．If k \ 10 Mod 2 = 1 Then a = 2 Else a = 1
B．If k Mod 100 \ 10 Mod 2 = 0 Then a = 1 Else a = 2
C．a = 2 : If k \ 10 Mod 2 = 0 Then a = 1
D．a = 2 : If (k Mod 100) \ 10 Mod 2 = 0 Then a = 1
10．（2020高三上·诸暨月考）有VB程序段如下：
s1 = Text1.Text
s2 = ""
For i = 1 To Len(s1)
c = Mid(s1, i, 1)
If c >= "0" And c <= "9" Then
c = Chr((Asc(c) - Asc("0") + 1) Mod 10 + Asc("0"))
s2 = s2 + c
ElseIf c >= "A" And c <= "Z" Then
c = Chr(Asc(c) + 32)
s2 = c + s2
End If
Next i
Text2.Text = s2
执行该程序段，在文本框Text1中输入“GoLand,19”，则文本框Text2中显示的内容为（　　）
A．lg20 B．lg210 C．210,dnalog D．210,goland
11．（2020高三上·诸暨月考）有VB程序段如下：
p = Val(Text1.Text)
t = 0: j = 2: flag = True
s = Text1.Text + "="
Do While p > 1 And flag
If p Mod j = 0 Then
t = t + 1
p = p \ j
s = s + Str(j) + "*"
Else
If t = 1 Then flag = False
t = 0: j = j + 1
End If
If p = 1 And t = 1 Then flag = False
Loop
If flag Then
Text2.Text = Mid(s, 1, Len(s) - 1)
Else
Text2.Text = Text1.Text + "不是漂亮数"
End If
执行该程序段，在文本框Text1中输入6，则文本框Text2中显示的内容为（　　）
A．6= 2* 3 B．6= 2* 3* C．6= 1* 2* 3 D．6不是漂亮数
12．（2020高三上·诸暨月考）有数组a，其奇数下标的元素是降序排序的奇数，偶数下标的元素是降序排序的偶数，依据对分查找思想，设计一个在数组a中查找数据key的程序。部分程序段如下：
Key = Val(Text1.Text)
i = 1: j = 10: flag = False
Do While
m = Int((i + j) / 2 + 0.5)
If Then m = m - 1
If a(m) = Key Then
flag = True
ElseIf Then
i = m + 2
Else
j = m - 2
End If
Loop
If Not flag Then
Text2.Text = "查无数据"
Else
Text2.Text = "该数位置为" + Str(m)
End If
方框①②③中的代码依次为（　　）
A．①i <= j And Not flag ②Key Mod 2 + a(m) Mod 2 = 1 ③a(m) > Key
B．①i <= j And Not flag ②Key Mod 2 <> a(m) Mod 2 ③a(m) < Key
C．①i <= j Or Not flag ②Key Mod 2 + a(m) Mod 2 = 1 ③a(m) > Key
D．①i <= j Or Not flag ②Key Mod 2 <> a(m) Mod 2 ③a(m) < Key
二、非选择题（本大题共4小题，4+8+7+7，共26分）
13．（2020高三上·诸暨月考）小李收集了近2年双十一部分商品的销售情况数据，并使用Excel软件进行数据处理，如图a所示。
图a
请回答下列问题：
（1）G4单元格统计的是“服饰”类商品销售总金额。通过G4单元格中的公式，对区域H4:I4进行自动填充，则H4单元格中显示的结果是　 　(单选，填字母:A .＃VALUE！/B
.5793.56.84/C .＃DIV/0！/D .0.00)。
（提示：SUMIF函数用于对满足条件的单元格求和。例如“=SUMIF(B4:B33,G3,E4:E33)”，用于统计2020年11月类别为“服饰”的金额总和。）
（2）若要正确计算H4和I4单元格中的数据，可对G4单元格中的公式进行修改，并对区域H4:I4进行自动填充，则G4单元格中的公式是　 　。
（3）在数据分析和数据挖掘前，通常先对数据进行各种处理。在完成以上计算的基础上，下列对数据处理和分析正确的是 （多选，填字母）。
图b
A．已知以G3:I4为数据区域创建了如图b所示的图表，则选中A3:E33区域，以“人数”为主要关键字进行升序排序，不会影响图表的呈现效果。
B．按“类别”为医疗器械，“金额（万元）”为最大1项进行筛选，筛选结果为金额最大的医疗器械类商品
C．假如G3单元格中“服饰”字样被误删，则G4单元格中的显示结果变为#REF。
D．先以“类别”为医疗器械进行筛选，再以“金额（万元）”为关键字降序排序，与先以“金额（万元）”为关键字降序排序，再以“类别”为医疗器械进行筛选，两种操作后选取排在最前面的商品相同。
14．（2020高三上·诸暨月考）使用Flash软件创作“全城马拉松”多媒体作品，“主界面”场景的部分编辑界面如第图a所示。请回答下列问题：
图a
（1）下列对多媒体作品创作的说法正确的是 （多选，填字母）；
A．确定使用Flash软件来合成作品，属于创作需求分析
B．Flash属于以程序语言为基础的创作工具
C．将所需的原始素材列成表格，确定获取原始素材的方式并分类登记，属于脚本编写环节
D．作品的模块设计描述了该多媒体作品的组成部分、工作流程、主要界面
E．了解该作品的使用价值和使用频率如何，属于应用需求分析
（2）“人物”图层中实现了由库中的“奔跑的人”元件产生的实例从完全透明到完全显示的动画效果，则该图层第13帧到第48帧的动画类型是　 　（选填：逐帧动画/动画补间/形状补间），若调整第48帧中实例的大小，则“奔跑的人”元件　 　（选填：会/不会）同步变化。
（3）在“音乐”图层第1帧上添加了“music.wav”文件，其声音属性设置如图b所示。
图b
以下操作肯定不会改变声音播放效果的是　 　（单选：填字母：A .将声音的效果设置为“淡入”/B .将声音的同步属性修改为“数据流”/C .在“声音”图层第60帧执行“插入帧”操作）
（4）“大标题”图层第1帧至第36帧制作的是从完全透明到完全显示的动画效果，但测试场景时，发现没有成功，为了实现该动画效果，可以进行的操作是　 　。
（5）已知在“按钮”图层第60帧添加了“stop();”的动作命令，测试场景时，其实现的功能是 （单选：填字母）。
A．单击“按钮”时，停止该场景播放
B．单击“按钮”时，跳转到该场景第60帧并停止播放
C．该场景播放到第60帧时，自动停止播放
15．（2020高三上·诸暨月考）索引排序是近年来各类模拟考试中的新宠，而“索引排序”是和“物理排序”相对应的概念，所谓物理排序就是改变数组元素存储的物理位置，即直接对数组进行排序；而索引排序通过增加一个索引数组来存储各数组元素的下标，在排序时不需要对原数组进行排序，只需对索引数组排序即可。小明为了探究索引排序，
编写VB程序演示索引排序算法，功能如下：在文本框Text1中输入各个数据（用“,”隔开和结尾），单击“读取”按钮Command1，将各个数据依次存储到数组a中；单击“排序”按钮Command2，则对索引数组b重新排列，使得数组a中的元素按升序存储到数组c中，分别将处理后的索引数组b和有序数组c显示在标签Label1和Label2中。部分运行界面如图所示。
请回答下列问题：
（1）下列对象中，无
Caption属性的是　 　（单选，填字母：mand1 / B .Text1/C . Form1）。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Dim n As Integer
Dim a(1 To 20) As Integer
Dim b(1 To 20) As Integer
Dim c(1 To 20) As Integer
Private Sub Command1_Click()
Dim i As Integer, t As String, ch As String
n = 0: t = ""
　 　
Do While i <= Len(Text1.Text)
ch = Mid(Text1.Text, i, 1)
If ch = "," Then
n = n + 1
　 　
b(n) = n
t =
""
Else
t = t + ch
End If
i = i + 1
Loop
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, t As
Integer
For i = 1 To n - 1
For j = n To i + 1 Step -1
If Then
t = b(j): b(j) = b(j - 1): b(j - 1) = t
End If
Next j
Next i
For i = 1 To n
　 　
Label1.Caption = Label1.Caption + Str(b(i))
Label2.Caption = Label2.Caption + Str(c(i))
Next i
End Sub
（3）程序加框处代码有错，请改正。
16．（2020高三上·诸暨月考）给定n个不同的正整数（小于等于100），将它们分组，使得每组中任意两个数互质（它们的公约数为1）。按照以下算法对n个数进行分组：
n个正整数由文本框Text1输入，依次存储到a数组中，b(1 to 25)中存储100内的素数，c数组存储每一组的数字个数及对应数字，d数组存储每一组内所含的质因子，相同质因子只存储一次，最后分组情况显示在列表框List1中。
c数组初始状态：
组别 第一组 第二组 …
位置 0 1 2 3 4 5 6 7 8 9 10 11 12 13 …
值 0 0 0 0 0 0 0 0 0 0 0 0 0 0 …
d数组初始状态：
组别 第一组 第二组 …
位置 1 2 3 4 5 6 … 25 26 27 28 29 30 … 50 …
值 0 0 0 0 0 0 … 0 0 0 0 0 0 … 0 …
若第一个数据为70，确定分组的过程为：先查找第一组内所含的质因子中是否含有70的质因子，未找到，则c数组中表示第一组数据个数的值加1，并将70添加到c数组的第一组内，同时在d数组第一组中依次添加70所含的各个质因子。
c数组变化情况：
组别 第一组 第二组 …
位置 0 1 2 3 4 5 6 7 8 9 10 11 12 13 …
值 1 70 0 0 0 0 0 0 0 0 0 0 0 0 …
d数组变化情况：
组别 第一组 第二组 …
位置 1 2 3 4 5 6 … 25 26 27 28 29 30 … 50 …
值 2 5 7 0 0 0 … 0 0 0 0 0 0 … 0 …
尝试将第2～n个整数分组。在确定某数分组的过程中，若已有的组内不存在该数所含的质因子，则将其分到第一个符合条件的组；否则，将其分到新生成的组中。
分组完毕后数组存储情况如下表。
c数组：
组别 第一组 第二组 …
位置 0 1 2 3 4 5 6 7 8 9 10 11 12 13 …
值 2 70 99 0 0 0 0 3 25 54 11 0 0 0 …
d数组：
组别 第一组 第二组 …
位置 1 2 3 4 5 6 … 25 26 27 28 29 30 … 50 …
值 2 5 7 3 11 0 … 0 5 2 3 11 0 … 0 …
按照上述要求编写一个VB程序，其运行界面如图所示。
（1）按照上述算法，若有“35、40、26、18、63、77 ”6个整数，至少分成　 　组（填具体数字）。
（2）请在划线处填入合适的代码。
Const n = 6 '数据个数
Dim a(1 To n) As Integer '存储原始数据
Dim b(1 To 25) As Integer '存储100以内的素数
Dim c(0 To (n + 1) * n) As
Integer '存储每一组的数字个数及对应数字
Dim d(1 To 25 * n) As
Integer 'd数组存储每一组内含有的质因子
Private Sub Command1_Click()
Dim t As Integer, i As Integer, j As
Integer
Dim k As Integer, m As Integer, p As
Integer
Dim y As Integer, zu As Integer
Dim st As String
For t = 1 To n
k = 1
i = 1
Do While d((k - 1) * 25 + i) <> 0
If a(t) Mod d((k - 1) * 25 + i) = 0 Then
　 　
i
= 0
End
If
i =
i + 1
Loop
m = (k - 1) * (n + 1) '每一组存储数字个数的所在位置
c(m) = c(m) + 1
　 　
For j = 1 To 25
If a(t) Mod b(j) = 0 Then
　 　
i = i + 1
End
If
Next j
Next t
p = 0
Do While c(p) > 0
st = ""
For i = 1 To c(p)
st = st + Str(c(p + i))
Next i
zu = p \ (n + 1) + 1
List1.AddItem "第" +
CStr(zu) + "组为:" + st
'Cstr的功能：将数值型转为字符串型
p = p + n + 1
y = y + 1
Loop
List1.AddItem "至少分：" +
CStr(y) + "组"
End Sub
Private Sub Form_Load()
'读取文本框Text1中的各个数据依次存储到数组a中，存储100以内的素数到数组b中，代码略
End Sub
答案解析部分
1．【答案】D
【知识点】信息及其特征；信息表达方式与表达技术
2．【答案】C
【知识点】网络资源的类型、下载与保存；浏览器；网络资源的检索；网页标记语言及基本组成
3．【答案】C
【知识点】数据表、字段、记录的编辑；字段的数据类型
4．【答案】C
【知识点】字符编码
5．【答案】B
【知识点】图片加工常用工具的使用；图层及图层的基本操作
6．【答案】D
【知识点】声音、图像、视频编码
7．【答案】B
【知识点】运算符、基本运算与表达式
8．【答案】C
【知识点】流程图识读
9．【答案】B
【知识点】运算符、基本运算与表达式；分支结构语句及程序实现
10．【答案】A
【知识点】循环结构语句及程序实现；常用标准函数
11．【答案】D
【知识点】分支结构语句及程序实现；循环结构语句及程序实现；常用标准函数
12．【答案】A
【知识点】排序算法及程序实现
13．【答案】（1）D
（2）=SUMIF($B$4:$B$33,G3,$E$4:$E$33)或 =SUMIF($B4:$B33,G3,$E4:$E33)
（3）A；D
【知识点】表格数据的处理与计算；表格数据的图表呈现
14．【答案】（1）A；C；E
（2）动画补间；不会
（3）C
（4）“大标题”图层第20帧执行“清除关键帧”操作
（5）C
【知识点】多媒体作品的规划和设计；动画的类型；动画的实现；多媒体数据采集与编辑软件；声音同步属性设置
15．【答案】（1）B
（2）i = 1；a(n) = Val(t)；c(i) = a(b(i))
（3）a(b(j)) < a(b(j - 1))
【知识点】排序算法及程序实现；循环结构语句及程序实现
16．【答案】（1）3
（2）k = k + 1；c(m + c(m)) = a(t)；d((k - 1) * 25 + i) = b(j)
【知识点】查找算法及程序实现；循环结构语句及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1

展开更多......

收起↑