资源简介

浙江省浙南名校联盟2021-2022学年高三上学期信息技术10月第一次联考试卷
一、选择题
1．（2021高三上·浙江月考）下列关于信息和信息技术的说法，正确的是（　　）
A．Word、PPT是信息的一种表达技术，其中的文字、图像就是信息
B．信息可以通过人与人的交流来传递和共享，但在传递和共享的过程中可能会产生损耗
C．在APP上注册账号时，使用大小写字母、数字、符号组合成的密码，提高了账号信息的安全性
D．苹果设备之间可以使用“隔空投送”发送文件，因此信息的传播可以不依附于载体
【答案】C
【知识点】信息及其特征；信息系统安全防护
2．（2021高三上·浙江月考）下列关于网页与浏览器的说法，不正确的是（　　）
A．网页超链接的链接目标可以是网页、图像、视频
B．浏览器与Web服务器之间的信息传输一般采用HTTP协议
C．若POP3协议发生错误，则电子邮件无法发送到收件人的邮件服务器中
D．在IE浏览器中可以以“单个文件（*mht）”格式另存网页
【答案】C
【知识点】网络协议；网络资源的类型、下载与保存
3．（2021高三上·浙江月考）某Access数据表中的记录与字段的数据类型如下图所示。下列说法正确的是（　　）
A．当前数据表视图下，删除“进价”字段的操作可以撤销
B．若改变产品“冰箱”的售价，其对应的销售额的字段值也会发生改变
C．可以在产品“电视机”和“热水器”两条记录中间插入一条ID为4，产品名为“空调”的记录
D．当前状态下不可以对“日用品销售表”重命名
【答案】D
【知识点】数据表、字段、记录的编辑；数据表视图与设计视图
4．（2021高三上·浙江月考）下列有关信息编码的说法，正确的是（　　）
A．字符“Hey~假期”存储在计算机中，至少需要8个字节
B．已知字符“29”的十六进制内码为“32 39”，则字符“30”的十六进制内码为“33 3A”
C．十进制数26转换为二进制数是100110
D．某4位十六进制数n，其末位数字为0，若转换为十进制数m，无法确定m能否被16整除
【答案】A
【知识点】进制及数制转换；字符编码
5．（2021高三上·浙江月考）使用Photoshop软件制作“烟花易冷”作品，部分编辑界面如图所示。下列说法正确的是（　　）
A．“烟花”图层可能添加了滤镜
B．不可以将“树”图层移动到“叶”图层上方
C．“背景”图层不可以调整不透明度，也不能隐藏
D．将“易冷”图层的图层样式复制到“烟花”图层后，“烟花”图层显示投影、外发光效果
【答案】D
【知识点】图层及图层的基本操作
6．（2021高三上·浙江月考）将帧频为10fps、总帧数为120帧的Flash动画作品导出为不压缩的无声AVI视频文件，其参数为768*1024像素、32位真彩色，该视频文件的存储容量约为（　　）
A．2．81GB B．360MB C．36MB D．30MB
【答案】B
【知识点】声音、图像、视频编码
7．（2021高三上·浙江月考）下列VB表达式的值与其他三项结果不同的是（　　）
A．Len（"河南加油！"）Mod4\2+2
B．Int（Val（Mid（"烟花392"，3，2））/10）
C．12\2*3-15
D．9^0.5+Int（Rnd（））
【答案】C
【知识点】运算符、基本运算与表达式
8．（2021高三上·浙江月考）某算法部分流程图如图所示。执行该流程后，若输入的值为47和3，则输出s的值为（　　）
A．20 B．26 C．15 D．17
【答案】A
【知识点】流程图识读
9．（2021高三上·浙江月考）给定一个正整数，要求将该数各个位上数字反转得到一个新数，如数字56020反转得到新数2065。有如下VB程序段：
n=Val（Text1．Text）
s=""
flag=True
Do While n>0
⑴
n=n\10
If Not flag Or x>0 Then
⑵
flag=False
End If
Loop
If s="" Then s ="0"
Labe 11.Caption=s
方框中（1）和（2）应填入的代码顺序为（　　）
①x=nMod10^len（n） ②x=nMod10 ③s=Str（x）+s ④s=s+Str（x）
A．①③ B．②③ C．①④ D．②④
【答案】D
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
10．（2021高三上·浙江月考）有如下VB程序段：
s="olympicGames2021"
ans=""
i=1
Do While i<=Len（s）
t=Int（Rnd *2）+1
x=Mid（s，i，1）
y=Mid（s，i+t，1）
If x>y Then an s=ans+x Else ans=ans+y
i=i+t+1
Loop
Label1.Caption=ans
执行该程序段后，标签Labe11上显示的内容不可能为（　　）
A．ymcms1 B．yicms2 C．oyims22 D．ypime1
【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
11．（2021高三上·浙江月考）某对分查找算法的VB程序段如下：
i=1：j=25
n=0
Do While i<=j
m=（i+j+1）\2
n=n+1
If key=a（m）Then Exit Do
If key>a（m）Then i=m+1Elsej=m-1
Loop
Labe11.Caption=Str（n）
数组元素a（1）~a（25）的值依次为1～25，若查找键key为下列选项的值，程序段执行后，标签Label1中显示的内容与其他三项不同的是（　　）
A．7 B．12 C．19 D．22
【答案】A
【知识点】查找算法及程序实现
12．（2021高三上·浙江月考）有如下VB程序段：
For i=1 To n-1 Step 2
For j=1To（（n+1）\2）*2-i-2 Step 2
If a（j）>a（j+2）Then
t=a（j）：a（j）=a（j+2）：a（j+2）=t
End If
Next j
For j= ①
If a（j）>a（j-2）Then
t=a（j）：a（j）=a（j-2）：a（j-2）=t
End If
Next j
Next i
执行该程序段后，实现了对数组元素a（1）~a（n）中的奇数位置从小到大排序，偶数位置从大到小排序。则代码中①处的语句可为（　　）
A．（n\2）*2 To i+1 Step-2 B．（n\2）*2 To i+3 Step-2
C．i+1 To（n\2）*2 Step2 D．i+1 To （n\2）*2-2 Step2
【答案】B
【知识点】排序算法及程序实现
二、操作题
13．（2021高三上·浙江月考）小明收集了最新中国大学排行榜的有关数据，并使用Excel软件进行数据处理，部分界面如图a所示。
图a
请回答下列问题：
（1）现要根据总分对各个大学进行排名，在单元格H3中输入公式，然后向下自动填充至单元格H135。发现最后结果中很多学校的排名重复，为了得到正确的排名，可将单元格H3中的公式修改为　 　，向下自动填充后才能得到正确结果（注：公式RANK（A1，A1：A5）表示A1单元格的值在区域A1：A5中的排名）。
（2）对区域A2：H135进行相关数据分析，下列说法正确的是 （多选，填字母）。
A．将E列中数据的小数位数统一设置为0，则该列的真实数据将发生改变
B．若要筛选出上海地区排名最高的学校，则可选择“排名”为关键字升序排序，再对“地区”进行筛选，选择的值为“上海”，排名最前的即为该学校
C．若要筛选出排名前50高校中，高被引科学家人数最多的5所高校，可先对修改后的“排名”进行筛选，条件为小于等于50，再对“高被引科学家人数”进行筛选，选择“10个最大的值”并显示最大的5项
D．若要筛选出北京地区总分达到90的高校，可先对“地区”进行筛选，选择的值为“北京”，再对“总分”进行筛选，条件为大于等于90
（3）对图a中的数据进行相关统计，结果放在新工作表中，如图b所示。根据图b中的数据制作的图表如图c所示，可知创建该图表的数据区域是　 　。
图b 图c
【答案】（1）=RANK（D3，D$3：D$135）或=RANK（D3，$D$3：$D$135）
（2）B；D
（3）A1：A4，A6，A12，C1：C4，C6，C12
【知识点】表格数据的处理与计算
14．（2021高三上·浙江月考）使用Flash软件创作了“奥运会”多媒体作品，部分编辑界面如图a所示。
图a
请回答下列问题：
（1）在多媒体作品设计过程中，下列属于创作需求分析的是 （多选，填字母）。
A．确定该作品发布在“浙江体育”公众号
B．明确作品的中心思想制订脚本大纲
C．将图片、声音等媒体元素逐一分类登记，制作成表格
D．确定该作品的主题思想是要体现奥运精神
E．分析用户的信息技术应用水平
（2）如图a所示，“文字”图层从第1帧到第15帧实现了文字从无到有并逐渐缩小的动画效果，该补间类型为　 　（单选，填字母：A .逐帧动画/B .形状补间/C .动画补间）。
（3）测试影片时，发现动画播放到当前场景第60帧时并未自动停止，应该将“按钮”图层第60帧动作脚本修改为　 　（单选，填字母：A . stop()；/B . stopAllSounds()；/C . fscommand（“quit”）；）。
（4）修改后，单击第60帧的“游泳”按钮，发现按钮无效，检查了按钮动作脚本正确，按钮制作界面如图b所示，为了解决此问题，正确的操作方法有 （多选，填字母）。
图b
A．对“文字”图层的“指针经过”帧执行“清除关键帧”操作
B．对“文字”图层的“点击”帧执行“插入关键帧”操作
C．对“背景”图层的“按下”帧执行“复制帧”操作，“弹起”帧执行“粘贴帧”操作
D．对“背景”图层的“点击”帧执行“删除帧”操作
E．对“背景”图层的“点击”帧执行“清除关键帧”操作
（5）为了使“人”图层中动画一播放完就显示“按钮”图层中的按钮，其他动画效果不变，应进行的操作是　 　。
【答案】（1）A；D
（2）B
（3）A
（4）D；E
（5）在按钮图层第50帧执行“插入关键帧”操作，然后将第60帧内容复制到第50帧
【知识点】多媒体作品的规划和设计；动画的类型；时间轴、帧、图层、库的概念及基本操作；元件的类型与应用；常用影片控制函数的应用
15．（2021高三上·浙江月考）小凡有好多活页本，记录了各门课的错题。然而，他淘气的弟弟把这些活页本都拆了，并且活页纸散落在房间各地。小凡在房间里捡了若干张活页纸，每张纸都有活页本编号和其对应的页码。现在他要统计每本活页本上剩余还有哪些页码，为了能快速的整理，按照以下规则存储：对于同一本活页本上的纸张，则记录连续序列的起始和结尾编号。例如第1本活页本上的纸张页码有1，3，4，5，8，9，则记录为1-1，3-5，8-9。他编写了VB程序来解决这个问题，功能如下：共有k本活页本，每本最多有n张活页纸，总共有sum张活页纸，每张纸的编号和页码显示在列表框List1中，每一行前两位数表示该页对应的活页本编号，后一个数表示其对应页码；程序运行时，点击“整理”按钮Command1，在列表框List2中显示整理后的结果。程序运行界面如图所示。
请回答下列问题：
（1）若要将按钮中显示的“整理”修改为“纸张整理”，则需修改按钮的　 　属性。
（2）实现上述功能的VB代码如下，请在划线处填入合适的代码。
Const n=40
Const k=5
Dim f（1 To 500）As String
Dim sum As Integer
Private Sub Form_Load()
'读取sum张纸的信息，存入到数组f并显示在列表框List1中，代码略
End Sub
Private Sub Command1_Click()
Dim
i As Integer，j As Integer，t As Integer，tmp As Integer
Dim
a（500）As Integer，b（500）As Integer
Dim
c（500）As Integer，d（500）As Integer
'读取每张纸信息，将页码存入到a数组中，活页本编号存入到b数组中
For
i=1 To sum
a（i）=Val（Mid（f（i），4））
b（i）=　 　
Next
i
For
i=1 To sum-1 '对每一页先按照活页本编号、再按照页码从小到大排序
t=i
For j=i+1 To sum
If Then t=j
Next j
tmp=a（i）：a（i）=a（t）：a（t）=tmp
tmp=b（i）：b（i）=b（t）：b（t）=tmp
Next i
c（1）=a（1） '对于每个奇数位i，c（i）与c（i+1）分别存储连续页码的起始编号和结尾编号
d（1）=b（1）
s=1
t=a（1）
For i=2 To sum
If b（i）=b（i-1）And t+1=a（i）Then
　 　
Else
c（s*2）=t
s=s+1
　 　=a（i）
d（s）=b（i）
t=a（i）
End If
Next i
c（s*2）=t
List2.AddItem "第1本书："
List2.AddItem Str（c（1））+"-"+Str（c（2））
For i=2 To s
If d（i）<>d（i-1）Then List2.AddItem"第"+Str（d（i））+"本书："
List2.AddItem Str（c（2*i-1））+"-"+Str（c（2*i））
Next i
End Sub
（3）程序中加框处代码有误，请改正。
【答案】（1）Caption
（2）Val（Mid（f（i），1，2））；t=a（i）或t=t+1；c（s*2-1）
（3）b（t）>b（j）Or b（t）=b（j）And a（t）>a（j）
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；分支结构语句及程序实现；循环结构语句及程序实现
16．（2021高三上·浙江月考）某地区举办了一场比赛，共有n个选手参加，每个选手会有m个评委进行评分。现要求按下列规则计算每个选手的成绩，并按照成绩从高到低进行排序。
选手成绩的计算规则是：计算评分最高前k个的平均分avg1，剩余评分的平均分avg2，找到avg1与avg2差值最小，则avg1与avg2的平均数为该选手得分。例如，某选手的评委评分为6，5，3，1，则各位次评分为：
k 1 2 3
avg1 6 5.5 4.67
avg2 3 2 1
avg1-avg2 3 3.5 3.67
由表格可知，差值最小为3，因此该选手的评分为（6+3）/2=4.5。按上述要求，编写VB程序，功能如下：在列表框List1中显示各选手的评委评分，单击“计算”按钮Command1，在列表框List2中依次按照得分从高到低显示每位选手成绩。程序运行界面如图所示。请回答下列问题：
（1）若某选手的评委评分为6，3，7，10，则该选手最后成绩为　 　。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const n=8
Const m=12
Dim a（n*m）As Double，b（m）As Integer
Dim f（n）As Double，num（n）As Integer，sum As Double
Private Sub Form_Load（）
'读取n个人每个评委的评分，按照选手编号从小到大依次存入数组a，并显示在List1中
'a（1）到a（m）存储第1个选手得到的m个评委的评分
'a（m+1）到a（2*m）存储第2个选手得到的m个评委的评分
'以此类推，代码略
End Sub
Private Sub Command1_Click（）
Dim
i As Integer，j As Integer，x As Integer，k As Integer
Dim
s As Double，avg1AsDouble，avg2AsDouble
Dim
ans_v As Double，ans_c As
Double
For
i=1 To n
sum=0
For j=1 To m
sum=sum+a（（i-1）*m+j）
b（j）=0
Next j
s=0
ans_v=-1：ans_c=0
For j=1 To m-1
x=find（i） '找到第i组中m个数中第j大数位置x
　 　
avg1=s/j
avg2=（sum-s）/（m-j）
If ans_v=-1 Or avg1-avg2ans_v=（avg1+avg2）/2
ans_c=avg1-avg2
End If
Next j
　 　
Do While k>=1 And ans_v>f（k）
f（k+1）=f（k）
num（k+1）=num（k）
k=k-1
Loop
f（k+1）=ans_v
num（k+1）=i
Next
i
'将结果显示在List2中，代码略
End Sub
Function find（t As Integer）As Integer
Dim
i As Integer
find=0
For
i=（t-1）*m+1 To t*m
If　 　Then
If find=0 Or a（find）End If
Next
i
b（find-（t-1）*m）=1
End Function
【答案】（1）6.5
（2）s=s+a（x）；k=i-1；b（i-（t-1）*m）=0
【知识点】过程与自定义函数；排序算法及程序实现
1 / 1浙江省浙南名校联盟2021-2022学年高三上学期信息技术10月第一次联考试卷
一、选择题
1．（2021高三上·浙江月考）下列关于信息和信息技术的说法，正确的是（　　）
A．Word、PPT是信息的一种表达技术，其中的文字、图像就是信息
B．信息可以通过人与人的交流来传递和共享，但在传递和共享的过程中可能会产生损耗
C．在APP上注册账号时，使用大小写字母、数字、符号组合成的密码，提高了账号信息的安全性
D．苹果设备之间可以使用“隔空投送”发送文件，因此信息的传播可以不依附于载体
2．（2021高三上·浙江月考）下列关于网页与浏览器的说法，不正确的是（　　）
A．网页超链接的链接目标可以是网页、图像、视频
B．浏览器与Web服务器之间的信息传输一般采用HTTP协议
C．若POP3协议发生错误，则电子邮件无法发送到收件人的邮件服务器中
D．在IE浏览器中可以以“单个文件（*mht）”格式另存网页
3．（2021高三上·浙江月考）某Access数据表中的记录与字段的数据类型如下图所示。下列说法正确的是（　　）
A．当前数据表视图下，删除“进价”字段的操作可以撤销
B．若改变产品“冰箱”的售价，其对应的销售额的字段值也会发生改变
C．可以在产品“电视机”和“热水器”两条记录中间插入一条ID为4，产品名为“空调”的记录
D．当前状态下不可以对“日用品销售表”重命名
4．（2021高三上·浙江月考）下列有关信息编码的说法，正确的是（　　）
A．字符“Hey~假期”存储在计算机中，至少需要8个字节
B．已知字符“29”的十六进制内码为“32 39”，则字符“30”的十六进制内码为“33 3A”
C．十进制数26转换为二进制数是100110
D．某4位十六进制数n，其末位数字为0，若转换为十进制数m，无法确定m能否被16整除
5．（2021高三上·浙江月考）使用Photoshop软件制作“烟花易冷”作品，部分编辑界面如图所示。下列说法正确的是（　　）
A．“烟花”图层可能添加了滤镜
B．不可以将“树”图层移动到“叶”图层上方
C．“背景”图层不可以调整不透明度，也不能隐藏
D．将“易冷”图层的图层样式复制到“烟花”图层后，“烟花”图层显示投影、外发光效果
6．（2021高三上·浙江月考）将帧频为10fps、总帧数为120帧的Flash动画作品导出为不压缩的无声AVI视频文件，其参数为768*1024像素、32位真彩色，该视频文件的存储容量约为（　　）
A．2．81GB B．360MB C．36MB D．30MB
7．（2021高三上·浙江月考）下列VB表达式的值与其他三项结果不同的是（　　）
A．Len（"河南加油！"）Mod4\2+2
B．Int（Val（Mid（"烟花392"，3，2））/10）
C．12\2*3-15
D．9^0.5+Int（Rnd（））
8．（2021高三上·浙江月考）某算法部分流程图如图所示。执行该流程后，若输入的值为47和3，则输出s的值为（　　）
A．20 B．26 C．15 D．17
9．（2021高三上·浙江月考）给定一个正整数，要求将该数各个位上数字反转得到一个新数，如数字56020反转得到新数2065。有如下VB程序段：
n=Val（Text1．Text）
s=""
flag=True
Do While n>0
⑴
n=n\10
If Not flag Or x>0 Then
⑵
flag=False
End If
Loop
If s="" Then s ="0"
Labe 11.Caption=s
方框中（1）和（2）应填入的代码顺序为（　　）
①x=nMod10^len（n） ②x=nMod10 ③s=Str（x）+s ④s=s+Str（x）
A．①③ B．②③ C．①④ D．②④
10．（2021高三上·浙江月考）有如下VB程序段：
s="olympicGames2021"
ans=""
i=1
Do While i<=Len（s）
t=Int（Rnd *2）+1
x=Mid（s，i，1）
y=Mid（s，i+t，1）
If x>y Then an s=ans+x Else ans=ans+y
i=i+t+1
Loop
Label1.Caption=ans
执行该程序段后，标签Labe11上显示的内容不可能为（　　）
A．ymcms1 B．yicms2 C．oyims22 D．ypime1
11．（2021高三上·浙江月考）某对分查找算法的VB程序段如下：
i=1：j=25
n=0
Do While i<=j
m=（i+j+1）\2
n=n+1
If key=a（m）Then Exit Do
If key>a（m）Then i=m+1Elsej=m-1
Loop
Labe11.Caption=Str（n）
数组元素a（1）~a（25）的值依次为1～25，若查找键key为下列选项的值，程序段执行后，标签Label1中显示的内容与其他三项不同的是（　　）
A．7 B．12 C．19 D．22
12．（2021高三上·浙江月考）有如下VB程序段：
For i=1 To n-1 Step 2
For j=1To（（n+1）\2）*2-i-2 Step 2
If a（j）>a（j+2）Then
t=a（j）：a（j）=a（j+2）：a（j+2）=t
End If
Next j
For j= ①
If a（j）>a（j-2）Then
t=a（j）：a（j）=a（j-2）：a（j-2）=t
End If
Next j
Next i
执行该程序段后，实现了对数组元素a（1）~a（n）中的奇数位置从小到大排序，偶数位置从大到小排序。则代码中①处的语句可为（　　）
A．（n\2）*2 To i+1 Step-2 B．（n\2）*2 To i+3 Step-2
C．i+1 To（n\2）*2 Step2 D．i+1 To （n\2）*2-2 Step2
二、操作题
13．（2021高三上·浙江月考）小明收集了最新中国大学排行榜的有关数据，并使用Excel软件进行数据处理，部分界面如图a所示。
图a
请回答下列问题：
（1）现要根据总分对各个大学进行排名，在单元格H3中输入公式，然后向下自动填充至单元格H135。发现最后结果中很多学校的排名重复，为了得到正确的排名，可将单元格H3中的公式修改为　 　，向下自动填充后才能得到正确结果（注：公式RANK（A1，A1：A5）表示A1单元格的值在区域A1：A5中的排名）。
（2）对区域A2：H135进行相关数据分析，下列说法正确的是 （多选，填字母）。
A．将E列中数据的小数位数统一设置为0，则该列的真实数据将发生改变
B．若要筛选出上海地区排名最高的学校，则可选择“排名”为关键字升序排序，再对“地区”进行筛选，选择的值为“上海”，排名最前的即为该学校
C．若要筛选出排名前50高校中，高被引科学家人数最多的5所高校，可先对修改后的“排名”进行筛选，条件为小于等于50，再对“高被引科学家人数”进行筛选，选择“10个最大的值”并显示最大的5项
D．若要筛选出北京地区总分达到90的高校，可先对“地区”进行筛选，选择的值为“北京”，再对“总分”进行筛选，条件为大于等于90
（3）对图a中的数据进行相关统计，结果放在新工作表中，如图b所示。根据图b中的数据制作的图表如图c所示，可知创建该图表的数据区域是　 　。
图b 图c
14．（2021高三上·浙江月考）使用Flash软件创作了“奥运会”多媒体作品，部分编辑界面如图a所示。
图a
请回答下列问题：
（1）在多媒体作品设计过程中，下列属于创作需求分析的是 （多选，填字母）。
A．确定该作品发布在“浙江体育”公众号
B．明确作品的中心思想制订脚本大纲
C．将图片、声音等媒体元素逐一分类登记，制作成表格
D．确定该作品的主题思想是要体现奥运精神
E．分析用户的信息技术应用水平
（2）如图a所示，“文字”图层从第1帧到第15帧实现了文字从无到有并逐渐缩小的动画效果，该补间类型为　 　（单选，填字母：A .逐帧动画/B .形状补间/C .动画补间）。
（3）测试影片时，发现动画播放到当前场景第60帧时并未自动停止，应该将“按钮”图层第60帧动作脚本修改为　 　（单选，填字母：A . stop()；/B . stopAllSounds()；/C . fscommand（“quit”）；）。
（4）修改后，单击第60帧的“游泳”按钮，发现按钮无效，检查了按钮动作脚本正确，按钮制作界面如图b所示，为了解决此问题，正确的操作方法有 （多选，填字母）。
图b
A．对“文字”图层的“指针经过”帧执行“清除关键帧”操作
B．对“文字”图层的“点击”帧执行“插入关键帧”操作
C．对“背景”图层的“按下”帧执行“复制帧”操作，“弹起”帧执行“粘贴帧”操作
D．对“背景”图层的“点击”帧执行“删除帧”操作
E．对“背景”图层的“点击”帧执行“清除关键帧”操作
（5）为了使“人”图层中动画一播放完就显示“按钮”图层中的按钮，其他动画效果不变，应进行的操作是　 　。
15．（2021高三上·浙江月考）小凡有好多活页本，记录了各门课的错题。然而，他淘气的弟弟把这些活页本都拆了，并且活页纸散落在房间各地。小凡在房间里捡了若干张活页纸，每张纸都有活页本编号和其对应的页码。现在他要统计每本活页本上剩余还有哪些页码，为了能快速的整理，按照以下规则存储：对于同一本活页本上的纸张，则记录连续序列的起始和结尾编号。例如第1本活页本上的纸张页码有1，3，4，5，8，9，则记录为1-1，3-5，8-9。他编写了VB程序来解决这个问题，功能如下：共有k本活页本，每本最多有n张活页纸，总共有sum张活页纸，每张纸的编号和页码显示在列表框List1中，每一行前两位数表示该页对应的活页本编号，后一个数表示其对应页码；程序运行时，点击“整理”按钮Command1，在列表框List2中显示整理后的结果。程序运行界面如图所示。
请回答下列问题：
（1）若要将按钮中显示的“整理”修改为“纸张整理”，则需修改按钮的　 　属性。
（2）实现上述功能的VB代码如下，请在划线处填入合适的代码。
Const n=40
Const k=5
Dim f（1 To 500）As String
Dim sum As Integer
Private Sub Form_Load()
'读取sum张纸的信息，存入到数组f并显示在列表框List1中，代码略
End Sub
Private Sub Command1_Click()
Dim
i As Integer，j As Integer，t As Integer，tmp As Integer
Dim
a（500）As Integer，b（500）As Integer
Dim
c（500）As Integer，d（500）As Integer
'读取每张纸信息，将页码存入到a数组中，活页本编号存入到b数组中
For
i=1 To sum
a（i）=Val（Mid（f（i），4））
b（i）=　 　
Next
i
For
i=1 To sum-1 '对每一页先按照活页本编号、再按照页码从小到大排序
t=i
For j=i+1 To sum
If Then t=j
Next j
tmp=a（i）：a（i）=a（t）：a（t）=tmp
tmp=b（i）：b（i）=b（t）：b（t）=tmp
Next i
c（1）=a（1） '对于每个奇数位i，c（i）与c（i+1）分别存储连续页码的起始编号和结尾编号
d（1）=b（1）
s=1
t=a（1）
For i=2 To sum
If b（i）=b（i-1）And t+1=a（i）Then
　 　
Else
c（s*2）=t
s=s+1
　 　=a（i）
d（s）=b（i）
t=a（i）
End If
Next i
c（s*2）=t
List2.AddItem "第1本书："
List2.AddItem Str（c（1））+"-"+Str（c（2））
For i=2 To s
If d（i）<>d（i-1）Then List2.AddItem"第"+Str（d（i））+"本书："
List2.AddItem Str（c（2*i-1））+"-"+Str（c（2*i））
Next i
End Sub
（3）程序中加框处代码有误，请改正。
16．（2021高三上·浙江月考）某地区举办了一场比赛，共有n个选手参加，每个选手会有m个评委进行评分。现要求按下列规则计算每个选手的成绩，并按照成绩从高到低进行排序。
选手成绩的计算规则是：计算评分最高前k个的平均分avg1，剩余评分的平均分avg2，找到avg1与avg2差值最小，则avg1与avg2的平均数为该选手得分。例如，某选手的评委评分为6，5，3，1，则各位次评分为：
k 1 2 3
avg1 6 5.5 4.67
avg2 3 2 1
avg1-avg2 3 3.5 3.67
由表格可知，差值最小为3，因此该选手的评分为（6+3）/2=4.5。按上述要求，编写VB程序，功能如下：在列表框List1中显示各选手的评委评分，单击“计算”按钮Command1，在列表框List2中依次按照得分从高到低显示每位选手成绩。程序运行界面如图所示。请回答下列问题：
（1）若某选手的评委评分为6，3，7，10，则该选手最后成绩为　 　。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const n=8
Const m=12
Dim a（n*m）As Double，b（m）As Integer
Dim f（n）As Double，num（n）As Integer，sum As Double
Private Sub Form_Load（）
'读取n个人每个评委的评分，按照选手编号从小到大依次存入数组a，并显示在List1中
'a（1）到a（m）存储第1个选手得到的m个评委的评分
'a（m+1）到a（2*m）存储第2个选手得到的m个评委的评分
'以此类推，代码略
End Sub
Private Sub Command1_Click（）
Dim
i As Integer，j As Integer，x As Integer，k As Integer
Dim
s As Double，avg1AsDouble，avg2AsDouble
Dim
ans_v As Double，ans_c As
Double
For
i=1 To n
sum=0
For j=1 To m
sum=sum+a（（i-1）*m+j）
b（j）=0
Next j
s=0
ans_v=-1：ans_c=0
For j=1 To m-1
x=find（i） '找到第i组中m个数中第j大数位置x
　 　
avg1=s/j
avg2=（sum-s）/（m-j）
If ans_v=-1 Or avg1-avg2ans_v=（avg1+avg2）/2
ans_c=avg1-avg2
End If
Next j
　 　
Do While k>=1 And ans_v>f（k）
f（k+1）=f（k）
num（k+1）=num（k）
k=k-1
Loop
f（k+1）=ans_v
num（k+1）=i
Next
i
'将结果显示在List2中，代码略
End Sub
Function find（t As Integer）As Integer
Dim
i As Integer
find=0
For
i=（t-1）*m+1 To t*m
If　 　Then
If find=0 Or a（find）End If
Next
i
b（find-（t-1）*m）=1
End Function
答案解析部分
1．【答案】C
【知识点】信息及其特征；信息系统安全防护
2．【答案】C
【知识点】网络协议；网络资源的类型、下载与保存
3．【答案】D
【知识点】数据表、字段、记录的编辑；数据表视图与设计视图
4．【答案】A
【知识点】进制及数制转换；字符编码
5．【答案】D
【知识点】图层及图层的基本操作
6．【答案】B
【知识点】声音、图像、视频编码
7．【答案】C
【知识点】运算符、基本运算与表达式
8．【答案】A
【知识点】流程图识读
9．【答案】D
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
10．【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
11．【答案】A
【知识点】查找算法及程序实现
12．【答案】B
【知识点】排序算法及程序实现
13．【答案】（1）=RANK（D3，D$3：D$135）或=RANK（D3，$D$3：$D$135）
（2）B；D
（3）A1：A4，A6，A12，C1：C4，C6，C12
【知识点】表格数据的处理与计算
14．【答案】（1）A；D
（2）B
（3）A
（4）D；E
（5）在按钮图层第50帧执行“插入关键帧”操作，然后将第60帧内容复制到第50帧
【知识点】多媒体作品的规划和设计；动画的类型；时间轴、帧、图层、库的概念及基本操作；元件的类型与应用；常用影片控制函数的应用
15．【答案】（1）Caption
（2）Val（Mid（f（i），1，2））；t=a（i）或t=t+1；c（s*2-1）
（3）b（t）>b（j）Or b（t）=b（j）And a（t）>a（j）
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；分支结构语句及程序实现；循环结构语句及程序实现
16．【答案】（1）6.5
（2）s=s+a（x）；k=i-1；b（i-（t-1）*m）=0
【知识点】过程与自定义函数；排序算法及程序实现
1 / 1

展开更多......

收起↑