D.①j<=Int（Sqr（i））②iModj=0③flag=False④j=j+1
11.有如下程序段：
DimiAsInteger,SumAsInteger
Dima（1To12）AsInteger
Sum＝0a（12）＝19
Fori＝10To1Step-2a（i）＝a（i＋2）-1
Ifa（i）Mod3＝0ThenSum＝Sum＋a（i）Nexti
Text1.Text＝Str（Sum）该程序段运行后，文本框text1中显示的内容是
A．45B．33C．18D．15
12.有如下VB程序段：
i=1：
n=5
Dowhilei<=nx=Int（Rnd*9）+1
IfxMod2=1Thena（i）=x
Else
a（n）=x:
n=n-1
EndIfi=i+1
Loop数组元素的初值均为0，执行该程序段后，数组元素a
（1）到a（5）的值不．可．能．是A．7,5,0,3,6B．3,0,9,4,2
C．0,0,4,6,6D．1,3,5,5,0二、非选择题（本大题共4小题，其中第13小题4分，第14小题8分，第15小题7分，
第16小题7分，共26分）
13.小林使用Excel软件对高二
（1）班部分学生田径赛测评成绩进行了分析，如图a所示。
请回答下列问题：
图a
（1）表中“等级”数据（“总成绩”大于等于85，等级为“优秀”，其他为“良好”）是用IF函数计算得到的。
选择F3单元格输入公式，然后用自动填充功能完成其他单元格的计算。
则F3单元格的公式是。
（提示：
IF函数的功能是：
判断是否满足某个条件，如果满足返回一个值，如果不满足则返回另一个值。
例如：
如果单元格A1的值是60，公式=IF（A1>=60,"通过","不通过"）返回值为“通过”）。
（2）选择区域A2：
F11，以“总成绩”为主要关键字进行降序排序，能否对该班男生的总成绩进行降序排序？
（填：
能/不能）。
（3）根据图a中数据制作的图表如图b所示，创建该图表的数据区域是。
图b
（4）若对表格中数据进行自定义筛选，设置的筛选条件如图c所示，则图b的图表中将显示（填数字）项数据
图c
14.小林创作主题为“勤学苦读”的多媒体作品，他首先使用Photoshop软件制作了海报，如图a所示。
然后使用Flash软件合成如图b所示多媒体作品。
请回答下列问题：
图a
（1）下列说法正确的是（多选，填字母：
A.可以通过“自由变换”调整“書”图层中汉字的大小/B.可以通过文字工具更改“勤学”的文字字体/C.当前状态下，“书本”图层只有“投影”的图层样式可见/D.可以调整“背景”图层的不透明度（注：
全部选对的得2分，选对但不全的得1分，不选或有错选的得0分）
图b
（2）图b中“孔子”图层第1帧到第35帧实现了“孔子“从远处走到书案前停止的效果，
该动画的补间类型是
（3）测试影片时,“竹动”图层的竹子不停地在摇曳，分析上图可知“竹动”图层第１帧的内容是由元件生成的实例。
（填元件类型）
（4）测试影片时,“文字”图层内容在播放完第35帧后消失。
为使该图层内容延续到第50帧，在不改变其他动画播放效果的前提下，下列操作可行的是。
（多选，填字母）A．选中“文字”图层第1帧执行“复制帧”操作，在第36帧执行“粘贴帧”操作B．选中“文字”图层第36帧，执行“清除关键帧”操作C．选中“文字”图层第36帧，执行“插入帧”操作D．选中“文字”图层第36帧，执行“删除帧”操作
E.选中“文字”图层第35帧，移动到第36帧
（注：
全部选对的得2分，选对但不全的得1分，不选或有错选的得0分）
（5）生成SWF影片后，动画播放到50帧自动关闭。
则应在图层（填写图层名称）第50帧设置动作脚本。
15.编写VB程序，实现在1到40中随机抽取n个不重复的数字。
在文本框Text1中输入需要抽取的个数n，单击“抽取”按钮Command1，在列表List1中输出结果，程序设计界面如图a所示。
请回答下列问题：
图a图b
（1）在设计程序界面时，应使用图b所示“控件工具箱”中的（填写相应编号）添加列表框。
（2）实现上述功能的VB程序如下，请在划线处填写合适的代码。
PrivateSubCommand1_Click（）
Dima（1To40）AsIntegerDimiAsIntegerList1.Clear
n=Val（Text1.Text）Randomize
Fori=1Ton
①’随机生成[1，40]之间的正整数Forj=1Toi-1
Ifa（j）=a（i）Theni=i+1
ExitFor
EndIf
Nextj
Nexti
Fori=1Ton
List1.AddItemStr（a（i））Nexti
EndSub
（3）加框处代码有误，请改正。
（4）运行程序，在文本框Text1中输入41，单击“抽取”按钮，程序错误提示为。
（填写字母：
A.溢出/B.下标越界/C.缺少对象）
16.编写VB程序，实现如下功能：
在文本框Text1中输入一串字符，单击“统计”按钮
Command1，统计每个英文字母（不区分大小写）出现的次数，找出出现次数最多的字母，在标签Label1中显示结果。
运行效果如图所示。
（1）实现上述功能的VB程序如下，请在划线处填入合适的代码。
PrivateSubCommand1_Click（）
DimiAsInteger,nAsInteger,maxAsInteger
Dima（1To26）AsInteger'数组a存放26个大小写字母出现的次数DimstAsString,chAsString
st=Text1.Text
Fori=1ToLen（st）
①
Ifch>="A"Andch<="Z"Thenn=Asc（ch）-Asc（"A"）+1a（n）=a（n）+1
ElseIfch>="a"Andch<="z"Thenn=②
a（n）=a（n）+1
EndIf
Nexti
max=a
（1）
Fori=1To26
If③Thenmax=a（i）
EndIfNextist=""
Fori=1To26
Ifmax=a（i）Then
st=st+""+Chr（Asc（"A"）+i-1）EndIf
Nexti
Label1.Caption="出现次数最多的字母是：
"&st&""&"出现次数为：
"&Str（max）EndSub
（2）在文本框Text1中输入字符串“ABCEEEEffee333333”，运行程序时，标签Label1中输出结果为：
出现次数最多的字母是：
出现次数为：
。
（2）下列配件中，不．属．于．标准件是▲（在下列选项中选择合适的选项，将序号填入“▲”处）；
丽水市2019学年第一学期普通高中教学质量监控
高二信息技术参考答案
第一部分信息技术
一、选择题答案：
每小题2分，共24分
1
2
3
4
5
6
7
8
9
B
C
B
A
D
C
B
C
A
10
11
12
D
B
D
二、非选择题（第13小题4分，第14小题8分，第15小题7分，第16小题7分，共26分）
13.共4分
（1）=IF（E3>=85,”优秀”,“良好”）（1分）
（2）不能（1分）
（3）B2：
C11（1分）
（4）2（1分）
14.8分
（1）BC（2分）
（2）动画补间（1分）
（3）影片剪辑（1分）
（4）ABE（2分）
（5）书案fscommand（"quit"）;（2分）
15．共7分
（1）4（1分）
（2）a（i）=Int（Rnd*40）+1或a（i）=Int（Rnd*40+1）（2分）
（3）i=i-1（2分）
（4）B（2分）
16.共7分
（1）①ch=mid（st,i,1）或ch=mid（Text1.text,i,1）（1分）
②Asc（ch）-Asc（"A"）+1-32或Asc（ch）–96或其他等价答案（2分）或asc（ch）-asc（"a"）+1（2分）
③a（i）>max或a（i）>=max或其他等价答案（2分）
（2）E或e、6（2分）
升级会员 