Nextj
Text1.Text=Text1.Text+","+Str(k)
Nexti
已知数组a的数据序列为2,10,3,4,5,7,0,9,12,则该程序段运行后,文本框Text1中显示的内容是()
A.1,1,2,3,4,0,6,8B.0,1,1,2,3,4,0,6,8
C.1,7,2,3,4,5,0,6,8D.2,9,3,4,5,7,1,8,10
11.辗转相除法,又叫欧几里得算法(EuclideanAlgorithm),是求最大公约数的一种方法。它的具体做法是:
用较小数除较大数,再用出现的余数(第一余数)去除除数,再用出现的余数(第二余数)去除第一余数,如此反复,直到最后余数是0为止。那么最后的除数就是这两个数的最大公约数。现有如程序实现求两数的最大公约数:
DimRAsInteger,xAsInteger,yAsInteger
DoWhile①
r=xMody
x=y
y=r
Loop
②
则划线①②两处填入的代码为()
A.①r<>0②gys=Str(x)B.①xMody<>0②gys=Str(x)
C.①r<>0②gys=Str(y)D.①xMody<>0②gys=Str(y)
12.有如下VB程序段:
i=1:
n=5
DoWhilei<=n
x=Int(Rnd*9)+1
IfxMod2=1Then
a(i)=x
Else
a(n)=x
n=n-1
EndIf
i=i+1
Loop
数组元素的初值均为0,执行该程序段后,在下列选项中a
(1)至a(5)各元素值可能的是()
A.713910B.34188C.07068D.37550
二、非选择题(本大题共4小题,其中第13小题4分,第14小题8分,第15小题7分,第16小题7分,共26分)
13.小徐对刚完成的校运动会情况做了张统计表,放置于Excel工作簿的“Sheet1”工作表中,如图a所示。
图a
(1)金牌比例(%)是利用公式计算后填充得到的,那么在F10单元格中应该输入的计算公式是____________。
(2)对高一各班级以“金牌”为关键字进行排序操作,应选择的数据区域为__________。
(3)选择B2:
E8区域内容,在单元格C2中的“筛选”按钮上设置如图b所示的筛选方式,则保留的班级个数为___________。
图b
(4)为了更直观地反映高二年级金牌比例的对比,小张制作了如下图表(折线图),该图表中“系列”显示的并不是“金牌比例”且图表类型选择有误,改正的方法是____________________________
____________________________________________________________
14.小闻创作名为“幸福一家”的多媒体作品。她首先使用Photoshop软件制作一张背景图片,然后使用Flash软件制作动画。请回答下列问题:
图a
(1)使用Photoshop编辑图片时,如图a所示,将作品存储为BMP格式文件时,不想在图像中显示文字“一家人”,下列操作可行的是_______(多选,填字母:
A.执行“拼合图像”命令/B.删除“一家人”图层/C.隐藏“一家人”图层/D.调整“人物”图层和“一家人”图层的顺序/E.将“一家人”图层的不透明度调整为0%,再存储为BMP格式文件)。(注:
选对且选全得满分,不选或选错不得分,少选且选对得部分分)
(2)使用Flash软件编辑“幸福一家.fla”。“场景1”场景的部分制作界面如图b所示。
图b
回答下列问题:
①如图b所示,“文字1”图层利用库中元件制作文字“过去的每一天里”淡入的动画,该动画类型是________(单选,填字母:
A.逐帧动画/B.形状补间动画/C.动画补间动画)。
②已知“控制”图层中添加了“Replay”按钮实例,测试影片时该按钮最后才出现,若要按钮在动画播放过程中一直可见,下列操作可行的是________(多选,填字母:
A.将“控制”图层的第30帧移至第1帧/B.删除“控制”图层的第1帧至第29帧/C.选择“控制”图层的第1帧并执行“清除帧”/D.选择“控制”图层的第1帧并执行“清除关键帧”/E.将“控制”图层的第30帧执行“复制帧”,再选择第1帧执行“粘贴帧”)。
③测试影片时,单击“Replay”按钮,动画跳转到Load场景的第1帧并暂停播放,则该按钮上的动作脚本是_______________________________________
④小易通过操作得到一个名为“幸福一家.swf”的文件,则该文件是通过_______(填字母:
A.文件另存为/B.测试影片/C.测试场景)操作得到的。
15.编写VB程序,实现如下功能:
在文本框Textl和Text2中分别输入一个整数,单击命令按钮Command1,在列表框List1中显示结果,运行效果如第15题-1图所示。结果包含两列数据,第1列为两数之间的摄氏温度值(间隔1度、升序),第2列为对应的华氏温度值。
第15题-1图第15题-2图
(1)要使命令按钮Command1上显示的文本改为“转换”,可在其属性窗口(第15题-2图)中将_______属性的属性值修改为“转换”。
(2)为实现上述功能,请在划线处填入合适代码或选项。
PrivateSubCommand1_Click()
Dimt1AsInteger,t2AsInteger
DimiAsInteger,tAsInteger
DimfAsSingle
List1.Clear
t1=Val(Text1.Text)
t2=Val(Text2.Text)
If①Then'(选填字母,从下列A、B、C、D四个选项中选取一项)
t=t1:
t1=t2:
t2=t
EndIf
i=t1
DoWhile②'(选填字母,从下列A、B、C、D四个选项中选取一项)
f=i*9/5+32'摄氏温度转换为华氏温度
List1.AddItemStr(i)+""+Str(f)
③'(填程序代码)
Loop
EndSub
划线①、②处的选项:
A.i<=t2B.f<=t2C.t1>t2D.i16.某密文是由一串数字加密得到,其解密规则是:
①对连续重复的大写字母,仅保留1个;②在去重后的文本中,从首字符开始间隔5个字符取1个,依次连接取出的字符,即为明文。
编写解密的VB程序,功能如下:
在文本框Text1中输入密文,单击“解密”按钮Command1,在文本框Text2中显示去重后的文本,并在标签Label1中显示明文。程序运行界面如图所示。
第16题图
(1)实现上述功能的VB程序如下,请在划线处填入合适的代码。
PrivateSubCommand1_Click()
Dims1AsString,s2AsString,cAsString,mwAsString
DimiAsInteger
s1=Text1.Text
s2=Mid(s1,1,1)
Fori=2To①
c=Mid(s1,i,1)
Ifc>="A"Andc<="Z"Then
If②Thens2=s2+c
Else
s2=s2+c
EndIf
Nexti
mw=""
i=6
DoWhilei<=Len(s2)
mw=mw+Mid(s2,i,1)
③
Loop
Text2.Text=s2
Label1.Caption=mw
EndSub
(2)若密文为“XXXX923JBBBYYYY##43aG544Zo$$a0ZZZSSS@wwwIiwf3fYYYrinns”,则相对应的明文为_____________
绝密★考试结束前
瑞安市上海新纪元高级中学2019学年第二学期
信息技术答案
1
2
3
4
5
6
7
8
9
10
11
12
A
C
A
C
D
C
D
A
C
B
D
C
13.答案
(1)=C10/C$14∗100或=C10/$C$14∗100
(2)B2:
F7或B3:
F7(3)3
(4)将图表类型改为“柱形图或条形图”,重新选择数据区域为B2,B9:
B13,F2,F9:
F13
14.答案
(1)BCE
(2)①C②ADE③on(release){gotoAndStop("Load",1);}或on(press){gotoAndStop("Load",1);}④B
15、
(1)Caption(1分)
(2)①C(2分)
②A(2分)
③i+1(2分)
16.
(1)
①Len(s1)或Len(Text1.text)或其他等价表达式(2分)
②c<>Mid(s1,i-1,1)或c<>Mid(s2,Len(s2),1)
或c<>Mid(s2,Len(s2))或其他等价表达式(2分)
③i=i+6或其他等价语句(2分)
(2)BaoSir(1分)