4月高考真题卷技术卷(综合卷)含答案
2017年4月高考真题卷技术卷(综合卷)含答案本文简介:2017年4月高考真题卷——综合卷朱圣乐一、选择题(本大题共12小题,每小题2分,共24分。在每小题给出的四个选项中,只有一个符合题目要求)1.关系信息安全与网络道德,下列做法正确的是A.确认环境安全后输入支付密码B.随意扫描网页中的二维码C.未经许可,将他人的私人生活视频上传到网上D.在论坛里转发
2017年4月高考真题卷技术卷(综合卷)含答案本文内容:
2017年4月高考真题卷——综合卷
朱圣乐
一、选择题(本大题共12小题,每小题2分,共24分。在每小题给出的四个选项中,只有一个
符合题目要求)
1.关系信息安全与网络道德,下列做法正确的是
A.确认环境安全后输入支付密码
B.随意扫描网页中的二维码
C.未经许可,将他人的私人生活视频上传到网上
D.在论坛里转发会造成社会不良影响的信息
2.下列有关浏览器与网页的说法,正确的是
A.通过超链接可实现网页之间的跳转
B.通过搜索引擎检索到的信息,排在前面的可信度必定较高
C.在IE浏览器中清空历史记录,搜藏夹中的网址被同时清空
D.IE浏览器中以“HTML”格式另存网页,网页中的图片同时被保存
3.使用Word软件编辑某文档,部分界面如图所示。
下列说法正确的是
A.批注的对象是“地处西湖边”
B.删除批注,文字“太子湾”同时被删除
C.修订前,第三行文字是“地处西湖边太子湾公园,郁金香争奇斗艳。”
D.接受所有修订后,第三行文字是“太子湾公园中郁金香花争奇斗艳。”
4.使用UltraEdit软件观察字符“挑战AlphaGo!”的内码,部分界面如图所示。
下列说法正确的是
A.字符“!”的内码占两个字节
B.字符“战”的十六进制码是“BD
41”
C.字符“h”的二进制码是“01101000”
D.字符“go”的十六进制码是“47
6F”
5.关于Access数据表的操作,下列说法正确的是
A.重命名数据表,数据表名不能与表中的字段名相同
B.删除字段,数据表中该字段的值随之被删除
C.删除记录,剩余记录中数据类型为自动编号的字段值会自动更新
D.Access数据表不能导出到Excel电子表格
6.某算法的部分流程图如图所示。执行这部分流程,依次输入3,4,-1,则输出s的值是
A.-2
B.-1
C.0
D.1
下列说法正确的是
A.编写制作脚本前,需先完成媒体元素的分解工作
B.本动画所有场景的制作脚本完成后再编写文字脚本
C.“起源”场景播放完后,将自动关闭动画放映
D.“返回”按钮在“太阳”动画结束时出现
8.使用GoldWave软件编辑某音频文件,选择其中一段音频后的部分界面如图所示。
下列说法正确的是
A.插入10s静音后,右声道时长仍为40s
B.选择声道为双声道后按原格式保存,声音文件存储容量翻倍
C.执行“剪裁”操作后,整个音频只剩下当前选中的部分
D.执行“更改音量”操作后,只有当前选中的声音音量发生改变
9.在Flash中用补间动画实现树叶飘落的效果,动画起始关键帧的属性面板如图所示。
下列说法正确的是
A.树叶匀速飘落
B.树叶是库中某个元件的实例
C.当前帧不能直接添加动作脚本
D.声音“渔舟唱晚.mp3”播放时音量由大到小
10.【加试题】将一个动画导出为AVI格式视频,导出设置如图所示。
若导出后的视频文件存储容量43.95MB,则该动画总帧数约为
A.38
B.150
C.300
D.1200
11.【加试题】某对分查找算法的VB程序段如下:
key
=
Val(Text1.Text)
i
=
1:
j
=
10
Text2.Text
=
““Do
While
i
<=
j
m
=
Int((i
+
j)
/
2
+
0.5)
If
key
=
a(m)
Then
Exit
Do
Exit
Do表示退出循环
If
key
<
a(m)
Then
j
=
m
-
1
Else
i
=
m
+
1
Text2.Text
=
Text2.Text
+
Str(a(m))
Loop
数组元素a(1)到a(10)的值依次为“8,17,24,30,36,40,55,58,61,66”,文本框Text1中输入的值是30,执行该程序段,文本框Text2中显示的是
A.40
24
B.40
24
36
C.36
24
D.36
17
24
12.【加试题】小赵对选择排序算法进行了如下改进:在数组的所有元素中找出最小和最大数据的元素,然后将这两个元素分别与第一个和最后一个元素交换数据,在余下的元素中找出最小和最大数据的元素,分别与第二个和倒数第二个元素交换数据,以此类推,直到所有元素的数据按升序排列。小赵编写的VB程序段如下:
p
=
1:
q
=
10
Do
While
p
<
q
iMin
=
p:
iMax
=
p
For
i
=
p
+
1
To
q
If
a(i)
0
a
=
n
Mod
2
n
=
n
\
2
t
=
①
s
=
Str(a)
+
s
Loop
v
=
t
Mod
2
Text2.Text
=
s
Label3.Caption
=
“校验位值:“+
②
End
Sub
(3)运行该程序,在文本框Text1中输入22,单击“计算”按钮,则显示的校验位值是
。
15.
小王制作主题为“中国象棋”的多媒体作品。他首先使用Photoshop软件制作一张背景图片,然后使用Flash软件制作动画。请回答下列问题:
第15题图a
(1)如第15题图a所示,当前状态下,下列操作可行的是
(多选,填字母:A.修改图中左下角的数值缩放图像
/
B.选中“背景”图层后,调整其不透明度
/
C.对“右”图层的内容进行自由变换
/
D.选中“中国象”图层后,对其内容进行填充)。
(注:全部选对的得2分,选对但不全的得1分,不选或有选错的得0分)
第15题图b
(2)如第12题图b所示,“录”图层第25帧到第36帧实现了由象棋子“帅”变化为汉字“录”的动画效果,该动画类型为
(填字:动画补间
/
形状补间
/
逐帧动画)。
(3)要实现“象棋简介”、“象棋起源”、“行棋规则”和“主要赛事”4个补间动画依次出现的效果,应做的调整是
。
(4)为实现该场景动画播放完后自动停止,小王选中“三叠子按钮”图层最后1帧添加停止动画的动作脚本,但脚本出现在该图层第1帧,其原因是
。
(5)测试影片时,单击“象棋简介”按钮,实现在浏览器中显示位于同一目录下“intro.txt”文件的内容,则“象棋简介”按钮的动作脚本为
。
16.【加试题】小王编写了一个实现文字查找替换功能的VB程序,运行界面如图所示。文本框Text1显示原文内容,Text2中输入查找内容,Text3中输入替换内容,单击“全部替换”按钮Command1后,Text4显示查找替换的结果,Text5中显示替换的次数,Text6显示“查找内容”在原文中的起始位置。
实现上述功能的VB程序如下,但加框处代码有错,请改正。
Private
Sub
Command1_Click()
Dim
s
As
String,resule
As
String,pos
As
String
Dim
count
As
Integer,i
As
Integer
i
=
1:
count
=
0
resule
=
““:
pos
=
““Do
While
i
<=
Len(Text1.Text)
s
=
Mid(Text1.Text,i,Len(Text2.Text))
If
s
=
Text2.Text
Then
result
=
result
+
Text3.Text
count
=
count
+
1
i
=
i
+
Len(Text2.Text)
Else
i
=
i
+
1
End
If
Loop
Text4.Text
=
result
Text5.Text
=
Str(count)
Text6.Text
=
pos
End
Sub
17.【加试题】小王编写了一个依据成绩计算名次的VB程序,成绩为0到100之间的整数。算法的基本思想:先统计每个分数的个数,然后按照分数从高到低依次计算每个有效分数(该分数的个数不为0)对应的名次,分数相同时名次并列。最高分为第1名,该分数的名次与个数之和为下一个有效分数的名次,以此类推。程序用数组A存放每个分数对应的个数,数组B存放每个分数对应的名次。例如,下表中最高分100有2个,并列第1名,则分数96的名次为分数100的名次加上分数100的个数,即第3名。
列表框List2中,程序运行界面如图所示。
实现上述功能的VB程序如下,请回答下列问题:
(1)如表所示,若分数93的个数为2,则该分数对应的名次为_____________。
(2)请在划线处填入合适的代码。
Dim
sName(1
To
50)
As
String
存放学生姓名
Dim
sScore(1
To
50)
As
Integer
存放学生分数
Dim
recCount
As
Integer
存放学生人数
Private
Sub
Form_Load()
本过程从数据库中读取***,存储在相应的变量中,并在List1中显示
代码略
End
Sub
整数转换成长度固定的字符串
Function
ads(x
As
Integer,n
As
Integer)
As
String
Dim
sx
As
String,nx
As
Integer,i
As
Integer
sx
=
Str(x):
nx
=
Len(sx)
For
i
=
1
To
n
-
nx
sx
=
““+
sx
Next
i
①
End
Function
Private
Sub
Command1_Click()
Dim
A(0
To
100)
As
Integer
存放每个分数的个数
Dim
B(0
To
100)
As
Integer
存放每个分数的名次
Dim
mc
As
Integer,score
As
Integer,i
As
Integer
For
i
=
0
To
100
A(i)
=
0
Next
i
For
i
=
1
To
recCount
计算每个分数的个数
②
Next
i
mc
=
1
For
i
=
100
To
0
Step
-1
计算每个分数的名次
If
A(i)
0
Then
B(i)
=
mc
③
End
If
Next
i
List2.Clear
List2.AddItem
“姓名
分数
名次
“List2.AddItem
“----------------
“For
i
=
1
To
recCount
score
=
sScore(i)
mc
=
B(sScore(i))
List2.AddItem
sName(i)
+
ads(score,5)
+
“第“+
ads(mc,3)
+
“名“Next
i
End
Sub
答案
一、选择题:AADCBBDDBCBA
二、非选择题:
13.(1)=(E3-D3)/D3*100
(2)应用领域
12月环比增幅%
(3)包含
(4)将图表的数据区域改为A2:A18,C2:C18
14.(1)Text
(2)①t+a
②str(1-v)
(3)0
15.(1)AC
(2)形状补间
(3)将“行棋规则”图层的1至6帧移动到25至30帧
(4)“三叠子按钮”图层的最后一帧为普通帧(或非关键帧)
(5)on(release){GetUrl(“intro.txt”);}
16.(1)pos+str(i)
(2)result=result+mid(text1.text,i,1)
17.(1)7
(2)①ads=sx
②A(sscore(i))=A(sscore(i))+1
③mc=A(i)+B(i)
或
mc=mc+A(i)
![](http://yyk.iask.sina.com.cn/pic/fimg/160992423845576972255.jpg)