i=m+1
Else
j=m-1
EndIf
Loop
当文本框Text1中输入的值为32时，程序运行结束后变量c的值为
A.1B.2C.3D.4
二、非选择题（本大题共5小题，其中第13小题4分，第14小题5分，第15小题8分，第16小题3分，第17小题6分，共26分）
13．小李收集了本市主要食品平均价格变动的数据，并使用Excel软件进行数据处理，如第13题-1图所示。
第13题—1图
请回答下列问题：
（1）若要对肉类食品按本期价格进行降序排序，则需要选择的数据区域为__________________。
（2）区域F3:
F16的数据是通过公式计算得到的：
在F3单元格输入公式后，用自动填充功能完成F4:
F16的计算，则F3单元格中的公式是________________________。
（涨跌幅（%）=（本期价格（元）-上期价格（元））/上期价格（元）×100）
（3）在计算F列数据之后，若E列的数据被误清除，则F16单元格将显示为__________
（单选，填字母：
A.98.2/B.0/C.#DIV/0！
/D.#REF！
）。
（4）为了更直观地比较鱼肉类价格波动情况，小李制作了如第13题—2图所示的图表。
该图表的数据区域是：
________________,D2:
E2,D6:
E11。
第13题—2图
14．编写一个VB程序，实现如下功能：
在文本框Text1中输入一个偶数n，判断该数在10步之内通过以下计算过程后能否回到初始值。
计算步骤如下：
1、将n乘以3后加1产生一个新的数
2、对产生的新数循环执行如下操作：
新数是偶数时，用新数除以2；新数是奇数时，用新数乘以3后加1
譬如，以2为初始值，则计算过程如下。
2→7→22→11→34→17→52→26→13→40→20→10→5→16→8→4→2。
数字2不能在10步之内回到初始值。
界面如第14题图所示，回答下列问题:
第14题图
（1）若要把窗体的标题名称由“Form1”改为“数值猜想”，应改变窗体的_______属性。
（2）完成上述功能的程序代码如下，请在划线处填入合适的代码
PrivateSubCommand1_Click（）
DimnAsInteger,tasInteger,masInteger,sasString
①
t=n*3+1
m=1
s=""
DoWhile②
s=s+Str（t）
IftMod2=0Then
t=t\2
Else
t=t*3+1
EndIf
m=m+1
Loop
Ifn=tThen
Label1.Caption=s+Str（n）
Else
Label1.Caption="该数10步之内无法实现！
"
EndIf
EndSub
（3）按照以上VB程序的计算方法，若在文本框Text1中输入4，能否在10步之内回到初始数______。
（选填：
能/否）
15．小明制作主题为“皮影熠彩”的多媒体作品，她先用PhotoShop软件制作一张背景图片，然后用Flash软件制作动画。
请回答下列各题：
第15题-1图
（1）如第15题-1图所示，当前状态下，下列说法不正确的有_________（多选，填字母：
A.可以对“龙柱”图层选择区域并填充颜色/B.用“仿制图章”工具对“灯笼”图层操作将会新增一个图层/C.将“熠彩”的图层样式拷贝到“皮影”之后，“皮影”的图层样式将被替换/D.可以设置“背景”图层的不透明度）。
（注：
全部选对的得2分，选对但不全的得1分，不选或有选错的得0分）
（2）如第15题-2图所示，“人物”图层第5帧到32帧实现了人物实例旋转一周且淡入的动画效果，该动画类型为（单选，填字母：
A.形状补间/B.动画补间/C.逐帧动画）
第15题-2图
（3）调试作品，发现“进入”按钮会在最后消失，以下对“按钮”图层的操作可实现该按钮一直在舞台上的操作有____（多选，填字母：
A.把第1帧移动到第60帧/B. 选择第60帧，执行“清除帧”操作;/C.选择第60帧，执行“清除关键帧”操作/D.对第1帧“复制帧”，选择第60帧“粘贴帧”/E.选择第1帧执行“剪切帧”操作，选择第60帧“粘贴帧”）
（4）为实现单击“进入”按钮，使动画从“main”场景的第1帧开始播放,应在该按钮上添加动作脚本___________________。
（5）经上述操作之后，若要测试“进入”按钮的效果，则应____________（单选，填字母：
A.测试场景/B.测试影片/C.播放）
16.【加试题】小王设计了一个算法试图求出平面坐标系中最左点出发，从左往右途经所有点到达最右点的路径值和，编写了一个VB程序功能如下：
在文本框Text1中输入需随机生成的坐标点数量，单击“生成”按钮Command1后，在列表框List1中生成相应数量的坐标点（坐标值为大于等于1小于10的实数，保留一位小数），在文本框Text2中输出路径值。
程序界面如图所示。
第16题图
实现上述功能的VB程序如下，但加框处代码有错，请改正。
PrivateSubCommand1_Click（）
Dimx（1To100）AsSingle,y（1To100）AsSingle
DimtmpAsSingle,lengthAsSingle,sumAsSingle,x1AsSingle,y1AsSingle
DimiAsInteger,jAsInteger,kAsInteger
Randomize
List1.Clear
k=Val（Text1.Text）
Fori=1Tok
x（i）=Int（Rnd*90）/10+1
y（i）=Int（Rnd*90）/10+1
List1.AddItem"X:
"+Str（x（i））+""+"
Y:
"+Str（y（i））
Nexti
Fori=1Tok-1
Forj=1Tok-i
Ifx（j）>x（j+1）Then
x（i）=x（i）+x（j）
x（j）=x（i）-x（j）
x（j）=x（i）+x（j）'
tmp=y（j）
y（j）=y（j+1）
y（j+1）=tmp
EndIf
Nextj
Nexti
sum=0:
length=0
Fori=1Tok-1
x1=（x（i）-x
（1））^2'
'变量y1计算方法同x1，代码略
length=Sqr（x1+y1）
sum=sum+length
Nexti
Text2.Text=Str（Int（sum*10）/10）
EndSub
17.【加试题】某密码的破译步骤如下：
（1）找出文章（以“.”结束）中所有用英文表示的数字（均为小写，数字范围1≤n≤20）,单词与数字对应如下：
单词
one
two
three
four
five
six
seven
eight
nine
ten
……
twenty
数字
1
2
3
4
5
6
7
8
9
10
……
20
（2）将这些数字平方后除以100取余，得到两位数如00,04,21,96。
（3）把这些两位数按升序排成一行，组成一个最小的新数，如果新数开头为0，就去除。
（4）步骤（3）找出的最小数即为密码。
小明按照上述方法，设计了一个解密的VB程序，功能如下:
单击“解密”按钮Commandl,程序依次将文本框Textl中以空格分隔的每个英文单词取出，若单词属于数字单词，则按解密步骤进行处理，最后在文本框Text2中输出解密结果。
程序运行效果如图所示，请回答下列问题：
第17题图
（1）若文章内容为“tomboughttwoapplesandfiveoranges,whichcosttendollarsaltogether.”,则破译后的密码应为。
（2）请在划线处填入合适的代码。
Dima（1To20）AsString
PrivateSubForm_Load（）
a
（1）="one":
a
（2）="two"
'……将所有数字单词按顺序存入数组a中，代码略
EndSub
PrivateSubCommand1_Click（）
DimsAsString,tmpAsString
DimcasInteger,iAsInteger,jAsInteger,kAsInteger,tAsString,chAsAsString,codeAsLong
Dimb（1To100）AsString'b数组存放数字单词处理后得到的两位数
s=Text1.Text
c=0:
i=1:
flag=True:
t=""
DoWhilei<=Len（s）
ch=Mid（s,i,1）
Ifch>="a"Andch<="z"Then
t=t+ch
flag=False
ElseIfflag=FalseThen
Forj=1To20
Ift=a（j）Then
c=c+1
b（c）=①
EndIf
Nextj
t=""
flag=True
EndIf
i=i+1
Loop
’将b数组中的两位数按数值大小进行升序排序，代码略
Fori=1Toc
t=Val（b（i））
②
Nexti
Text2.Text=Str（code）
EndSub
Functiondecode（numAsInteger）AsString
DimmoAsInteger
mo=num*numMod100
Ifmo=0Then
decode="00"
ElseIf③Then
decode="0"+Trim（Str（mo））
Else
decode=Trim（Str（mo））'Trim为去除字符串两端空格的函数
EndIf
EndFunction
2018学年第一学期浙江省名校协作体试题参考答案
高三年级技术学科
首命题：
湖州中学次命题兼审校：
诸暨中学审核：
学军中学
第一部分信息技术（共50分）
一、选择题（本大题共12小题,每小题2分,共24分。
）
1
2
3
4
5
6
7
8
9
10
11
12
D
D
A
C
D
A
C
B
D
C
A
C
二、非选择题（本大题共5小题,其中第13小题4分,第14小题5分,第15小题8分,第16小题3分,第17小题6分,共26分）
13.
（1）B6:
F8或B6：
E81分
（2）=（D3-E3）/E3*1001分
（3）C1分
（4）B2,B6:
B111分
14.
（1）Caption1分
（2）①n=Val（Text1.Text）1分
②n<>tAndm<=10或其它等价表达式2分
（3）能1分
15.
（1）ABD（注：
全部选对的得2分，选对但不全的得1分，不选或有选错的得0分）
（2）B1分
（3）CD2分
（4）on（press/release）{gotoAndPlay（“main”，1）;}2分
（5）B1分
16.①x（i）=x（i）–x（j）1分
②（x（i）–x（i+1））^2或其他等价表达式2分
17.
（1）4251分
（2）①decode（j）1分
②code=code*100+t或其他等价表达式2分
③mo>=1Andmo<=9或其他等价表达式2分
升级会员 