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)