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分
6.
(1)4251分
(5)①decode(j)1分
②code=code*100+t或其他等价表达式2分
③mo>=1Andmo<=9或其他等价表达式2分