Nextj
Ifi<>kThen
t=a（i）:
a（i）=a（k）:
a（k）=t
EndIf
Nexti
数组元素a
（1）到a（5）的值依次为“41，66，70，83，31”，经过该程序段“加工”后，数组元素a
（1）到a（5）的值依次为（）
A．31，41，66，83，70B．83，70，66，41，31
C．83，66，70，41，31D．31，41，66，70，83
11．【加试题】一幅未经压缩的1024×768像素的BMP图像，其存储容量为2.25MB，则存储每个像素所需的字节数是（）
A．1字节B．3字节C．6字节D．24字节
12．【加试题】下列有关查找的说法，正确的是（）
A．进行顺序查找时，被查找的数据必须是有序的
B．在任何情况下，顺序查找比对分查找的查找次数要多
C．进行对分查找时，被查找的数据可以是有序的，也可以无序的
D．对规模为n的有序数据进行对分查找，最多查找的次数是[log2n]+1
二、非选择题（本大题共5小题，第13小题4分，第14小题5分，第15小题8分，第16小题4分，第17小题5分，共26分）
13．小李收集了2016年浙江省“双十一”行业销售指数数据，并使用Excel软件进行数据处理，如图a所示。
图a
请回答下列问题：
（1）如图a所示，区域C3：
C13的数据是通过公式计算得到的，在C3单元格输入公式并用自动填充功能完成区域C3：
C13的计算，则C13单元格中的公式是。
（销售额占总比例%=当前行业的销售额÷所有行业的总销售额×100）
（2）为获得销售额（亿元）在10-50亿元之间的行业类型，小李对销售额（亿元）列数据进行筛选操作，如图b所示，筛选条件应选。
（3）小李想建立一张反映各行业销售额占总比例的分析图，比较适合建立的图表类型是。
（选填字母：
A.柱形图/B.折线图/C.饼图/D.条形图）
（4）小李又建立了一张反映部分行业销售额的比较图，如图c所示，则建立该图表的数据区域是。
图b图c
14．编写VB程序，实现如下功能：
在文本框Te1中输入投资金额，Te2中输入投资的目标金额，Te3中输入投资的年收益率，单击按钮Com，在文本框Te4中输出达成预期投资目标至少需要的年数。
投资收益按复利计算，如投资金额10000元，年收益率为5%，则1年后的本息为10000×（1+5%），2年后的本息为10000×（1+5%）2。
程序运行界面如右图所示。
（1）代码“PrivateSubCom_Click（）”中的Com_Click（）是________（填字母：
A.对象名/B.事件名/C.事件处理过程名/D.方法名）
（2）为实现上述功能，请在划线处填入合适的代码。
PrivateSubCom_Click（）
DimpvAsSingle,fvAsSingle,rateAsSingle,nAsInteger
pv=Val（Te1.Text）
fv=Val（Te2.Text）
rate=Val（Te3.Text）/100
n=1
DoWhile
_
pv=pv*（1+rate）
List1.AddItem"第"+Str（n）+"年"+""+Str（pv）+"元"
n=n+1
Loop
Te4.Text=
_
EndSub
15．小傅用Flash软件制作了题为“小球的一天”的动画，时间轴截图如第15
题图所示，请回答以下问题：
（1）小傅在作品制作之前，对使用该作品的用户情况进行全面调查和分析，该调查和分析的过程属于多媒体创作中的________
A．应用需求分析B．创作需求分析C．系统结构设计D．模块设计
（2）如图所示，“背景”图层第1帧到第20帧实现“背景”实例从透明到完全显示，第20帧到第40帧实现从完全显示到完全透明。
该动画的类型是________
A．动画补间B．形状补间C．逐帧动画
（3）测试影片时，发现动画在第40帧停止后“音乐”还能继续播放，该声音所设置的同步方式是________
（4）测试影片时，发现“小球的一天”图层中的实例重复出现了不同的状态，则产生该实例的元件类型是________
（5）测试影片时，动画播放到最后1帧时停止，此时“动作”图层中的“开始”按钮呈现。
若要使“动作”图层中的“开始”按钮一直出现在舞台上，可执行的操作是：
选中“动作”图层的第________帧执行________操作。
（6）若点击“动作”图层中的“开始”按钮后，进入“start”场景的第1帧继续播放，则该按钮上的命令是________
16．【加试题】小强用VB编写正整数十进制转换为十六进制的程序，运行界面如图所示。
程序功能如下：
在文本框Text1中输入待转换的十进制值，单击“十进制转换十六进制”按钮Command1，在文本框Text2中输出转换结果。
第16题图
请在程序的划线处填写合适的代码。
PrivateSubCommand1_Click（）
DimaAsString,sAsString
DimrAsInteger,xAsInteger
x=Val（Text1.Text）
s=""
DoWhilex>0
▲‘①
x=x\16
Ifr>9Then
a=Chr（r+55）
Else
a=Str（r）
EndIf
▲‘②
Loop
Text2.Text=s
EndSub
（1）程序中①划线处应填入。
（2）程序中②划线处应填入。
17．【加试题】居民身份证号码由十七位数字本体码和一位数字校验码组成。
从左至右依次为：
六位地址码，八位出生日期码，三位顺序码和一位校验码。
校验码生成步骤如下：
①把身份证前17位的每个数字和加权系数相乘并累加求和。
身份证号码前17位数的加权系数见下表：
身份证号位数
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
加权系数
7
9
10
5
8
4
2
1
6
3
7
9
10
5
8
4
2
②根据步骤
（1）求得的和值，与11做取余运算得到序号，再根据序号提取校验码字符。
如：
所得和值除以11的余数为“0”，则对应的校验码为“1”。
如下表：
序号
0
1
2
3
4
5
6
7
8
9
10
校验码
1
0
X
9
8
7
6
5
4
3
2
若步骤
（2）中提取的校验码和身份证号最后一位相同，则校验通过，否则校验失败。
某人根据上述原理设计了一个身份证校验VB程序，功能如下：
程序启动时从数据库student.accdb中读入全校学生身份证数据（全校共15个班级），并在列表框List1中显示，单击“校验”按钮Command1，在列表框List2中输出各班身份证号出错学生的信息和出错人数，若某班无出错学生，则不显示。
程序界面如图所示。
实现上述功能的VB程序如下，请回答下列问题：
（1）某人身份证号的前17位为“33900520000101007”，根据上述步骤可计算出该身份证号的第18位校验码是_________。
（2）请在划线处填上合适的代码。
Constmax=1000
DimnAsInteger'存放学生人数
Dimsfzh（1Tomax）AsString,xm（1Tomax）AsString
'数组sfzh、xm分别存放学生身份证号、姓名
Dimbj（1Tomax）AsInteger,flag（1Tomax）AsBoolean
'数组bj、flag分别存放学生班级、身份证校验结果
Dimcw（1To15）AsInteger'数组cw存放各班身份证号出错人数
Functioncheck（xAsString）AsBoolean
'本函数功能：
校验身份证号x，若校验通过返回True；否则返回False
DimiAsInteger,sumAsInteger,xhAsInteger,jymAsString
Dima（1To18）AsInteger,w（1To18）AsInteger
jym="10X98765432":
sum=0
Fori=18To2Step-1
a（i）=Val（Mid（x,19-i,1））
Nexti
Fori=18To1Step-1
w（i）=2^（i-1）Mod11
Nexti
Fori=2To18
sum=sum+a（i）*w（i）
Nexti
xh=sumMod11
If
_=Mid（x,18,1）Thencheck=TrueElsecheck=False
EndFunction
PrivateSubForm_Load（）
'本过程从数据库中读入指定数据到数组sfzh、xm、bj，并在List1中显示
DimconnAsNewADODB.Connection
DimrsAsNewADODB.Recordset
conn.ConnectionString="provider=microsoft.ace.oledb.12.0;datasource="+App.Path+"\student.accdb"
conn.Open
Setrs.ActiveConnection=conn
rs.Open"select*fromstu"
'本过程其它语句略，学生人数存变量n，数组cw各元素初值置为0
EndSub
PrivateSubCommand1_Click（）
DimiAsInteger,jAsInteger
Fori=1Ton
Ifcheck（sfzh（i））Thenflag（i）=TrueElseflag（i）=False
Nexti
Fori=1To15
Forj=1Ton
Ifbj（j）=iAndflag（j）=FalseThen
_
List2.AddItemsfzh（j）+""+xm（j）
EndIf
Nextj
Ifcw（i）>0Then
List2.AddItemStr（i）+"班共有以上"+Str（cw（i））+"个身份证号错误"
List2.AddItem""
EndIf
Nexti
EndSub
2017年11月温州中学选考科目模拟考试
技术试题参考答案
第一部分信息技术（共50分）
一、选择题（本大题共12小题，每小题2分，共24分。
每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分）
题号
1
2
3
4
5
6
7
8
9
10
11
12
答案
B
D
A
A
D
D
C
A
C
C
B
D
2、非选择题（本大题共5小题，其中第13小题4分，第14小题5分，第15小题8分，第16小题4分，第17小题5分，共26分。
）
13.
（1）＝C13/$C$14*100或＝C13/C$14*100（1分）
（2）介于（1分）
（3）C（1分）
（4）A2：
B3，A7：
B10（1分）
14.
（1）C（1分）
（2）
pvStr（n-1）（2分）
15.
（1）A（1分）
（2）A（1分）
（3）事件（1分）
（4）影片剪辑（1分）
（5）1，清除关键帧（2分）
（6）on（press）{gotoandplay（"start",1）;}（2分）
16.
（1）r=xMod16（2分）
（2）s=a+s（2分）
17.
（1）3（1分）
（2）
Mid（jym,xh+1,1）（2分）
cw（i）=cw（i）+1（2分）
升级会员 