A．Int（Rnd*a）+bB．Int（Rnd*b）+a
C．Int（Rnd*（b-a+1））+aD．Int（Rnd*（b-a））+a
6．某动画序列的4幅相邻图像如第6题图所示，这些图像之间存在一定的相关性。
这种相关性主要表现为
第6题图
A．结构冗余B．时间冗余C．空间冗余D．视觉冗余
7．一个十六进制的正整数若有100位数，则转换成二进制数，不可能的位数是（）
A．398B．399C．400D．401
8．小罗用Photoshop软件制作了一张书签，部分界面如第8题图所示：
对于“文字”图层，他执行的操作可能是（）
A．创建“文字变形”样式为“膨胀”
B．添加“浮雕效果”滤镜效果
C．设置图层样式为“斜面和浮雕”
D．设置图层样式为“斜面和浮雕”和“投影”
9．某Flash作品的部分时间轴界面如第9题图所示。
分析图中信息，下列描述正确的是（）
A．“月亮”图层可以进行帧的插入和删除操作
B．“背景”图层中的内容从第1帧延续到第85帧
C．测试影片时，“星星”和“月亮”图层中的内容不可见
D．“声音”图层中的声音与“星星”图层中的动画同时开始播放
10．【加试题】用WinHex软件观察“TCP传输控制协议”这些字符的内码时，结果如第10题图所示：
从图中可以推断出大写英文字符“O”的十六进制内码是（）
A．49B．48C．4AD．4F
11．【加试题】有如下VB程序段：
Dima（1To10）AsInteger,iAsInteger,jAsInteger
a
（1）=1:
a
（2）=1
Fori=3To5
a（i）=1
Forj=i-1To2Step-1
a（j）=a（j）+a（j-1）
Nextj
Nexti
Text1.Text=Str（a（3））
该程序段运行后，在文本框Text1中显示的内容是（）
A．1B．3C．4D．6
12．【加试题】将数组a中的8个数据“18，33，5，26，86，0，60，200”按从大到小的顺序排列，每次可以交换任意两个元素，最少需要交换的次数是（）
A．4B．5C．6D．7
二、非选择题（本大题共5小题，其中第13小题4分，第14小题5分，第15小题8分，第16小题4分，第17小题5分，共26分）
13．小赵收集了关于国际旅游收入情况的数据，并用Excel软件进行数据处理，如第13题－1图所示。
请回答下列问题：
（1）在第13题－1图所示工作表中，2013年比重（%）数据是通过公式计算得到的：
选择区域中的一个单元格，输入公式，然后用自动填充功能完成其他单元格的计算。
若将C5单元格的公式复制，如第13题－2图所示粘贴到E5单元格，（选填：
能/不能）正确计算得到E5单元格的比重（%）数据，粘贴后E5单元格内的公式是。
（2）为了更加直观地比较国际旅游收入情况，小赵制作了如第13题－3图所示的图表，该图表的数据区域是A5:
B13，。
（3）选择“A5:
E13”数据区域，以“2013年数额（亿美元）”为主要关键字进行降序排列，需在第13题－4图“主要关键字”下拉选项中选择进行排序。
14．编写VB程序，实现如下功能：
在文本框Text1里输入一个字符串，单击“判断”按钮Command1，判断这个字符串是不是回文字符串（回文字符串就是一个对称的字符串，如"abcba"或"abccba"都是回文字符串，"abc"不是回文字符串）。
在文本框Text2里显示结果，回文字符串显示"yes"，否则显示"no"。
运行效果如第14题－1图所示。
（1）要使窗体Form1的标题改为“判断回文字符串”，可在其属性窗口（第14题-2图）中将_____属性的属性值修改为“判断回文字符串”。
（2）为实现上述功能，请在划线处填入合适代码或选项
PrivateSubCommand1_Click（）
DimstAsString
DimiAsInteger,jAsInteger
DimflagAsBoolean
①'（填程序代码）
j=Len（st）
i=1
flag=True
DoWhileflagAnd（i<=j）
IfMid（st,i,1）=Mid（st,j,1）Then
i=i+1
②'（选填字母，从下列A、B、C、D四个选项中选取一项）
Else
flag=False
EndIf
If③Then'（选填字母，从下列A、B、C、D四个选项中选取一项）
Text2.Text="yes"
Else
Text2.Text="no"
EndIf
Loop
EndSub
划线②、③处的选项：
A．j=j-1B．j=j+1C．flagD．notflag
15．小王创作“新春快乐”的多媒体作品。
他首先使用Photoshop软件制作一张背景图片，然后使用Flash软件制作动画。
请回答下列问题：
（1）如第15题－1图所示，要去除“窗花”图层中的白色背景区域，可使用（选填：
矩形选框工具/套索工具/魔棒工具）选择白色区域，然后执行“清除”命令。
（2）如第15题－1图所示，“祥云1”图层中的图像位于画面左下方位置。
通过复制“祥云1”图层得到“祥云2”图层，再将“祥云2”图层中的图像（选填：
自由变换/水平翻转/垂直翻转），放置于画面右上方位置。
任意交换“窗花”、“祥云1”、“祥云2”图层，整个画面效果将（选填：
会/不会）变化。
（3）如第15题－2图所示，若使整个动画完整播放一次的时间增加到原来的1.5倍，帧频应改为fps。
（4）如第15题－2图所示，“褔”图层的第10帧到第48帧实现了实例从完全透明到完全显示，则该动画为（选填：
动画补间/形状补间）。
当动画播放到后面时，“褔”突然不见了，若要一直出现在舞台，则应在该图层的第55帧执行（选填：
删除帧/插入关键帧/清除关键帧）命令.
（5）如第15题－2图所示，单击“重播”按钮，应跳转到该场景的第1帧并继续播放。
测试Main场景时，发现单击该按钮，跳转到该场景的第1帧并停止，动作脚本如第15题－3图所示。
则该按钮动作脚本应修改为。
16．【加试题】编写VB程序，功能如下：
文本框Text1里输入数学表达式（表达式的长度<=100），在列表框List1里输出所有配对括号在表达式中的位置。
如在文本框Text1里输入“12*（3-（1+2））*3”，运行效果如第16题图所示。
实现上述功能的VB代码如下，在划线的地方填入合适代码，完善程序。
PrivateSubCommand1_Click（）
DimsAsString
Dima（1To100）AsInteger
DimiAsInteger,topAsInteger
s=Text1.Text
i=1
top=0
DoWhilei<=Len（s）
IfMid（s,i,1）="（"Then
top=top+1
①
EndIf
IfMid（s,i,1）="）"Then
List1.AddItemStr（a（top））+""+Str（i）
②
EndIf
③
Loop
EndSub
17．【加试题】木材厂有一些原木，现在想把这些木头切割成一些长度相同的小段木头（木头有可能有剩余），需要得到的小段的数目是给定的。
当然，希望得到的小段越长越好。
现在用VB编写程序计算能够得到的小段木头的最大长度（木头长度的单位是cm，原木的长度都是正整数，要求切割得到的小段木头的长度也是正整数）。
功能如下：
文本框Text1里输入正整数n,文本框Text2里输入k（1≤n≤10000，1≤k≤10000），n是原木的数目，k是需要得到的小段的数目,文本框Text3里依次输入N个数，每个数表示一根原木的长度。
文本框Text4中显示能够切割得到的小段的最大长度。
如果连1cm长的小段都切不出来，则输出"0"。
运行效果如第17题图所示，其中文本框Text3中依次输入3根原木的长度为：
232，124，456。
实现上述功能的VB程序如下：
请在划线处填入合适代码。
Constc=10000
Dima（1Toc）AsInteger
DimnAsInteger,kAsInteger,jAsInteger
Dimleft1AsInteger,right1AsInteger,mid1AsInteger
Functionok（xAsInteger）AsBoolean
DimiAsInteger,numAsInteger
num=0
Fori=1Ton
num=num+a（i）\x’n根原木切割成长度为x的木头的段数
Ifnum>=kThenExitFor
Nexti
If①Then
ok=True
Else
ok=False
EndIf
EndFunction
PrivateSubCommand1_Click（）
n=Val（Text1.Text）
k=Val（Text2.Text）
right1=right1+1
left1=0
DoWhilelef
升级会员 