j＝j－1
Loop
Nexti
数组元素a
（1）~a（8）的值为随机生成的整数，为实现升序排序，则上述程序段3个方框处的表达式分别为（）
A.①j＝i－1②a（j＋1）＝a（j）③a（j＋1）＝a（0）
B.①j＝i＋1②a（j＋1）＝a（j）③a（0）＝a（j＋1）
C.①j＝i－1②a（j）＝a（j＋1）③a（j＋1）＝a（0）
D.①j＝i＋1②a（j）＝a（j＋1）③a（0）＝a（j＋1）
二、非选择题（本大题共4题，其中第13题4分，第14题8分，第15题7分，第16题7分，共26分）
13.小王从图书馆收集了学校学生借阅情况的数据（其中班生均数为各班人均所借图书数），并用EXCEL进行处理，如图a所示。
请回答下列问题。
（1）区域C18：
G18的数据由H18单元格利用自动填充功能得到，则C18单元格中的计算公式为。
（2）若要对高三年级按“班生均数”降序排序，则排序时选择的数据区域是。
（3）根据图a中部分数据直接创建了图b所示的图表，其数据区域是。
（4）若将C3：
I18中单元格的数字格式保留0位小数，则图b中图表（会/不会）受影响。
14.小王使用Photoshop和Flash软件制作某多媒体文件。
请回答下列问题：
（1）如图a所示，小王先用Photoshop处理图片，当前状态下下列说法，正确的有。
（多选，填字母：
A.不能用“文字工具”修改“亡羊补牢”字样的字体/B.先用“套索工具”选中背景图层的白色背景，然后用Delete键删除，最后将背景变为透明/C.先用“矩形选框工具”选中“亡羊补牢”图层，单击delete键可以进行“内容识别”操作/D.“亡羊补牢”图层可见的图层样式是“投影”/E.将当前状态下的图像保存为BMP格式，则其大小约为302KB（注：
全部选对的得2分，选对但不全的得1分，不选或有选错的得0分）
（2）制作的Flash动画部分界面如图b所示，“文字”图层第1帧到第20帧实现的是“文字”实例“亡羊补牢”的淡入效果，该动画属于（选填字母：
A.逐帧动画/B.动画补间/C.形状补间）动画。
（3）“文字”图层的30帧到50帧实现的是“亡羊补牢”逐渐过渡到“为时不晚”的动画效果，已知30帧关键帧内容是由20帧复制过来的，则在30帧需要进行的操作是。
（4）“声音”图层添加的声音属性如图b所示。
当同步方式变为“事件”后，声音播放长度将（选填字母：
A.变长/B.变短/C.不变）。
（5）测试影片时，单击“退出”按钮后将关闭动画窗口，则该按钮上的动作脚本是。
15.“杨辉三角”问题，如图所示，其规律如下：
其显著特征是除斜边上的1以外，其余数值均等于其肩部两数之和。
编写VB程序，其功能如下：
在文本框Text1中输入20以内的整数，点击“打印”按钮，在列表框list1中输出杨辉三角，程序界面如图所示，VB程序代码如下。
实现上述功能的VB程序如下，请回答下列问题：
（1）代码“PrivateSubCommand1_Click（）”中的Command1_Click（）属于（单选，填字母：
A.对象名/B.属性名/C.事件名/D.事件过程）。
（2）请在划线处填入合适的代码。
（3）若将加框处代码改为“1Toi”，则（选填：
会/不会）影响程序结果。
PrivateSubCommand1_Click（）
Dima（20）AsLong
DimIAsInteger，jAsInteger，sAsString
List1.Clear
n＝Val（Text1.Text）
a
（1）＝1
List1.AddItemStr（a
（1））
Fori＝2Ton
s＝""
Forj＝iTo1Step－1
a（j）＝①
s＝s＋Str（a（j））
Nextj
②
Nexti
EndSub
16.礼品分配问题：
某班得到一件精美礼品，由于只有一件礼品，大家决定用下面方法来分配该礼品：
n个同学围成一圈，按顺序从1到n进行编号。
从第1个人开始报数，报到m的人退出，下一个人继续从1开始报数，报到m的人出圈┈┈，如此依次进行，直到留下的最后一个人得到该礼品。
程序运行界面如图所示，单击“开始”按钮，将输出退出圈子的同学编号以及最后获得奖品的编号。
实现上述功能的VB程序如下，请回答下列问题。
（1）当班级总人数n＝15，m＝5的时候，获得礼品的同学编号是（填写数字）。
（2）在划线处填入合适的代码。
PrivateSubCommand1_Click（）
DimiAsInteger,nAsInteger,mAsInteger
DimnumAsInteger,tAsInteger
Dima（1To100）AsBoolean
n=Val（Text1.Text）
m=Val（Text2.Text）
Fori=1Ton
a（i）=True
Nexti
①
DoWhilet>1
Fori=1Ton
Ifa（i）=TrueThen②
Ifnum=mThen
③
t=t-1
num=0
Text3.Text=Text3.Text+Str（i）
EndIf
Nexti
Loop
Fori=1Ton
Ifa（i）=TrueThenLabel2.Caption="获得礼品同学编号:
"+Str（i）
Nexti
EndSub
2021第二学期温州“十五校联合体”期末联考
第一部分信息技术（50分）
一、选择题（本题共12小题，每小题2分，共24分。
每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分）
题号
1
2
3
4
5
6
7
8
9
10
11
12
答案
B
A
C
B
D
C
B
D
C
B
D
A
二、非选择题（本大题共4小题，其中第13小题4分，第14小题8分，第15小题7分，第16小题7分,共26分）
13．
（1）=SUM（C3：
C17）（1分）
（2）B13：
I17（1分）
（3）A2:
B2，A8:
B12，I2，I8:
I12（1分）
（4）不会（1分）
14.
（1）AE（2分）
（2）B（1分）
（3）将“亡羊补牢”实例分离3次评分标准：
若写出“对实例进行分离操作”，给1分；具体写出“分离3次”，给2分；若写“分离2次”则不给分。
（2分）
（4）A（1分）
（5）on（press）{fscommand（“quit”）;}或on（release）{fscommand（“quit”）;}（2分）
15．
（1）D（1分）
（2）①a（j）+a（j-1）（2分）
②List1.AddItems（2分）
（3）会（2分）
16.
（1）1（1分）
（2）①t=n（2分）
②num=num+1（2分）
③a（i）=False（2分）
升级会员 