则
(1)、
(2)、(3)处语句依次是
A.③、④、②B.③、⑤、②C.④、⑤、②D.③、④、①
12.有如下VB程序段:
i=1
DoWhilei<=6
t=Int(Rnd*10)+1
IftMod2=iMod2Thena(i)=t:
i=i+1
Loop
Fori=1To2
k=1
Forj=1To6-i*2
Ifa(j)*k>a(j+2)*kThen
t=a(j):
a(j)=a(j+2):
a(j+2)=t
EndIf
k=-k
Nextj
Nexti
执行该程序段后,数组元素a
(1)到a(6)的值可能是
A.5,11,2,10,7,8B.9,0,7,2,3,4C.9,2,5,4,3,8D.1,8,7,6,11,4
二、非选择题(本大题共4小题,第13小题4分,第14小题10分,第15小题6分,第16小题6分,共26分)
13.小王收集了浙江省2019年第一季度各地市生产总值数据,并使用Excel软件进行数据
处理,如第13题-1图所示。
请回答下列问题:
(1)区域D5:
D14中的数据是从D4单元格利用自动填充功能得到的,则D4单元格输入的公式是_________________。
(2)根据第13题-1图中数据制作的图表如第13题-2图所示,创建该图表的数据区域
为_________________。
(3)若要将11个地市生产总值按“总产值”降序排序,则排序时选择的数据区域是______;排序后,第13题-2图中所示图表____(选填:
会/不会)发生变化。
14.小王制作主题为“荷塘月色”的多媒体作品,首先使用Photoshop软件处理图片,然后使用Flash软件制作动画。
请回答下列问题:
(1)关于多媒体作品设计,下列说法正确的是___________(单选,填字母)。
A.确定作品的主题思想属于应用需求分析
B.文字脚本是多媒体作品制作的直接依据
C.作品的系统结构描述了整个作品的组成部分、工作流程、主要界面
D.多媒体作品设计的一般过程为:
需求分析→规划设计→媒体元素分解
(2)如第14题-1图所示,下列说法正确的是_________(多选,填字母)。
第14题-1图
A.该文档采用的颜色模式为RGB颜色模式
B.“作者”图层可以使用“文字工具”修改字体
C.不可以直接对“背景”图层设置滤镜效果
D.当前状态下,可以使用“移动工具”调整“月”图层的图像位置
E.将“荷花”图层移至“鸟”图层上方,不会影响“鸟”图层中图像显示
(注:
全部选对的得2分,选对但不全的得1分,不选或有选错的得0分)
(3)如第14题-1图所示,在当前状态下,若将文件保存为jpg格式,“圆”图层中“外发光”图层效果_________(选填:
可见/不可见)。
(4)如第14题-2图所示,在“蜻蜓”图层第1帧到36帧创建的动画实现了蜻蜓由近到远、由大到小的动画效果,则该动画的类型是_________(单选,填字母:
A.动画补间动画/B.形状补间动画/C.逐帧动画)。
第14题-2图
(5)“音乐”图层添加的声音属性如第14题-3图所示。
当声音的“同步”属性改为“事件”后,声音的播放时长将_________(选填:
不变/变长/变短)。
第14题-3图第14题-4图
(6)测试影片时“播放”按钮不能响应鼠标事件,“播放”按钮的部分编辑界面如第14题-4图所示。
在“播放”按钮元件里,以下操作可以使按钮有效的是。
(多选,填字母)
A.在“背景”图层的“按下”帧上执行“插入关键帧”操作
B.在“文字”图层的“点击”帧上执行“删除帧”操作
C.在“文字”图层的“点击”帧上执行“清除帧”操作
D.在“文字”图层的“点击”帧上执行“清除关键帧”操作
E.在“背景”图层的“点击”帧上执行“插入帧”操作
(注:
全部选对的得2分,选对但不全的得1分,不选或有选错的得0分)
(7)测试影片时,单击当前场景中的“播放”按钮,影片停止当前声音的播放,并跳转到“诗词鉴赏”场景第1帧并停止播放,则“播放”按钮的动作脚本为on(release){}
15.一段字符中的每个词(由大、小写字母组成)是倒序显示的,比如“Goodnight,Tom!
”就倒序显示成“dooGthgin,moT!
”。
小王编写了一个VB程序,实现还原功能,即单击“还原”按钮后,将文本框Text1中倒序显示的内容还原,并在文本框Text2中输出结果。
程序运行界面如第15题图所示。
第15题图
实现上述功能的VB程序如下,请回答下列问题:
(1)观察程序代码,“还原”按钮的对象名为。
(2)请在①、②的划线处填入合适的代码
(3)加框处代码有错,请改正。
Functionzf(sAsString)AsBoolean
zf=False
Ifs>="A"Ands<="Z"Ors>="a"Ands<="z"Then
①
EndIf
EndFunction
PrivateSubrev_Click()
DimsAsString,chAsString,rvAsString,rv1AsString
DimiAsInteger,jAsInteger,kAsInteger
s=Text1.Text
rv="":
i=1
DoWhileTrue
ch=Mid(s,i,1)
DoWhileNotzf(ch)Andirv=rv+ch
i=i+1
ch=Mid(s,i,1)
Loop
j=i
ch=Mid(s,j,1)
DoWhilezf(ch)Andj<=Len(s)
②
Ifj>Len(s)ThenExitDo
ch=Mid(s,j,1)
Loop
rv1=""
Fork=iToj'改错
rv1=Mid(s,k,1)+rv1
Nextk
rv=rv+rv1
Ifj<=Len(s)Thenrv=rv+Mid(s,j,1)
i=j+1
I