t=a（j）:
a（j）=a（j-2）:
a（j-2）=t
EndIf
Nextj
Nexti
假定数组元素a
（1）～a（6）的值依次为“happy，sky，change，sk，bellow，hello”。
执行该程序段后，a（4）～a（6）的值依次是
A.sk，bellow，skyB.sky，bellow，skC.sk，happy，skyD.happy，sk，sky
11.判断非重字符串s2（至少含2个字符）是否为s1的子集，若s2的字符按序在s1中出现，则称s2为s1的子集。
例:
s1="a3bcd"，s2="ab"，s3="ba"，则s2是s1的子集，s3不是s1的子集。
实现该功能的VB程序段如下：
s1=Text1.Text:
s2=Text2.Text
i=1:
j=1
DoWhilei<=Len（s1）Andj<=Len（s2）
IfMid（s1,i,1）=Mid（s2,j,1）Then
（1）
（2）
Loop
If（3）ThenLabel1.Caption="是子集"ElseLabel1.Caption="不是子集"
上述程序填空处的可选语句为：
①i=i+1②j=j+1③i>Len（s1）④j>Len（s2）
则
（1）
（2）（3）处语句依次最合理的搭配为
A.①②③B.②①③C.①②④D.②①④
12.有如下VB程序段：
s=""
i=1:
j=10:
k=1
DoWhilei<=j
m=Int（（i+j）/2）
Ifa（m）>b（k）Thenj=m-1Elsei=m+1
Ifa（m）=b（k）Thenk=k+1:
s=s+Str（m）
Loop
数组元素a
（1）到a（10）依次为“2,3,7,9,10,15,15,15,19,20”，执行该程序段后，变量s的值有3个字符，则b
（1）到b（3）的值可能为
A.2311B.379C.101515D.151519
二、非选择题（本大题共4小题，其中第13小题4分，第14小题8分，第15小题7分，第16小题7分，共26分）
13.某中学校园英语文化节举行了各类比赛，用Excel软件对比赛成绩进行处理，如图a所示。
第13题图a
（1）图a中L4:
P4区域的数据是根据K4单元格自动填充得到，则L4单元格中的公式是（单选，填字母：
A.=AVERAGEIF（$A$4:
$A$63,"高一*",C4:
C63）
/B.=AVERAGEIF（$A4:
$A63,"高一*",C4:
C63）/C.=AVERAGEIF（$A4:
$A63,"高一*",B4:
B63）
（2）根据图a数据创建的图表如图b所示，则创建图表的数据区域为。
第13题图b
（3）若要找出高三年级口语成绩最好的班级，下列操作可行的是（多选，填字母）。
A.以“班级”包含高三，“口语”最大1项进行筛选，选取筛选出的班级。
B.以“班级”包含高三进行筛选，再按“口语”进行降序排序，选取排在最前面的班级。
C.以“口语”为主要关键字，“班级”为次要关键词均降序排序，选取排在最前面的班级。
D.以“口语”为主要关键字降序排序，以“班级”包含高三进行筛选，选取排在最前面的班级。
14.使用Flash软件创作“雍正故宫”作品，其中“load”场景的制作脚本如下表所示，部分界面如第14题图a所示，请回答下列问题：
场景名：
load
类别序号：
1
进入方式：
启动动画自动播放
呈现方式：
呈现顺序：
①“音乐”图层中的声音源于库中的素材bg.wav,
①一开始时出现背景画面，音乐随即
参数如第14题图b所示。
播放。
②“文物”从完全透明到完全显示，由左到右
②1秒后出现“文物”动画，3.5秒后音
由小变大慢慢呈现在舞台上。
乐停止播放。
③“播放”按钮位于舞台右侧位置，单击该按钮跳
③最后出现“播放”按钮，场景停止
转到“main”场景第1帧并开始播放。
播放。
（其他略）
（其他略）
第14题图a第14题图b
（1）根据所给材料，下列说法正确的是（多选，填字母）。
A.该动画作品至少包含2个场景
B.“播放”按钮只能用于本场景的舞台中
C.编写制作脚本后应进行的操作是编写文字脚本
D.“文物”图层第10帧对象的Alpha值为0%
（注：
全部选对的得2分，选对但不全的得1分，不选或有选错的得0分）
（2）从图中可知“故宫”图层中的文字“雍正故宫”为（选填：
实例/形状）。
（3）根据制作脚本可知，背景图层第60帧处应添加动作命令为。
（4）若要使得“音乐”图层中的音乐在“文物”图层补间动画结束后停止播放，在不改变其他动画效果情况下，以下操作可行的是（多选：
填字母）。
A.在“音乐”图层第20帧帧插入关键帧
B.将“音乐”图层第35帧空白关键帧移至第20帧
C.在“音乐”图层第20帧添加stopAllSounds（）;指令
D.删除“音乐”图层第20-34帧，并将声音的同步方式设置为事件
（5）“按钮”图层的呈现方式和脚本不符，则应进行的操作是。
15.
某分段排序算法描述如下：
1）将原始数据按升序分成若干有序段。
2）将第1段和第2段进行合并，使得合并后的数据依旧有序，得到新的有序段。
3）将新的有序段再次和下一个有序段进行合并。
4）重复上述操作，直到全部数据变成一个有序段为止，排序结束。
如数据：
1、3、9、4、5、7、2、6，第1段为1、3、9，第2段为4、5、7，将第1段和第2段合并，得到新的第1段为1、3、4、5、7、9。
继续和下一段2、6进行合并，合并后段数变为1段，则排序结束。
编写VB程序，实现分段排序功能：
在文本框Text1中输入数据总量，单击“数据生成”按钮Commandl后，在列表框List1中显示原始数据，然后单击“分段排序”按钮Command2，在列表框List2中显示排序后的结果。
程序运行界面如第15题图所示。
请回答下列问题：
（1）若要清空列表框List1，下列代码正确的是（单选，填字母：
A.List1.Clear/B.List1.List=""/C.List1.Text=""/D.List1.Caption="空白"）。
（2）实现分段排序功能的VB程序如下，请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正。
Dima（1To1000）AsInteger
DimnAsInteger
PrivateSubCommand1_Click（）
'输入数据总量n，随机生成n个数据保存在数组
'a
（1）~a（n）中，并在List1中显示数据，代码略
EndSub
第15题图
PrivateSubCommand2_Click（）
Dimb（1To10000）AsInteger
Dimp1AsInteger,p2AsInteger,t1AsInteger,t2AsInteger
DimtAsInteger,kAsInteger,iAsInteger,jAsInteger
p1=1
t1=leng（p1）
p2=p1+t1
DoWhilep2<=n
①
i=p1:
j=p2:
t=1
DoWhileiIfj>=p2+t2Orib（t）=a（i）:
i=i+1
Else
b（t）=a（j）:
j=j+1
EndIf
t=t+1
Loop
Fork=1To②
a（k）=b（k）
Nextk
t1=t1+t2
p2=p1+p2
Loop
'在List2中输出数组a（i）的值，代码略
EndSub
FunctionLeng（ByValpAsInteger）AsInteger
'该函数返回数组a中数组下标p开始的升序有序段的长度，代码略
EndFunction
16.亲戚寻找。
小李总是因为认不清亲戚而苦恼，于是他设计了如下程序来模拟亲戚寻找的过程。
已知：
如果1和2是亲戚，1和3是亲戚，则2和3也是亲戚。
代码思维如下：
1）将每个人看成是一个钩码，能挂在另一个挂钩底下，自己底下也能挂其他挂钩。
2）如果两个钩码在同一条钩码串上，则为亲戚（如2、3都能找到1）。
3）如果两个是亲戚但不在一串钩码上，则可将其中一串的最上面的钩码挂在另一串的下方。
钩码串1钩码串2合并后的钩码串
第16题图a第16题图b
例如从图a加框处的前三行数据可得到图b所示的钩码串1和钩码串2，从第四行数据可知9、5也为亲戚，则可将两串钩码合并，合并后3为2的顶端，5为3的顶端，其余数据以此类推。
根据算法思想，编写VB程序功能如下：
程序初始化时给出6条亲戚关系显示在List1中，单击“理关系”按钮，在List2中显示每个人所在钩码的顶端编号。
在Text1和Text2中分别输入两人的编号，单击“询问”按钮，输出两个人是否为亲戚关系。
程序运行界面如图a所示。
（1）根据图a数据，若输入两人的编号为4和5，则两人的关系是否为亲戚（填：
是/否）。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Constn=9'总人数
Constm=6'已知的亲戚关系数
Dima（1Ton）AsString,b（1Ton）AsString
Dimf（1Ton）AsString'记录不同的亲戚钩码串成员，每条亲戚钩码串内互为亲戚
DimkAsInteger'亲戚钩码串的数目
PrivateSubForm_Load（）
'初始化List1和List2，生成m条亲戚关系，每条亲戚关系的编号对应存储在数组a（i）和b（i）'中，在List1中输出a（i）和b（i），代码略
EndSub
PrivateSubCommand1_Click（）
DimiAsInteger,xAsInteger,yAsInteger
f
（1）=a
（1）+b
（1）'利用a
（1）、b
（1）生成第一条钩码串存储在f
（1）中
k=1'k为钩码串编号
Fori=2Tom
x=root（a（i）,0）:
y=root（b（i）,0）'x为调用函数获取a（i）所在的钩码串编号
Ifx=0Andy=0Thenk=k+1:
①'根据x与y分类讨论
Ifx<>0Andy=0Thenf（x）=f（x）+b（i）
Ifx=0Andy<>0Thenf（y）=f（y）+a（i）
Ifx<>yAndx<>0Andy<>0Then'x、y在不同钩码串则将两条钩码串合并
f（x）=f（x）+f（y）:
f（y）=f（k）:
k=k-1
EndIf
Nexti
Fori=1Ton'输出每个人所在钩码的顶端编号
x=root（CStr（i）,0）:
y=root（CStr（i）,1）'Cstr（）函数用于去除字符前导空格
Ifx<>0Then
Ify=Len（f（x））ThenList2.AddItemStr（i）+""+CStr（i）
Ify<>Len（f（x））ThenList2.AddItemStr（i）+""+②
EndIf
Nexti
EndSub
'按钮Command2的功能为判断输入的两个人是否为亲戚关系，代码略
Functionroot（aAsString,bAsInteger）AsInteger'参数a表示待查找目标，参数b
'表示返回值类型，0表示返回目标所在钩码串编号，1表示返回目标在该钩码串中的位置
DimmAsInteger,nAsInteger,iAsInteger,jAsInteger
m=0:
n=0:
i=k:
j=0
DoWhilei>0
Ifa=Mid（f（i）,Len（f（i））-j,1）Thenm=i:
n=Len（f（i））-j:
ExitDo
j=j+1
Ifj=Len（f（i））Theni=i-1:
j=0
Loop
If③Thenroot=mElseroot=n
EndFunction
2020学年第二学期浙江省名校协作体试题
高三年级技术学科参考答案
首命题：
湖州中学次命题兼审校：
长兴中学审核：
衢州二中
一、选择题（本大题共12小题，每小题2分，共24分。
）
题号
1
2
3
4
5
6
7
8
9
10
11
12
答案
B
B
D
C
D
C
A
C
C
A
D
B
二、非选择题（本大题共4小题，其中第13小题4分，第14小题8分，第15小题7分，第16小题7分，共26分）
13.
（1）B（1分）
（2）J3:
P3,J6:
P6（1分）
（3）BD（2分）
14.
（1）AD（2分）
（2）实例（1分）
（3）Stop（）;（1分）注：
无括号不给分
（4）AB（2分）
（5）将“按钮”图层第1帧移至第60帧或其他等价答案（2分）
15.
（1）A（1分）
（2）①t2=leng（p2）或t2=leng（t1+p1）或t2=leng（t1+1）（2分）
②t1+t2或t-1或p2+t2-1（2分）
（3）p2=p1+t1或p2=p2+t2或t或t1+1（2分）
16.
（1）是（1分）
（2）①f（k）=a（i）+b（i）（2分）
②Mid（f（x）,y+1,1）（2分）
③b=0（2分）
升级会员 