Loop
数组元素b
（1）到b（8）的值依次为“22,32,39,48,71,82,96,106”。
若该程序段运行结束后，c的值为2，则key的值是
A．48或32B．48或96C．32或82D．82或96
12．【加试题】某一过程算法的VB程序段如下:
PrivateSubCommand1_Click（）
DimnAsInteger
n=Val（text1.Text）
Callprsj（n）'调用自定义过程
EndSub
Subprsj（c
AsInteger）'自定义
过程，可以用Call语句来调用该过程
DimiAsInteger,jAsInteger,kAsString
List1.Clear
Fori=1Toc
k=""
Forj=1Toi
k=k+"*"
Nextj
List1.AddItemk
Nexti
EndSub
在文本框Text1输入3，执行该程序段后,在列表框List1中显示的是
A．
B．
C．
D．
二、非选择题（本大题共5小题，其中第13小题4分，第14小题5分，第15小题8分，第16小题3分，第17小题6分，共26分）
13．小明收集了近年我国网民手机互联网应用使用率的相关数据，并使用Excel软件进行
数据处理，如第13题图a所示。
请回答下列问题:
（1）区域H4:
H10的数据是通过公式计算得到的，在H4单元格输入公式时应用了RANK函数，并用自动填充功能完成区域H5:
H10的计算，则H4单元格中的公式是。
（提示：
如RANK（A1，$A$1:
$A$8）表示A1在A1:
A8范围内的排名值）
（2）对第13题图a中的数据按2016年的用户规模作为关键字进行降序排序，出现如第13题图b所示的错误，改正的方法是。
第13题图b
第13题图c
（3）若要以第13题图a中的数据，制作一张反映应用领域网民使用率变化趋势的图表，应选择的图表类型是。
（填字母：
A．柱形图/B．折线图/C．饼图）。
（4）将区域A3:
H10的数据复制到新工作表，在新工作表中设置如第13题图c所示的筛选条件，则按此设置筛选出的行有行（填数字）。
第13题图c
14．在计算机系统中，数值一律用补码来表示和存储。
求负整数的补码是将该数对应的正
数转换为二进制数（不足8位时高位补0），最高位作为符号位为1，其余每位二进
制数取反（1变成0,0变成1），末位加1。
小明编写了一个VB程序，功能如下：
在文本框Text1中输入一个负整数，单击“转换”
按钮Command1后，在文本框
Text2中显示该数对应的补码。
程序运行界面如图所示。
（1）在设计程序界面时，要使按钮Command1显示为“转换”，应修改该按钮的
属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
PrivateSubCommand1_Click（）
Dima（8）AsI
nteger,xAsInteger,bAsString
x=Val（Text1.Text）
x=Abs（x）
Fori=1To7'求原码
a（i）=xMod2
x=x\2
Nexti
Fori=1To7'求反码
a（i）=①
Nexti
b="1"'求补码
a
（1）=a
（1）+1
i=1
DoWhilea（i）=2Andi<7
a（i）=0
a（i+1）=a（i+1
）+1
i=i+1
Loop
Fori=7To1Step-1
b=b+
Trim（Str（a（i）））'trim（）函数去除字符前后空格
Nexti
Text2.Text=②
EndSub
（3）运行该程序，在文本框Text1中输入-10，单击“转换”按钮，则显示的补码是。
15．小明制作主题为“雨水”的多媒体作品。
他首先使用Photoshop软件制作一张背景图片，
然后使用Flash软件制作动画。
请回答下列问题
：
第15题图a
（1）如第15题图a所示，当前状态下，下列说法正确的是（多选，填字母：
A．交换“山”和“小鱼”图层的顺序，不影响作品的呈现效果/B.“背景”图层可直接添加滤镜效果/C.可修改“山”图
层名称/D.可使用“T”文字工具修改“雨水”图层的文字字体）。
（注：
全部选对得2分，选对但不全的得1分，不选或有选错的得0分）
动画“雨水”场景的制作脚本如表所示。
场景：
雨水
类别序号：
3
进入方式：
单击“main”场景的“雨水”按钮进入
呈现方式：
1．“大雁”从舞台右侧飞入，从左侧飞出，由完全透明到完全显示。
2．“文字”出现在舞台，持续到场景结束。
3．“返回”按钮出现在舞台右下方，单击该按钮，动画返回到“main”场景并从头开始播放。
呈现顺序说明：
1．一开始出现背景图片，约0.5秒后文字出现，再经过约0.5秒后背景音乐响起。
2．背景图片出现的同时，“大雁”动画开始播放，持续时间约3秒。
3．最后出现“返回”按钮，并停止播放。
第15题图b
（2）第15题图b中元件的实例进入时间与“雨水”场景的制作脚本要求不相符的是
（单选填字母：
A．文字/B．大雁/C．返回）。
（3）要实现“大雁”补间动画从透明到完全显示，应将“大雁”图层中第36帧处“大雁”实例的Alpha值设为。
（4）测试影片时，发现“背景”图层的内容在第30帧突然消失。
为解决这个问题应进行的操作是。
（5）根据制作脚本要求，在“返回”按钮上应添加的动作脚本是。
16．【加试题】某一条形码是由13位数字组成的编码，其末位是校验码。
条形码校验的方
法如下：
①除校验码之外，求其余12位编码中的奇数、偶数的数字之和；
②将偶数的数字之和乘以3，加上奇数的数字之和；
③取第②步得到结果的个位数字，用10减去该数字，将得到的结果存入变量m；
④若m的值为10，则将m的值修改为0，否则不变；
⑤若m和校验码相等则输出“校验码正确！
”，否则输出“校验码错误！
”。
现编写一个VB程序，实现如下功能:
在文本框Text1中产生条形码数字序列，单击“校验”按钮Command1，在标签Label1中输出对应的校验信息，界面如图所示。
实现上述功能的VB程序如下，但加框处代码有错，请改正。
PrivateSubC
ommand1_Click（）
DimsAsString,xAsInteger
DimnAsInteger,jsAsInteger,osAsInteger,mAsInteger
Js=0:
Os=0
s=Text1.Text
n=Log（s）①
Ifn<>13Then
Label1.Caption="条形码位数错误!
"
Else
Fori=1To12
x=Val（Mid（s,i+1,1））②
IfxMod2<>0Then
js=js+x
Else
os=os+x
EndIf
Nexti
m=os*3+js
m=10-mMod10
Ifm=10Thenm=0
Ifm=Val（Mid（s,n,1））Then
Label1.Caption="校验码正确!
"
Else
Label1.Caption="校验码错误!
"
EndIf
EndIf
EndSub
17．【加试题】小明编写了一个统计成绩的VB程序：
编写一个过程，该过程从数据库读
取学生的物理，化学，生物
科目成绩，分别存储
到数组a、b、c中；另又编写一个过
程，该过程依据数组a，b，c中的相关数据统计班级物理、化学、生物三门成绩大于
等于85分的学号。
部分学号的成绩统计如图所示。
门数
学号
说明
只有一门>=85分
1,10
d（i）存放每个学号对应的大于等于85分科次
只有两门>=85分
2,3,4,6,12
只有三门>=85分
7,8,9,11
程序功能如下：
单击“统计”按钮Command2，程序进行统计处理，结果输出在列表框
List1、List2、List3中。
程序运行界面如图所示。
（1）在Command1_Click（）过程中变量n的作用是。
（2）请在划线处填入合适的代码。
Dima（1to600）asinteger'数组a存放物理成绩
Dimb（1to600）asinteger'数组b存放化学成绩
Dimc（1to600）asinteger'数组c存放生物成绩
Dimnasinteger
PrivateSubCommand1_Click（）
DimconnAsNewADODB.Connection
DimrsAsNewADODB.Recordset
ConnConnectionString="provider=Microsoft.ACE.OLEDB.12.0;datasource="+"Score.accdb"
Conn.Open
Setrs.ActiveConnection=conn
rs.Open "SELECT * FROM whs"
n=0
Do While Not rs.EOF '从数据表中读取各科的数据赋值到相应数组
n=n+1
a（n）=rs.Fields（"物理"）
b（n）=rs.Fields（"化学"）
c（n）=rs.Fields（"生物"）
rs.MoveNext
Loop
'本过程的其他语句略
Endsub
PrivateSubCommand2_Click（）
'依据数组a中的相关数据统计各学生每门课大于等于85分的学号
DimiAsInteger
Dimd（1ton）AsInteger
Fori=1ton
Nexti
List1.AddItem"三门学科>=85分的学号有:
"
List2.AddItem"两门学科>=85分的学号有:
"
List3.AddItem"一门学科>=85分的学号有:
"
Fori=1Ton
Ifa（i）>=85Then
d（i）=d（i）+1
EndIf
Ifb（i）>=85Thend（i）=
If
Then
d（i）=d（i）+1
EndIf
Nexti
Fori=1Ton
Ifd（i）=3ThenList1.AddItemStr（i）
Ifd（i
）=2ThenList2.AddItemStr（i）
Ifd（i）=1ThenList3.AddItemStr（i）
Nexti
EndSub
信息技术参考答案及评分标准
一、选择题答案：
每小题2分，共24分
1
2
3
4
5
6
7
8
9
D
B
B
C
C
B
D
B
D
10
11
12
A
C
C
二、非选择题（第13小题4分，第14小题5分，第15小题8分，第16小题3分，第17小题6分，共26分）
13.每空1分，共4分
（1）=RANK（G4,$G$4:
$G$10）或=RANK（G4,G$4:
G$10）
（2）选取A3：
H10区域（或A2：
H10区域）排序
（3）B
（4）2
14.共5分
（1）Caption（1分）
（2）①1-a（i）（1分）
②b（1分）
（3）11110110（2分）
15．
（1）ABC（全部选对的得2分，选对但不全的得1分，不选或有选错的得0分）
（2）B（1分）
（3）100%（1分）
（4）将“背景”图层第30帧清除关键帧（或意思答对给分）（2分）
将“背景”图层第1帧复制到第30帧
（5）on（release）{GotoAndPlay（“main”,1）;}
或on（press）{GotoAndPlay（“main”,1）;}（2分）
（不区分大小写）
16．
（1）n=len（s）（1分）
（2）x=val（mid（s,i,1））或相同结果表达式（2分）
17.
（1）存储数据表中的记录数（或学生人数或学号个数）（1分）
答案仅作参考
（2）①d（i）=0（2分
）
②d（i）+1（2分）
③c（i）>=85（1分）
升级会员 