C．①1Ton-i②a（j）>a（j+1）D．①n-iTo1Step-1②a（j）>a（j+1）
10．有如下VB程序段：
i=1:
n=5
DoWhilei<=n
x=Int（Rnd*10）+1
IfxMod2=0Then
a（i）=x
Else
a（n）=x
n=n-1
EndIf
i=i+1
Loop
数组元素的初值均为0，执行该程序段后，在下列选项中a
（1）至a（5）各元素值可能的是
A．226411B．40329C．04075D．24880
11．有一字符串，由数字、字母和“-”组成，现以“-”为分组标记，作如下处理：
数字往前移3位，如5→2,3→0,8→5；字母倒序放在各组前面；“-”不作处理。
如字符串“25f-IT4-63t-”，经过处理后变为“f92-TI1-t30-”。
下列VB程序段实现该算法，则填空处的代码应该是
Constmw="0123456789"
s=Text1.Text：
s1="":
s2=""
Fori=1ToLen（s）
c=Mid（s,i,1）
Ifc>="0"Andc<="9"Then
_____
（1）______
c=Mid（mw,t+1,1）
s1=s1+c
ElseIfc="-"Then
_____
（2）______
s1=""
Else
________（3）_________
EndIf
Nexti
①s1=c+s1②s2=s2+s1+c③s2=c+s2+s1
④s1=s1+c⑤t=（7+Val（c））Mod10⑥t=（Val（c）-3）Mod10
A．⑤②①B．⑤③④C．⑥①②D．⑥②①
12．某对分查找算法的VB程序段如下：
Key=Val（Text1.Text）:
s=""
i=1:
j=10
DoWhilei<=j
m=（i+j）\2
Ifa（m）>KeyThen
i=m+1
s=s+"R"
Else
j=m-1
s=s+"L"
EndIf
Loop
Text2.Text=s
数组元素a
（1）到a（10）的值依次为“33，21，18，14，14，14，10，6，4，1”。
在文本框Text1中输入14后，该程序段的输出结果与输入下列值的输出结果相同的是
A．10B．16C．19D．3
二、非选择题（本大题共4小题，其中第13题4分，第14题8分，第15题7分，第16小题7分，共26分。
）
13．小叶收集了2020年第一季度浙江省各地级市人口经济数据，并使用Excel软件进行数据处理与分析，如第13题图所示。
请回答下列问题：
（1）“人口占比%”是将每个区县市的“常住人口”除以对应地级市“常住人口总数”所得。
在计算绍兴市的“人口占比%”时，通过D86单元格中的公式，对D87:
D91进行自动填充，则D87单元格的值为▲（选填：
A．“0”/B．“15.8”/C．“#DIV/0!
”/D．“#VALUE!
”）。
（2）区域I3:
I13的数据是通过COUNTIF函数计算得到的：
在I3单元格中输入公式▲,再利用自动填充功能完成区域I4:
I13的计算。
（提示：
COUNTIF函数用于统计某个区域中满足条件的单元格个数之和。
例如=COUNTIF（A3:
A91,H4）用于统计A3:
A91中“杭州市”所对应的区县市个数）
（3）若要从表中找出湖州市常住人口最多的3个地区，并显示在操作结果的最前面，一种可行的操作是：
将数据区域A2：
F91复制至新的数据表，对该区域▲。
（按操作顺序选填两个字母）
A．对表中数据以“地级市”为关键字升序排序
B．对表中数据以“常住人口（万人）”为关键字降序排序
C．按“地级市”为“湖州市”进行筛选
D．按“常住人口（万人）”为“最大3项”进行筛选
（多选，全部选对的得2分，选对但不全的得1分，不选或者有选错的得0分）
14．小明制作主题为“夏天”的多媒体作品。
“main”场景的制作脚本和界面如第14题图所示：
（1）在制作作品前，小王进行了相应的工作。
下列各环节的正确顺序是▲（填字母：
A．确定该作品用于课堂学习交流使用/B．根据文字脚本，制订该作品的制作脚本C．描述整个作品的组成部分、工作流程、主要界面/D．确定该作品中图片素材需要从网络中获取，并无版权问题）。
场景名：
main
类别序号：
2
进入方式：
单击“load”场景的“Play”按钮进入
场景界面元素：
背景图片、背景音乐、青蛙动画、月亮动画、exit按钮
呈现方式：
1．月亮在舞台中间实现“完全显示→完全消失→完全显示”的效果。
2．单击右下角的“exit”按钮，在浏览器中显示同一文件夹下“夏日故事.html”文件的内容，同时关闭动画。
呈现顺序说明：
1．进入场景时出现背景图片和青蛙动画。
2．动画开始1秒后背景音乐响起同时月亮出现，并开始慢慢消失，持续2秒后完全消失，紧接着又逐渐显现，直到动画结束。
3．最后，出现“exit”按钮，并停止动画播放，但背景音乐继续播放。
（2）“月亮”图层第37帧中对象的alpha值为▲。
（3）“青蛙”图层的补间动画总时长为▲s。
（4）“青蛙”图层中的补间动画是由“青蛙.gif”素材导入到库中得到的元件制作而来，若将“青蛙.gif”直接导入到舞台，则得到的动画类型是▲。
（填字母：
A．动画补间动画/B．形状补间动画/C．逐帧动画）。
（5）测试动画时，发现背景音乐响起时间与制作脚本不符，且动画停止时背景音乐也停止。
则在“声音”图层中应执行的操作是▲。
（6）“exit”按钮上的动作脚本为on（press）{▲}。
15．若字符串c是在字符串s的任意位置插入多个字符后构成的新字符串，则称字符串c为字符串s的扩展字符串。
判断扩展字符串的VB程序界面如第15题图1所示，在文本框Textl和Text2中分別输入字符串s和c，单击“判断”按钮Commandl，如果字符串c为字符串s的扩展字符串，则在文本框Text3中输出“是”和插入字符的内容，否则输出“否”。
（1）设计程序界面时，用于输入字符串c的文本框Text2，可用15题图2所示“控件工具箱”中的▲（填写相应编号）进行添加。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
（3）加框处代码有误，请改正。
PrivateSubCommand1_Click（）
DimsAsString,cAsString
DimssAsString,ccAsString
DimiAsInteger,jAsInteger,resAsString
s=Text1.Text:
c=Text2.Text
i=1:
j=1
res=""
DoWhilei<=Len（s）
ss=Mid（s,i,1）
cc=Mid（c,j,1）
Ifss=ccTheni=i+1Else‘①
j=j+1
If‘②ThenExitDo
Loop
Ifi>Len（s）Then
Text3.Text="是，增加了：
"+
res
Else
Text3.Text="否"
EndIf
EndSub
16．小张利用VB给教务处老师编写了“排监考表”的小程序。
该程序的执行过程如下：
①从数据库中读取待排监考的老师姓名信息存入数组teachers，每个考试科目的学生数（新高考7选3，每个考试科目学生数不一样）存入数组xkStudSum（其中xkStudSum
（1）存放语文学科的学生数,按“语文数学英语物理化学生物政治历史地理技术”依次类推）；
②根据每个试场的人数（30人）计算出各个考试科目的试场数存入数组xkSc（其中xkSc
（1）存放语文学科的试场数，依次类推）；
③将待排教师分配到每一个考场，并存入数组scTeacher（每个老师只能排1场，教师数量100，保证大于所有的试场数）；
④按考试科目将监考教师姓名显示在list1中。
运行界面如下图所示。
（1）分析程序，可知数据库的文件名为▲。
（2）实现上述功能的VB程序如下，请完善划线处的代码。
ConstXKMC="语文数学英语物理化学生物政治历史地理技术"'考试科目
DimxkStudSum（1To10）AsInteger'各个考试科目学生数
Dimteachers（1To100）AsString'存放待排监考的教师姓名
DimscTeacher（1To100）AsString'存放已排监考的教师姓名
DimxkSc（1To10）AsInteger'各个学科试场数
PrivateSubForm_Load（）
‘本过程从数据库中读取各考试科目学生数并存放在数组xkStudSum
‘读取教师姓名并存放在数组teachers
DimconnAsNewADODB.Connection
DimrsAsNewADODB.Recordset
conn.ConnectionString=“provider=Microsoft.ACE.OLEDB.12.0;datasource=”
+“ST.accdb”
‘本过程其他代码略
EndSub
PrivateSubCommand1_Click（）
DimindexAsInteger
DimtotalScAsInteger‘存放总试场数量
Dimbook（1To100）AsBoolean
Randomize
Fori=1To10
xkSc（i）=Abs（Int（（-1）*xkStudSum（i）/30））
totalSc=totalSc+xkSc（i）
Nexti
Fori=1TototalSc
t=Int（Rnd（）*100）+1‘随机生成待排监考老师的编号
IfNotbook（t）Then
①
book（t）=True
Else
②
EndIf
Nexti
'按考试科目显示监考老师
Fori=1To10
s=③+":
"
Forj=1ToxkSc（i）
index=index+1
s=s+scTeacher（index）+","
Nextj
List1.AddItems
Nexti
EndSub
浙江省A9协作体暑假返校联考
高三技术参考答案
第一部分：
信息技术（共50分）
一、选择题（每小题2分，共24分）
题号
1
2
3
4
5
6
7
8
9
10
11
12
答案
B
A
D
A
B
B
C
B
A
C
A
B
二、非选择题（本大题共4小题，其中第13题小题4分，第14小题8分，第15小题7分，第16小题7分，共26分）
13．
（1）C（1分）
（2）=COUNTIF（A$3:
A$91,H3）或=COUNTIF（$A$3:
$A$91,H3）（1分）
（3）BC或CB（2分）
14．
（1）ACBD（1分）
（2）0或0%（1分）
（3）4（1分）
（4）C（1分）
（5）将声音图层的第1帧移到第13帧，背景音乐的同步方式改成事件或开始（2分）
（6）getUrl（“夏日故事.html”）;fscommand（”quit”）;（2分）
15．
（1）2（1分）
（2）①res=res+cc（2分）
②j>Len（c）（2分）
（3）res+Mid（c,j,len（c）-j+1）（2分）
16．
（1）ST.accdb（1分）
（2）①scTeacher（i）=teachers（t）（2分）
②i=i-1（2分）
③Mid（XKMC,2*i-1,2）（2分）
升级会员 