浙江大学附属中学2022届高三上学期信息技术12月月考暨首考模拟试卷

浙江大学附属中学2022届高三上学期信息技术12月月考暨首考模拟试卷
一、选择题（本大题共12小题，每小题2分，共24分。）
1．（2021·浙江模拟）北京时间2021年11月7日，航天员翟志刚、王亚平身着我国新一代“飞天”舱外航天服，先后从天和核心舱节点舱成功出舱，经过约6.5小时的出舱活动，神舟十三号航天员乘组密切协同，圆满完成出舱活动期间全部既定任务。以下说法正确的是（　　）
A．现代信息技术以计算机和通信技术为支撑，体现信息的载体依附性
B．神舟十三号飞船要验证的6个月长期在轨飞行技术，体现计算机系统运行的准确性高
C．航天服能实现隔热，应对真空温差、辐射等，保障生命安全，体现信息安全性
D．随着技术不断发展，信息必将脱离它所反映的事物，无需载体就可以传播保存
【答案】B
【知识点】信息及其特征
2．（2021·浙江模拟）下列有关网页的说法，正确的是（　　）
A．联网状态下可以通过点击收藏夹网址直接浏览网页，不需要网页浏览器支持
B．网页三要素：文字，图片，超文本传输协议(HTTP)
C．统计评价能反应出资源可信度较高，从本质上一定具有较强的专业性
D．用账号和密码认证登录网站，是为了提高信息数据安全和加强信息保密
【答案】D
【知识点】因特网信息资源评价；浏览器；网页组成元素
3．（2021·浙江模拟）使用Access软件编辑数据表，部分界面如图所示。
当前状态下下列说法不正确的是（　　）
A．当前视图中，可以在“一段线”前面插入“特殊线”字段
B．修改某一个数值后，可以通过撤销恢复，删除某个字段或某条记录，则无法撤回
C．通过导入Excel表数据来添加记录，但无法导入文本文档来添加记录
D．“ID”字段可以转为“文本”或“数字”格式，“一段线”字段不能转成“自动编号”类型
【答案】C
【知识点】数据表、字段、记录的编辑
4．（2021·浙江模拟）使用UltraEdit观察机内码，如图所示：
下列说法不正确的是（　　）
A．由图可知，相应字符ASCII码值关系"+"<"C"<"y"
B．英文字母"P"的机内码为50H，所以英文字母"O"的机内码为4FH
C．图中汉字编码字符共有2个Byte
D．根据ASCII码值大小关系可以推断出关系表达式"9">"10"的值为True
【答案】C
【知识点】运算符、基本运算与表达式；字符编码
5．（2021·浙江模拟）对某音频素材使用GoldWave进行处理，界面如下图所示：
以下操作将导致音频容量发生改变的是（　　）
A．选择左声道全部，点“删除”，然后按原格式保存
B．执行复制和粘贴，选择部分修改成“双声道”，然后删除
C．左下角“左声道”改成“双声道”，点静音
D．插入静音，持续时间5秒，然后点击“删除”
【答案】D
【知识点】声音素材的基本处理
6．（2021·浙江模拟）使用PhotoShop软件处理图片，颜色模式为RGB/8，参数界面如图所示：
当前状态下将图中宽度参数调成512，保存为BMP格式，关于结果文件大小、画面大小、图片内容变化情况下列说法正确的是（　　）
①容量约0.73MB ②容量约375KB ③高度500像素 ④高度250像素 ⑤图像、内容比例缩小 ⑥画面内容被裁剪
A．②④⑤ B．①④⑤ C．②③⑥ D．①④⑥
【答案】A
【知识点】图片素材的基本处理
7．（2021·浙江模拟）下列有关VB表达式的描述，正确的是（　　）
A．505 Mod 10+Int(Sqr(6))和Len("python")+1相等
B．Abs(Int(-30.19))+Len(Mid("30.19",2))的值是34
C．Int(Rnd*45)*2+9一定产生两位数的奇数
D．Int(Rnd*100)+54\9/3的值可能是12
【答案】A
【知识点】运算符、基本运算与表达式
8．（2021·浙江模拟）某算法的流程图如图所示：
执行这部分流程后，输出的s,a值分别是（　　）
A．12,11 B．24,15 C．12,12 D．24,12
【答案】B
【知识点】流程图识读
9．（2021·浙江模拟）以下程序要实现十进制转换为十六进制的功能，则划线处的代码为（　　）
Private Sub Command1_Click()
Const jz = "0123456789ABCDEF"
Dim d As Integer, r As Integer, s As String
d = Val(Text1.Text)
s = ""
Do While d > 0
Loop
Label1.Caption = "十六进制结果是" + s
End Sub
①d=d\16 ② s=Mid(jz,r+1,1)+s ③ s=s + Mid(jz,r,1) ④ r=d Mod 16
A．④①③ B．①②④ C．④①② D．①②③
【答案】C
【知识点】循环结构语句及程序实现；常用标准函数
10．（2021·浙江模拟）有如下VB程序段：
flag = False: txt = "Fighting"
For i = 1 To Len(txt)
ch = Mid(txt, i, 1)
If (ch>="a" And ch<="z" Or ch>="A" And ch<="Z") And Not flag Then
s = ch + s: flag = True
Else
flag = False
End If
Next i
Text1.Text = s
程序运行结束后，Text1中显示的内容是（　　）
A．Fighting B．ntgF C．gnithgiF D．Fgtn
【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
11．（2021·浙江模拟）有如下VB程序段：
For i=1 To 6
a(i) =Int(Rnd()*10)+1
If a(i) Mod 2=i Mod 2 Then i=i-1
Next i
For i=1 To 2
For j= 6 To i+2 Step -1
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各元素可能是（　　）
A．7,6,5,4,3,2 B．6,7,4,5,2,3
C．11,8,9,6,7,4,5 D．2,5,6,9,8,11
【答案】B
【知识点】排序算法及程序实现；常用标准函数
12．（2021·浙江模拟）某对分查找算法的VB程序段如下：
i=1 : j=8
key=Text1.Text
Do While im=(i+j)\2
If key>=a(m) Then i=m+1 Else j=m
Loop
数组a(1)至a(7)分别是"123","25","35","477","66","8","82"，当在Text1中输入5时，运行这段程序后，下面说法错误的是（　　）
A．i【答案】C
【知识点】查找算法及程序实现
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13．（2021·浙江模拟）高三各科学考后的等第被统计用于下学期2-3月份的三位一体报名，现以杭电三位一体报考为例进行分数折算，将全年级的数据进行统计和分析，数据如图a所示。
图a
（1）M3单元格使用COUNTIF函数计算出“关羽”同学各科学考A等的数量，再使用“自动填充”功能先后统计其他“BCDE”等第数量，以及年级所有同学的各等第数量。M3单元格公式有误，需更正为　 　（函数COUNTIF使用说明，例“=COUNTIF（A3:A451,A3）”从A3到A451统计出1班人数）。
（2）如图a通过等第分数折算公式(A等15分，B等10分，C等5分)计算出每位同学的“杭电折算”分，3班班主任需要查看自己班杭电折算分的最高3位同学，下列方法可以实现的是 （多选，填字母）。
A．对班级列筛选条件是“3”的数据，再对杭电折算列进行筛选条件为最大3项
B．对杭电折算列进行筛选条件为最大3项，再对班级列筛选条件是“3”的班级
C．对“A2：R451”区域以“杭电折算”为主要关键字进行降序排序，再筛选班级为“3”的数据项，选择前3项
D．先筛选出班级为“3”的数据，再对“A2:R451”区域，以“杭电折算”为主要关键字降序排序，选择前3项
（3）在新的工作表中计算出各班语数外三门课A等人数情况。如图b所示，在“英语”列前面插入新的一列标题为“日语”，柱形图图表　 　（选填：会/不会）随之增加“日语”数据。
图b
【答案】（1）=COUNTIF（$C3:$L3,M$2）
（2）C；D
（3）不会
【知识点】表格数据的处理与计算
14．（2021·浙江模拟）用Flash软件打开只做“飞天梦.Fla”文件，编辑界面如图a所示。
图a
请回答下列问题：
（1）下列关于多媒体作品设计的一般步骤描述正确的是 （多选，填字母）。
A．文字脚本按多媒体作品的演示顺序，描述每一环节的展示内容及呈现方式
B．媒体元素分解是多媒体作品制作的最后一个环节，实现媒体元素逐一列出，分类登记
C．确定多媒体作品的主要内容，相互间的链接方式，属于系统结构设计环节
D．完成多媒体作业预计需要1个月时间，所需资金约***元，属于应用需求分析
E．功能模块设计包含对模块文本内容、背景颜色、音频内容、交互方式等设计要求
（2）航天飞机图层实现“航天飞机”从舞台右下角移入舞台右上角区域，并一直属于喷火动画状态，请问“航天飞机”图层动画类型属于　 　（单选，填字母：A .形状补间 / B .逐帧动画 /
C .动画补间）。
（3）测试场景，发现背景图层从第1帧到第24帧未显示背景内容，要让背景内容从第一帧开始一直显示，下列做法正确的是 。（多选，填字母）
A．选中背景图层第1帧至第24帧“清除帧”
B．点击背景图层第1帧“清除关键帧”
C．选中背景图层第1帧至24帧“删除帧”，并在第50帧“插入帧”
D．在背景图层第25帧“复制帧”，在第1帧“粘贴帧”
E．点击背景图层第25帧，复制舞台上内容，在背景图层第1帧粘贴内容，调整位置
（4）“关闭”按钮元件的编辑界面如图b所示。下列说法正确的是 。（多选，填字母）
A．按钮有效，所以测试影片时鼠标移至“关闭”文字上时出现手形
B．使用菜单“控制”下的“测试场景”，按钮动作可以响应
C．“文字”图层插入帧，测试影片时鼠标移至“关闭”文字上时按钮有声音
D．使用菜单“控制”下的“播放”命令，按钮不响应，但可以听到“指针经过”的声音
E．“测试影片”时，鼠标移至“关闭”按钮矩形区可以听到“指针经过”的声音
（5）“场景 1”要实现点击“关闭”按钮关闭动画播放，则“关闭”按钮动作脚本为on(Press){　 　}。
【答案】（1）A；D；E
（2）C
（3）B；C；D
（4）B；C；E
（5）FSCommand（"Quit"）
【知识点】多媒体作品的规划和设计；动画的类型；常用影片控制函数的应用；多媒体作品的调试与递交；声音同步属性设置
15．（2021·浙江模拟）疫情期间，教师回校在教师宿舍隔离上网课，后勤人员连续一周轮流给教师送三餐。本校后勤人员共25人，每天安排2个人一起送餐，要求其中一名必须是年龄在40岁以下（包括40岁）的男后勤工作人员（本校符合该条件的后勤人员超过7个），另一名按如下规则进行安排：优先安排年轻的工作人员配送。每人最多安排一天的配送工作。
编写VB程序，根据后勤人员信息安排一周每天的送餐人。运行程序，在列表框List1中输出学校每个后勤人员的基本信息，单击“安排”命令按钮Command1，在列表框List2中显示每天的送餐人编号（编号是01,02,03,04，……，24,25）。程序运行界面如图a所示。
图a
请回答下列问题：
（1）要使程序运行时自动将窗体标题改为"三餐配送安排"，则语句Form1.Caption="三餐配送安排"应放在　 　（单选，填字母：A
.Form1_Load() / B .Form_Load() / C .Form1_Click() / D .Form_Click()）事件处理过程中。
（2）实现上述功能程序代码如下，完善划线处语句。
Dim
num As Integer, bh(1 To 25) As String, xm(1 To 25) As String
Dim
xb(1 To 25) As String, age(1 To 25) As Integer
Dim
flag(1 To 25) As Boolean '表示相应的员工是否已经被安排过配送任务
Dim
zudui(1 To 7) As String '表示每天的配送人员组合
Private
Sub Form_Load()
'从数据库中获取本校后勤人员所有信息，将编号、姓名、性别、年龄分别存入数组bh、xm、xb、age中，总人数在num变量中。并在list1中输出后勤人员信息。代码略。
End
Sub
Private
Sub Command1_Click()
Dim i As Integer, j As Integer, Dim k As
Integer, t1 As String, t2 As Integer
k = 1
For i = 1 To num
If xb(i) = "男" And age(i) <= 40 Then
zudui(k) = bh(i)
flag(Val(bh(i))) = True
k = k + 1
If 　 　Then Exit For
End If
Next i
For i = 1 To 7
k = i
For j = i + 1 To num
If flag(j) = False Then
If
Then k = j
End If
Next j
If k <> i Then
t1 = bh(k): bh(k) = bh(i): bh(i) = t1
t1 = xm(k): xm(k) = xm(i): xm(i) = t1
t1 = xb(k): xb(k) = xb(i): xb(i) = t1
t2 = age(k): age(k) = age(i): age(i) = t2
End If
　 　
zudui(i) = zudui(i) + bh(i)
List2.AddItem "第" + Str(i) + "天：" + Mid(zudui(i), 1, 2) + " " +　 　
Next i
End Sub
（3）程序加框处代码有问题，请修改。
【答案】（1）B
（2）k>7 或k>=8 或k=8；flag(Val(bh(i)))=True；Mid(zudui(i),3,2)或者bh（i）
（3）flag(k)=True Or age(j)【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；排序算法及程序实现
16．（2021·浙江模拟）模拟某新型病毒传播的过程，已知有n*n个格子（1<=n<=10），某天其中某些格子由于不知名原因感染了病毒，开始影响周围的格子。传染原理如图a所示：
某3行3列的格子初始状态如图a所示，1表示异常（由于不知名原因感染了病毒且具有传染性），0表示正常。除了边上一圈的格子，每个格子周围有8个格子，第一天某正常格子周围超过半数格子异常，则该格子第二天就会变异常，并且带有传染性。传染过程如图b所示，矩阵中1、2、3、4分别表示该格子第1天、第2天、第3天、第4天被感染，0表示未被感染。可以看出该矩阵格子第4天全部被感染。
编写VB程序，运行程序后，在Text1中输入矩阵规模（不超过10），单击“初始化”命令按钮，在List1中输出第一天所有格子的状态，单击“传播”命令按钮，在List2中输出所有格子的最终状态，并在Label2中输出第几天全部被感染或者“不会被全部感染”。
程序运行界面如图c所示。
（1）已知第一天所有格子状态如图d所示，则第　 　天所有格子全部被感染。
（2）实现上述功能程序代码如下，完善划线处语句。
Dim
a(1 To 100) As Integer '存放格子状态
Dim
b(1 To 100) As Integer '辅助作用
Dim
zc(1 To 10000) As Integer '记录每一天的正常格子数
Dim
n As Integer '存放矩阵规模
Private
Sub Command1_Click()
Dim i As Integer, j As Integer, s As String
List1.Clear
n = Val(Text1.Text)
For i = 1 To n
s =
""
For j = 1 To n
a((i - 1) * n + j) = Int(Rnd() * 2)
s = s + Str(a((i - 1) * n + j))
If a((i - 1) * n + j) = 0 Then 　 　
Next j
List1.AddItem
s
Next i
End
Sub
Private
Sub Command2_Click()
Dim i As Integer, j As Integer, tian As
Integer, flag As Boolean
List2.Clear
'下面代码实现病毒传染过程
tian = 1: flag = False
Do While zc(tian) > 0
tian = tian + 1
For i = 1 To n * n
If
a(i) = 0 Then
If　 　 Then b(i) = tian
Else
b(i) = a(i)
End If
Next
i
For i = 1 To n * n
If
b(i) = 0 Then zc(tian) = zc(tian) + 1
a(i) = b(i)
Next i
If　 　 Then flag = True: Exit Do
Loop
'在List2中输出所有格子的最终状态，代码略。
If flag Then
Label2.Caption = "不会被全部感染"
Else
Label2.Caption = "第" + Str(tian) + "天全部被感染"
End If
End
Sub
'Judge函数用来判断第i行第j列的格子周围的异常格子数是否超过半数，超过半数返回True
Function
Judge(i As Integer, j As Integer) As Boolean
'代码略
End
Function
【答案】（1）2
（2）zc(1)=zc(1)+1；Judge((i-1)\n+1,(i-1) Mod n+1)；zc(tian)=zc(tian-1)
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
1 / 1浙江大学附属中学2022届高三上学期信息技术12月月考暨首考模拟试卷
一、选择题（本大题共12小题，每小题2分，共24分。）
1．（2021·浙江模拟）北京时间2021年11月7日，航天员翟志刚、王亚平身着我国新一代“飞天”舱外航天服，先后从天和核心舱节点舱成功出舱，经过约6.5小时的出舱活动，神舟十三号航天员乘组密切协同，圆满完成出舱活动期间全部既定任务。以下说法正确的是（　　）
A．现代信息技术以计算机和通信技术为支撑，体现信息的载体依附性
B．神舟十三号飞船要验证的6个月长期在轨飞行技术，体现计算机系统运行的准确性高
C．航天服能实现隔热，应对真空温差、辐射等，保障生命安全，体现信息安全性
D．随着技术不断发展，信息必将脱离它所反映的事物，无需载体就可以传播保存
2．（2021·浙江模拟）下列有关网页的说法，正确的是（　　）
A．联网状态下可以通过点击收藏夹网址直接浏览网页，不需要网页浏览器支持
B．网页三要素：文字，图片，超文本传输协议(HTTP)
C．统计评价能反应出资源可信度较高，从本质上一定具有较强的专业性
D．用账号和密码认证登录网站，是为了提高信息数据安全和加强信息保密
3．（2021·浙江模拟）使用Access软件编辑数据表，部分界面如图所示。
当前状态下下列说法不正确的是（　　）
A．当前视图中，可以在“一段线”前面插入“特殊线”字段
B．修改某一个数值后，可以通过撤销恢复，删除某个字段或某条记录，则无法撤回
C．通过导入Excel表数据来添加记录，但无法导入文本文档来添加记录
D．“ID”字段可以转为“文本”或“数字”格式，“一段线”字段不能转成“自动编号”类型
4．（2021·浙江模拟）使用UltraEdit观察机内码，如图所示：
下列说法不正确的是（　　）
A．由图可知，相应字符ASCII码值关系"+"<"C"<"y"
B．英文字母"P"的机内码为50H，所以英文字母"O"的机内码为4FH
C．图中汉字编码字符共有2个Byte
D．根据ASCII码值大小关系可以推断出关系表达式"9">"10"的值为True
5．（2021·浙江模拟）对某音频素材使用GoldWave进行处理，界面如下图所示：
以下操作将导致音频容量发生改变的是（　　）
A．选择左声道全部，点“删除”，然后按原格式保存
B．执行复制和粘贴，选择部分修改成“双声道”，然后删除
C．左下角“左声道”改成“双声道”，点静音
D．插入静音，持续时间5秒，然后点击“删除”
6．（2021·浙江模拟）使用PhotoShop软件处理图片，颜色模式为RGB/8，参数界面如图所示：
当前状态下将图中宽度参数调成512，保存为BMP格式，关于结果文件大小、画面大小、图片内容变化情况下列说法正确的是（　　）
①容量约0.73MB ②容量约375KB ③高度500像素 ④高度250像素 ⑤图像、内容比例缩小 ⑥画面内容被裁剪
A．②④⑤ B．①④⑤ C．②③⑥ D．①④⑥
7．（2021·浙江模拟）下列有关VB表达式的描述，正确的是（　　）
A．505 Mod 10+Int(Sqr(6))和Len("python")+1相等
B．Abs(Int(-30.19))+Len(Mid("30.19",2))的值是34
C．Int(Rnd*45)*2+9一定产生两位数的奇数
D．Int(Rnd*100)+54\9/3的值可能是12
8．（2021·浙江模拟）某算法的流程图如图所示：
执行这部分流程后，输出的s,a值分别是（　　）
A．12,11 B．24,15 C．12,12 D．24,12
9．（2021·浙江模拟）以下程序要实现十进制转换为十六进制的功能，则划线处的代码为（　　）
Private Sub Command1_Click()
Const jz = "0123456789ABCDEF"
Dim d As Integer, r As Integer, s As String
d = Val(Text1.Text)
s = ""
Do While d > 0
Loop
Label1.Caption = "十六进制结果是" + s
End Sub
①d=d\16 ② s=Mid(jz,r+1,1)+s ③ s=s + Mid(jz,r,1) ④ r=d Mod 16
A．④①③ B．①②④ C．④①② D．①②③
10．（2021·浙江模拟）有如下VB程序段：
flag = False: txt = "Fighting"
For i = 1 To Len(txt)
ch = Mid(txt, i, 1)
If (ch>="a" And ch<="z" Or ch>="A" And ch<="Z") And Not flag Then
s = ch + s: flag = True
Else
flag = False
End If
Next i
Text1.Text = s
程序运行结束后，Text1中显示的内容是（　　）
A．Fighting B．ntgF C．gnithgiF D．Fgtn
11．（2021·浙江模拟）有如下VB程序段：
For i=1 To 6
a(i) =Int(Rnd()*10)+1
If a(i) Mod 2=i Mod 2 Then i=i-1
Next i
For i=1 To 2
For j= 6 To i+2 Step -1
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各元素可能是（　　）
A．7,6,5,4,3,2 B．6,7,4,5,2,3
C．11,8,9,6,7,4,5 D．2,5,6,9,8,11
12．（2021·浙江模拟）某对分查找算法的VB程序段如下：
i=1 : j=8
key=Text1.Text
Do While im=(i+j)\2
If key>=a(m) Then i=m+1 Else j=m
Loop
数组a(1)至a(7)分别是"123","25","35","477","66","8","82"，当在Text1中输入5时，运行这段程序后，下面说法错误的是（　　）
A．i二、非选择题(本大题共4小题，4+8+7+7，共26分)
13．（2021·浙江模拟）高三各科学考后的等第被统计用于下学期2-3月份的三位一体报名，现以杭电三位一体报考为例进行分数折算，将全年级的数据进行统计和分析，数据如图a所示。
图a
（1）M3单元格使用COUNTIF函数计算出“关羽”同学各科学考A等的数量，再使用“自动填充”功能先后统计其他“BCDE”等第数量，以及年级所有同学的各等第数量。M3单元格公式有误，需更正为　 　（函数COUNTIF使用说明，例“=COUNTIF（A3:A451,A3）”从A3到A451统计出1班人数）。
（2）如图a通过等第分数折算公式(A等15分，B等10分，C等5分)计算出每位同学的“杭电折算”分，3班班主任需要查看自己班杭电折算分的最高3位同学，下列方法可以实现的是 （多选，填字母）。
A．对班级列筛选条件是“3”的数据，再对杭电折算列进行筛选条件为最大3项
B．对杭电折算列进行筛选条件为最大3项，再对班级列筛选条件是“3”的班级
C．对“A2：R451”区域以“杭电折算”为主要关键字进行降序排序，再筛选班级为“3”的数据项，选择前3项
D．先筛选出班级为“3”的数据，再对“A2:R451”区域，以“杭电折算”为主要关键字降序排序，选择前3项
（3）在新的工作表中计算出各班语数外三门课A等人数情况。如图b所示，在“英语”列前面插入新的一列标题为“日语”，柱形图图表　 　（选填：会/不会）随之增加“日语”数据。
图b
14．（2021·浙江模拟）用Flash软件打开只做“飞天梦.Fla”文件，编辑界面如图a所示。
图a
请回答下列问题：
（1）下列关于多媒体作品设计的一般步骤描述正确的是 （多选，填字母）。
A．文字脚本按多媒体作品的演示顺序，描述每一环节的展示内容及呈现方式
B．媒体元素分解是多媒体作品制作的最后一个环节，实现媒体元素逐一列出，分类登记
C．确定多媒体作品的主要内容，相互间的链接方式，属于系统结构设计环节
D．完成多媒体作业预计需要1个月时间，所需资金约***元，属于应用需求分析
E．功能模块设计包含对模块文本内容、背景颜色、音频内容、交互方式等设计要求
（2）航天飞机图层实现“航天飞机”从舞台右下角移入舞台右上角区域，并一直属于喷火动画状态，请问“航天飞机”图层动画类型属于　 　（单选，填字母：A .形状补间 / B .逐帧动画 /
C .动画补间）。
（3）测试场景，发现背景图层从第1帧到第24帧未显示背景内容，要让背景内容从第一帧开始一直显示，下列做法正确的是 。（多选，填字母）
A．选中背景图层第1帧至第24帧“清除帧”
B．点击背景图层第1帧“清除关键帧”
C．选中背景图层第1帧至24帧“删除帧”，并在第50帧“插入帧”
D．在背景图层第25帧“复制帧”，在第1帧“粘贴帧”
E．点击背景图层第25帧，复制舞台上内容，在背景图层第1帧粘贴内容，调整位置
（4）“关闭”按钮元件的编辑界面如图b所示。下列说法正确的是 。（多选，填字母）
A．按钮有效，所以测试影片时鼠标移至“关闭”文字上时出现手形
B．使用菜单“控制”下的“测试场景”，按钮动作可以响应
C．“文字”图层插入帧，测试影片时鼠标移至“关闭”文字上时按钮有声音
D．使用菜单“控制”下的“播放”命令，按钮不响应，但可以听到“指针经过”的声音
E．“测试影片”时，鼠标移至“关闭”按钮矩形区可以听到“指针经过”的声音
（5）“场景 1”要实现点击“关闭”按钮关闭动画播放，则“关闭”按钮动作脚本为on(Press){　 　}。
15．（2021·浙江模拟）疫情期间，教师回校在教师宿舍隔离上网课，后勤人员连续一周轮流给教师送三餐。本校后勤人员共25人，每天安排2个人一起送餐，要求其中一名必须是年龄在40岁以下（包括40岁）的男后勤工作人员（本校符合该条件的后勤人员超过7个），另一名按如下规则进行安排：优先安排年轻的工作人员配送。每人最多安排一天的配送工作。
编写VB程序，根据后勤人员信息安排一周每天的送餐人。运行程序，在列表框List1中输出学校每个后勤人员的基本信息，单击“安排”命令按钮Command1，在列表框List2中显示每天的送餐人编号（编号是01,02,03,04，……，24,25）。程序运行界面如图a所示。
图a
请回答下列问题：
（1）要使程序运行时自动将窗体标题改为"三餐配送安排"，则语句Form1.Caption="三餐配送安排"应放在　 　（单选，填字母：A
.Form1_Load() / B .Form_Load() / C .Form1_Click() / D .Form_Click()）事件处理过程中。
（2）实现上述功能程序代码如下，完善划线处语句。
Dim
num As Integer, bh(1 To 25) As String, xm(1 To 25) As String
Dim
xb(1 To 25) As String, age(1 To 25) As Integer
Dim
flag(1 To 25) As Boolean '表示相应的员工是否已经被安排过配送任务
Dim
zudui(1 To 7) As String '表示每天的配送人员组合
Private
Sub Form_Load()
'从数据库中获取本校后勤人员所有信息，将编号、姓名、性别、年龄分别存入数组bh、xm、xb、age中，总人数在num变量中。并在list1中输出后勤人员信息。代码略。
End
Sub
Private
Sub Command1_Click()
Dim i As Integer, j As Integer, Dim k As
Integer, t1 As String, t2 As Integer
k = 1
For i = 1 To num
If xb(i) = "男" And age(i) <= 40 Then
zudui(k) = bh(i)
flag(Val(bh(i))) = True
k = k + 1
If 　 　Then Exit For
End If
Next i
For i = 1 To 7
k = i
For j = i + 1 To num
If flag(j) = False Then
If
Then k = j
End If
Next j
If k <> i Then
t1 = bh(k): bh(k) = bh(i): bh(i) = t1
t1 = xm(k): xm(k) = xm(i): xm(i) = t1
t1 = xb(k): xb(k) = xb(i): xb(i) = t1
t2 = age(k): age(k) = age(i): age(i) = t2
End If
　 　
zudui(i) = zudui(i) + bh(i)
List2.AddItem "第" + Str(i) + "天：" + Mid(zudui(i), 1, 2) + " " +　 　
Next i
End Sub
（3）程序加框处代码有问题，请修改。
16．（2021·浙江模拟）模拟某新型病毒传播的过程，已知有n*n个格子（1<=n<=10），某天其中某些格子由于不知名原因感染了病毒，开始影响周围的格子。传染原理如图a所示：
某3行3列的格子初始状态如图a所示，1表示异常（由于不知名原因感染了病毒且具有传染性），0表示正常。除了边上一圈的格子，每个格子周围有8个格子，第一天某正常格子周围超过半数格子异常，则该格子第二天就会变异常，并且带有传染性。传染过程如图b所示，矩阵中1、2、3、4分别表示该格子第1天、第2天、第3天、第4天被感染，0表示未被感染。可以看出该矩阵格子第4天全部被感染。
编写VB程序，运行程序后，在Text1中输入矩阵规模（不超过10），单击“初始化”命令按钮，在List1中输出第一天所有格子的状态，单击“传播”命令按钮，在List2中输出所有格子的最终状态，并在Label2中输出第几天全部被感染或者“不会被全部感染”。
程序运行界面如图c所示。
（1）已知第一天所有格子状态如图d所示，则第　 　天所有格子全部被感染。
（2）实现上述功能程序代码如下，完善划线处语句。
Dim
a(1 To 100) As Integer '存放格子状态
Dim
b(1 To 100) As Integer '辅助作用
Dim
zc(1 To 10000) As Integer '记录每一天的正常格子数
Dim
n As Integer '存放矩阵规模
Private
Sub Command1_Click()
Dim i As Integer, j As Integer, s As String
List1.Clear
n = Val(Text1.Text)
For i = 1 To n
s =
""
For j = 1 To n
a((i - 1) * n + j) = Int(Rnd() * 2)
s = s + Str(a((i - 1) * n + j))
If a((i - 1) * n + j) = 0 Then 　 　
Next j
List1.AddItem
s
Next i
End
Sub
Private
Sub Command2_Click()
Dim i As Integer, j As Integer, tian As
Integer, flag As Boolean
List2.Clear
'下面代码实现病毒传染过程
tian = 1: flag = False
Do While zc(tian) > 0
tian = tian + 1
For i = 1 To n * n
If
a(i) = 0 Then
If　 　 Then b(i) = tian
Else
b(i) = a(i)
End If
Next
i
For i = 1 To n * n
If
b(i) = 0 Then zc(tian) = zc(tian) + 1
a(i) = b(i)
Next i
If　 　 Then flag = True: Exit Do
Loop
'在List2中输出所有格子的最终状态，代码略。
If flag Then
Label2.Caption = "不会被全部感染"
Else
Label2.Caption = "第" + Str(tian) + "天全部被感染"
End If
End
Sub
'Judge函数用来判断第i行第j列的格子周围的异常格子数是否超过半数，超过半数返回True
Function
Judge(i As Integer, j As Integer) As Boolean
'代码略
End
Function
答案解析部分
1．【答案】B
【知识点】信息及其特征
2．【答案】D
【知识点】因特网信息资源评价；浏览器；网页组成元素
3．【答案】C
【知识点】数据表、字段、记录的编辑
4．【答案】C
【知识点】运算符、基本运算与表达式；字符编码
5．【答案】D
【知识点】声音素材的基本处理
6．【答案】A
【知识点】图片素材的基本处理
7．【答案】A
【知识点】运算符、基本运算与表达式
8．【答案】B
【知识点】流程图识读
9．【答案】C
【知识点】循环结构语句及程序实现；常用标准函数
10．【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
11．【答案】B
【知识点】排序算法及程序实现；常用标准函数
12．【答案】C
【知识点】查找算法及程序实现
13．【答案】（1）=COUNTIF（$C3:$L3,M$2）
（2）C；D
（3）不会
【知识点】表格数据的处理与计算
14．【答案】（1）A；D；E
（2）C
（3）B；C；D
（4）B；C；E
（5）FSCommand（"Quit"）
【知识点】多媒体作品的规划和设计；动画的类型；常用影片控制函数的应用；多媒体作品的调试与递交；声音同步属性设置
15．【答案】（1）B
（2）k>7 或k>=8 或k=8；flag(Val(bh(i)))=True；Mid(zudui(i),3,2)或者bh（i）
（3）flag(k)=True Or age(j)【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；排序算法及程序实现
16．【答案】（1）2
（2）zc(1)=zc(1)+1；Judge((i-1)\n+1,(i-1) Mod n+1)；zc(tian)=zc(tian-1)
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
1 / 1