j=m-1:
s=s+"L"
Else
i=m+1:
s=s+"R"
EndIf
Loop
Text1.Text=s
数组元素a
(1)到a(9)的值依次为“24,35,38,41,45,69,78”。
若该程序段执行后,文本框Text1中显示的内容可能是
A.RL B.LMR C.RLR D.LRLM
二、非选择题(本大题共5小题,其中第13小题4分,第14小题5分,第15小题8分,第16小题3分,第17小题6分,共26分)
13.小李收集了2015年浙江省全社会就业人数情况数据,并使用Excel软件进行数据处理,如图13题图a所示。
第13题图a
请回答下列问题:
(1) 当前工作表中仅区域A1:
G14有数据,其中G4单元格正确计算了杭州市占全省就业总人数比例。
小李通过G4单元格中的公式对区域G5:
G14进行自动填充,则G14单元格中显示的计算结果是 (选填:
0.00/17.89/100.00)。
(2)上述操作后,小李发现区域G5:
G14计算结果不符合要求。
若要正确计箅“占全省就业总人数比例(%)”列的数据,可先修改G4单元格中的公式,再进行自动填充。
修改后G4单元格的公式为 (公式中要求保留使用SUM函数)。
(3) 根据第13题图a中数据制作的图表如第13题图b所示,创建该图表的数据区域是A3:
A4,
第13题图b
(4)将区域A3:
F14的数据复制到新工作表,在新工作表中对数据进行筛选操作,筛选设置如图第13题图c所示,则按此设置筛选出的城市有 个。
第13题图图c
14.编“字符串生成”程序,实现如下功能:
在文本框Text1中(字符位置)输入多个正整数(以“,”为分割符和结束符),单击“生成”按钮Command1,程序以这些整数为位置信息,依次从文本框Text2中(字典内容)提取字符并连接成字符串,最后将字符串显示在标签Label1中(生成内容)。
程序运行界面如下图所示。
(1) 要使程序运行时,窗体Form1标题显示“字符串生成”,可在Form_Load事件过程屮添
加语句 (单选,填字母:
A.Form1="字符串生成"/B.Forml.Text="字符串生成"
/C.Form1.Caption="字符串生成")。
(2)实现上述功能的VB程序如下,请在划线处填入合适的代码。
PrivateSubCommand1_Click()
DimsAsString,tAsString,cAsString
DimiAsInteger,pAsInteger
s="":
t=""
Fori=1ToLen(Text1.Text)
c=Mid(Text1.Text,i,1)
Ifc=","Then
p=Val(t)
s=s+Mid(Text2.Text,p,1)
t=""
Else
t=①
EndIf
Nexti
Label1.Caption=②
EndSub
(3)若文本框Text1中输人内容的结束符缺失(即输人内容为1,18,9,9),单击“生成”按钮后,标签Label1中显示的内容是 。
15.小李制作主题为“沙漠风光”的多媒体作品,首先使用Photoshop软件处理图片,然后使用Flash软件制作动画。
请回答下列问题:
15题图a
(1)如第15题图a所示,“胡杨树”图层中只有左、右两棵胡杨树图像,当前状态下,若仅将右胡杨树图像变小,下列操作方法可行的有(多选,填字母:
A.直接用“图像大小”命令将其变小/B.先用“套索工具”选中右胡杨树,再用“图像大小”命令将其变小/C.先用“矩形选框工具”选中右胡杨树,再用“自由变换”命令将其变小/D.选中左胡杨树后反选,再用“自由变换”命令将其变小/E.直接用“自由变换”命令将其变小。
(注:
全部选对的得2分,选对但不全的得1分,不选或有选错的得0分)
第15题图b
(2) 如第15题图b所示“骆驼”图层第13帧到第20帧的补间类型是动画补间,则该图层第25帧到第36帧的补间类型是。
(3) 测试场景时,背景画面播放到第25帧时变成另一背景画面,为了使背景第1帧到第36帧一直显示“背景”图层第1帧的内容,正确的操作是。
(4) 测试影片时,首先播放的场景是。
(填场景的名称)。
(5) 测试影片时,单击“沙漠之舟”场景中“返回”按钮,影片跳转到“主交互界面”场景第1帧并停止播放,则“返回”按钮的动作脚本为。
16.【加试题】小李基于冒泡排序算法编写了一个VB程序,功能如下:
在文本框Text1中显示排序前的数据,单击“排序”按钮Command1,在文本框Text2中显示剔除重复数据后的升序排序结果。
程序运行界面如下图所示。
实现上述功能的VB程序如下,但加框处代码有错,请改正。
Constn=10
Dima(1Ton)AsInteger
PrivateSubCommand1_Click()
DimiAsInteger,jAsInteger,tAsInteger
DimbottomAsInteger
'获取排序前数据依次存储在数组a中,并在文本框Text1中显示。
代码略
bottom=n
i=1
DoWhilei<=bottom-1
Forj=bottomToi+1Step-1
Ifa(j)t=a(j):
a(j)=a(j-1):
a(j-1)=t
ElseIfa(j)=a(j-1)Then'相邻两个数据相等,进行剔除处理
a(bottom)=a(j)
botto