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.RLB.LMRC.RLRD.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=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)
bottom=bottom-1
EndIf
Nextj
i=i+1
Loop
Text2.Text=""
Fori=1Tobottom
Text2.Text=Text2.Text+Str(a(i))
Nexti
EndSub
17.【加试题】由数组a生成数组b的方法描述如下:
1)将数组a中的n个元素依次分割出若干个数据块,每个数据块有m×m个元素,m最大值为8,最小值为2。
分割时,按尽可能大的数据块进行分割;
2)对每个分割出的数据块用“方阵转换法”进行转换,每次转换后得到的数据块依次存储在数据b中;
3)数组a分割后的剩余元素(个数小于4),直接依序存储到数组b中。
例如n=140时,可依次分割出3个数据块,元素的个数分别为64(8×8)、64(8×8)、9(3×3),剩余元素为3个。
“方阵转换法”过程如下:
将数据块中m×m个元素按行序排列成一个数字方阵,从该数字方阵中按列序得到转换后元素的次序。
以3×3数据块为例,转换过程如下图所示:
转换前元素次序
转换前元素次序
小明依据上述描述设计了如下VB程序。
请回答下列问题:
(1)当n=120时,分割出的第3个数据块元素个数为。
(2)请在划线处填入合适的代码。
Constn=120
Dima(1Ton)AsInteger
Dimb(1Ton)AsInteger
PrivateSubCommand1_Click()
DimmAsInteger,iAsInteger
DimStartAsInteger'当前未分割数据的第1个元素下标
DimLeftAsInteger'当前未分割数据的个数
DimpaAsInteger'数组a的下标
DimpbAsInteger'数组b的下标
'读取n个转换前的数据,依次存储到a
(1)、a
(2)、……a(n)中,代码略
m=8
Start=1
Left=n
DoWhileLeft>3
IfLeftm=①
Else
pa=Start
pb=Start
Fori=1Tom*m
b(pb)=a(pa)
pb=pb+1
IfiModm=0Then
②
Else
pa=pa+m
EndIf
Nexti
③
Start=Start+m*m
EndIf
Loop
Fori=StartTon
b(i)=a(i)
Nexti
'依次输出转换后数据b
(1)、b
(2)、……b(n)中,代码略
EndSub
2017年11月浙江省普通高校招生选考科目考试
技术试题信息技术答案