Ifa（i）>a（iMax）TheniMax=i
Nexti
t=a（iMin）:
a（iMin）=a（p）:
a（p）=t
①
t=a（iMax）:
a（iMax）=a（q）:
a（q）=t
p=p+1
q=q-1
Loop
要使程序实现上述算法思想，则方框中的语句是
A．IfiMax=pTheniMax=iMin
B．IfiMin=pTheniMin=iMax
C．IfiMax=pTheniMin=iMax
D．IfiMin=pTheniMax=iMin
二、非选择题（本大题共5小题，其中第13小题4分，第14小题5分，第15小题8分，第16小题3分，第17小题6分，共26分）
13.小王收集了2016年第四季度部分移动应用APP的相关数据，并使用Excel软件进行数据处理，如第13题图a所示。
第13题图a
请回答下列问题:
（1）区域G3:
G18的数据是通过公式计算得到的：
在G3单元格输入公式后，用自动填充功能完成G4:
G18的计算，则G3单元格中的公式是。
（2）通过排序使得相同应用领域的12月环比增幅有序，则排序的主次关键字依次为。
（3）对第13题图a中的数据进行筛选操作，筛选设置界面如第13题图b所示，在下拉列表框中选择选项后，单击“确定”按钮，筛选结果只显示“酷狗音乐”、“酷我音乐”和“优酷视频”3行数据。
（4）根据第13题图a中数据，制作了一张反映所有APP的10月份活跃人数的图表。
如第13题图c所示，但该图表中显示的并不是APP名称，改正的方法是。
第13题图b第13题图c
14.奇偶校验是一种校验数据传输正确性的方法。
其中奇校验方法：
统计二进制数据的数位中“1”的个数，若个数为奇数，则校验位值为0，否则校验位值为1。
小李编写了一个计算奇校验位值得VB程序，功能如下：
在文本框Text1中输入1～255十进制待校验数，单击“计算”按钮Command1后，在文本框Text2中显示该数对应的二进制值，并在标签Label3中显示该数的校验位值。
程序运行界面如图所示。
（1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
PrivateSubCommand1_Click（）
DimaAsInteger,sAsString
DimnAsInteger,tAsInteger,vAsInteger
n=Val（Text1.Text）
t=0
s=""
DoWhilen>0
a=nMod2
n=n\2
t=①
s=Str（a）+s
Loop
v=tMod2
Text2.Text=s
Label3.Caption="校验位值：
"+②
EndSub
（3）运行该程序，在文本框Text1中输入22，单击“计算”按钮，则显示的校验位值是。
15.小王制作主题为“中国象棋”的多媒体作品。
他首先使用Photoshop软件制作一张背景图片，然后使用Flash软件制作动画。
请回答下列问题：
第15题图a
（1）如第15题图a所示，当前状态下，下列操作可行的是（多选，填字母：
A.修改图中左下角的数值缩放图像/B.选中“背景”图层后，调整其不透明度/C.对“右”图层的内容进行自由变换/D.选中“中国象”图层后，对其内容进行填充）。
（注：
全部选对的得2分，选对但不全的得1分，不选或有选错的得0分）
第15题图b
（2）如第12题图b所示，“录”图层第25帧到第36帧实现了由象棋子“帅”变化为汉字“录”的动画效果，该动画类型为（填字：
动画补间/形状补间/逐帧动画）。
（3）要实现“象棋简介”、“象棋起源”、“行棋规则”和“主要赛事”4个补间动画依次出现的效果，应做的调整是。
（4）为实现该场景动画播放完后自动停止，小王选中“三叠子按钮”图层最后1帧添加停止动画的动作脚本，但脚本出现在该图层第1帧，其原因是。
（5）测试影片时，单击“象棋简介”按钮，实现在浏览器中显示位于同一目录下“intro.txt”文件的内容，则“象棋简介”按钮的动作脚本为。
16.【加试题】小王编写了一个实现文字查找替换功能的VB程序，运行界面如图所示。
文本框Text1显示原文内容，Text2中输入查找内容，Text3中输入替换内容，单击“全部替换”按钮Command1后，Text4显示查找替换的结果，Text5中显示替换的次数，Text6显示“查找内容”在原文中的起始位置。
实现上述功能的VB程序如下，但加框处代码有错，请改正。
PrivateSubCommand1_Click（）
DimsAsString,resuleAsString,posAsString
DimcountAsInteger,iAsInteger
i=1:
count=0
resule="":
pos=""
DoWhilei<=Len（Text1.Text）
s=Mid（Text1.Text,i,Len（Text2.Text））
Ifs=Text2.TextThen
result=result+Text3.Text
count=count+1
pos=pos+Str（count）
i=i+Len（Text2.Text）
Else
result=result+Text2.Text
i=i+1
EndIf
Loop
Text4.Text=result
Text5.Text=Str（count）
Text6.Text=pos
EndSub
17.【加试题】小王编写了一个依据成绩计算名次的VB程序，成绩为0到100之间的整数。
算法的基本思想：
先统计每个分数的个数，然后按照分数从高到低依次计算每个有效分数（该分数的个数不为0）对应的名次，分数相同时名次并列。
最高分为第1名，该分数的名次与个数之和为下一个有效分数的名次，以此类推。
程序用数组A存放每个分数对应的个数，数组B存放每个分数对应的名次。
例如，下表中最高分100有2个，并列第1名，则分数96的名次为分数100的名次加上分数100的个数，即第3名。
分数
100
99
98
97
96
95
94
…
0
个数（A数组）
2
0
0
0
1
0
3
…
0
名次（B数组）
1
3
4
…
程序运行时，学生数据显示在列表框List1中，单击“计算”按钮Command1，计算结果显示在列表框List2中，程序运行界面如图所示。
实现上述功能的VB程序如下，请回答下列问题：
（1）如表所示，若分数93的个数为2，则该分数对应的名次为_____________。
（2）请在划线处填入合适的代码。
DimsName（1To50）AsString'存放学生姓名
DimsScore（1To50）AsInteger'存放学生分数
DimrecCountAsInteger'存放学生人数
PrivateSubForm_Load（）
'本过程从数据库中读取学生数据，存储在相应的变量中，并在List1中显示
'代码略
EndSub
'整数转换成长度固定的字符串
Functionads（xAsInteger,nAsInteger）AsString
DimsxAsString,nxAsInteger,iAsInteger
sx=Str（x）:
nx=Len（sx）
Fori=1Ton-nx
sx=""+sx
Nexti
①
EndFunction
PrivateSubCommand1_Click（）
DimA（0To100）AsInteger'存放每个分数的个数
DimB（0To100）AsInteger'存放每个分数的名次
DimmcAsInteger,scoreAsInteger,iAsInteger
Fori=0To100
A（i）=0
Nexti
Fori=1TorecCount'计算每个分数的个数
②
Nexti
mc=1
Fori=100To0Step-1'计算每个分数的名次
IfA（i）<>0Then
B（i）=mc
③
EndIf
Nexti
List2.Clear
List2.AddItem"姓名分数名次"
List2.AddItem"----------------"
Fori=1TorecCount
score=sScore（i）
mc=B（sScore（i））
List2.AddItemsName（i）+ads（score,5）+"第"+ads（mc,3）+"名"
Nexti
EndSub
信息技术答案
一、选择题：
AADCBBDDBCBA
二、非选择题：
13.
（1）=（E3-D3）/D3*100
（2）应用领域12月环比增幅%
（3）包含
（4）将图表的数据区域改为A2:
A18,C2:
C18
14.
（1）Text
（2）①t+a②str（1-v）
（3）0
15.
（1）AC
（2）形状补间
（3）将“行棋规则”图层的1至6帧移动到25至30帧
（4）“三叠子按钮”图层的最后一帧为普通帧（或非关键帧）
（5）on（release）{GetUrl（“intro.txt”）;}
16.
（1）pos+str（i）
（2）result=result+mid（text1.text,i,1）
17.
（1）7
（2）①ads=sx②A（sscore（i））=A（sscore（i））+1③mc=A（i）+B（i）或mc=mc+A（i）
升级会员 