2017年高考模拟试卷信息技术卷

2017年高考模拟试卷信息技术卷

考生须知：

1．全卷分试卷和答题卷，满分100分，考试时间90分钟。

2．请将答案做在答题卷的相应位置上，写在试卷上无效。

第一部分信息技术（50分）

一、选择题（本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求，不选、多选、错选均不得分）

1.下列有关信息的说法，不正确的是（）

A.同样的信息可以有不同的载体

B.给学考的同学分配准考号，属于信息的编码

C.古代没有信息，只有信息时代才有信息。

D.很多手机都有屏幕锁，是为了提升信息的安全性

2. 用UltraEdit软件观察“Bonnie@16

https://www.wendangku.net/doc/9b15056253.html,”这几个字符的内码,如第2题图所示。

第2题图

则“&Andy”这几个字符的内码是（）

A．40 41 6E 64 79 B．40 41 6E 66 7A C．26 41 6E 64 79 D．26 41 6E 66 7A

3.“Parkour”一词翻译成中文为“跑酷”，《地铁涂鸦》就是一款流行的移动设备跑酷游戏，其软件开发团队在制作前先调查研究了用户对该产品的需求情况，这属于多媒体作品制作过程（）A．应用需求分析 B．系统结构设计 C．创作需求分析 D．功能模块设计

4.光学字符识别（OCR)技术，可以实现的功能是（）

A.识别图像中的字符

B.将文字转换为图像

C.可以实现语音输入文字

D.将纸质文字转换为数字图像

5.使用 Access软件创建一张数据表，其结构如第5题图所示:

第5题图

在该数据表中录入数据时，下列操作能实现的是（ ） A. 在“商品编号”字段中输入“2015122501” B. 在“商品名称”字段中输入“洗衣机” C. 在“库存”字段中输入“100台”

D. 在“生产日期”字段中输入“2015\12\25” 6.有流程图如第6题图所示：

第6题图

执行后变量i 的值为( )

A. 3

B. 5

C. 6

D. 4

7. 小梅使用Word 编辑文档时的界面如第5题图所示，下列说法中正确的是( )

A ．接受修订后，第一段文字最后的文字为“作者美国籍作家加布瑞埃拉·泽文。”

B ．“现象级全球”文字下方的波浪线属于“修订”，是用户“MS”新增加的。

C ．全文共有2处批注和3处修订。接受修订后，第二段中文字会变成“成为了2015年的全球出版界黑马。”

D ．文章第三段添加了1处批注，并不会对原文进行任何修改。

8.小应想用Photoshop 软件为自己喜欢的电影做一张海报，当前编辑窗口如图第8题图所示：

[来源:Z§xx§https://www.wendangku.net/doc/9b15056253.html,]

第7题图

第8题图

该文件共有几个图层设置了图层样式效果（）

A.1个

B.2个

C.3个

D.4个

9.某Flash作品的部分时间轴界面如第9题图所示。

第9题图

下列描述与图中信息不相符的是（）

A.动物图层存在动作命令

B.文字图层第一帧没有内容

C.按钮图层存在补间动画

D.背景图层被隐藏

10．【加试题】某十字路口有四个车道，每车道用一个指示灯指明通行状态，表10是每个指示灯的控制码与对应的状态。某一时段允许中间2个车道直行对应的控制码如图10所示。

编码状态

00 不亮

01 红灯

10 黄灯

11 绿灯高位低位0101

1111

第10题表第10题图

若某一时段允许车辆左转，但不允许车辆直行和右转，则此时的控制码应该是( )

A．01111101 B．11010101 C．11111101 D．01111101

11.【加试题】有如下程序段：

k=1

For i = 2 To 5

If a(i)< a(k) Thenk = i

Next i

if k <> 1 then

t=a(1):a(1)=a(k):a(k)=t

End if

程序段运行后，数组元素a(1)～a(5)的值依次为“165，168，178，175，171”，则下列选项中a(1)～a(5)的原始数据序列可能是( )

A.178，168，165，175，171

B.175，178，168，165，171

C.165，178，168，175，171

D.165，168，171，175，178

12.【加试题】某Visual Basic程序段如下：

s = ""

For i = 1 To 5

a(i) = 0

Next i

For i = 2 To 5

For j = i To 5

If j Mod i = 0 Then a(j) = 1 - a(j)

Next j

Next i

For i = 1 To 5

If a(i) = 1 Then s = s + Str(i)

Next i

Text1.Text = s

运行该程序段后，Text1中显示的内容为( )

A.14

B.25

C.235

D.234

非选择题部分

二、非选择题（本大题共5小题，其中第13小题4分，第14小题5分，第15小题8分，第16小题4分，第17小题5分，共26分）

13.小明收集了同学农场收获的数据，并用Excel进行数据处理，如第13 题-1图所示。请回答下列问题：

第13题-1图

（1）在第13题-1图所示工作表中，百分比1的区域M4:M18中的数据是通过公式计算得到的：选择该区域中的一个单元格，输入公式，然后用自动填充功能完成其他单元格的计算。M4单元格的公式是。(提示：百分比1 =最后一项“浮云树”/总收获数×100)

（2）百分比2是指求出每位同学的收获总数占全班收获总数的百分比，小应在N4中输入公式=L4/L23，出现如第13题-2图所示的错误，原因是。

第13题-2图

（3）为了更直观的对比同学们最后一项“浮云树”的收获情况，小应准备制作一张图表，则应该选择的区域是B4:B18, 。

（4）为了看同学们哪项收获得最多，可以看第21行的数据，或者看第行的数据。

14. 编写VB程序，实现如下功能:在文本框Text1中输入一个四位正整数，单机命令按钮Command1,在文本框Text2中输出这个四位数的各位数之和。单机命令按钮Command2，清除Text1和Text2中的数据。运行效果如第14题-1图所示。

[来源:学,科,网

Z,X,X,K]

第14题-1图第14题-2图

（1）为实现上述功能，请在划线处填入合适代码或选项。

Private Sub Command1_Click()

a = Val(Text1.Text)

① '（填程序代码）

For i = 1 To 4

s = s + a Mod 10

a = ② '(选填字母,从下列A、B、C、D四个选项中选取一项）

Next i

③ '(选填字母,从下列A、B、C、D四个选项中选取一项）

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

End Sub

划线②、③处的选项应为：

A.a/10

B.a\10

C.Text2.Text = Str(s)

D. Text2.Text = ""

（2）如果输入的是一个五位正整数，在第14题-2图中应该修改第行的代码。

15.小明准备在元旦期间设计一个的多媒体作品。他首先使用Photoshop软件制作一张贺卡，然后使用Flash 软件制作动画。请回答下列问题

第15题-1图

第15题-2图

（1）如第15题-1图所示，“庆祝元旦”图层（选填：是/否）加了图层样式效果。背景图层被锁定（选填：能/不能）被删除。

（2）按第15题-1图所示的图层设置，小明想改变烟花的大小，当前状态下，小明

(选填:能/不能）对烟花进行自由变化操作。

（3）如第15题-2图所示，若“音乐”图层在第30帧开始播放，则经过约秒，“音乐”图层中的音频才开始播放。

（4）如第15题-2图所示，在动画制作过程中，“按钮”图层和“文字”图层被锁定后，这两个图层还能不

能进行图层交换 ? (选填:能/不能）。

（5）如第15题-2图所示，“音乐”图层中音乐来源于库中“过年.wav ”。该文件 （选填：是/否）是元件。

（6）如第15题-2图所示，测试场景时，单击“退出”按钮，影片被关闭退出。则“退出”按钮动作脚本是 。

16.【加试题】编写VB 应用程序，当用户输入的一串由字母、数字等字符组成的字符串，统计其中每个字母出现的次数（不分大小写）。程序运行时界面如第16题-1图所示。

第16题-1图

（1）设计应用程序界面时，为添加标签对象“输入字串：”，应使用第16题-2图所示的“控件工具箱”中的 （填写相应编写），并在第16题-3图所示的“属性窗口”中，将 属性设置为“输入字串：”。

第16题-2图 第16题-3图

（2）程序运行时，在Text1中输入字符串，单击“统计”按钮，在List1中显示统计结果。请在划线处填入合适代码。

‘函数IsLetter(x)功能，若x 是字母，则返回值为字母x 在字母序列“A ”~“Z ”中的序号，如字母“A ”的序号为0，字母“D ”的序号为3。若x 不是字母，则返回值为-1。 Function IsLetter(x As String) As Integer If "A" <= x And x <= "Z" Then

Label1

Label2

Command1

Text1

List1

IsLetter = Asc(x) - Asc("A")

ElseIf "a" <= x And x <= "z" Then

IsLetter = Asc(x) - Asc("a")

Else

①______

End If

End Function

Private Sub Command1_Click()

Dim f(25) As Integer, m As Integer, n As Integer

Dim s As String, c As String

List1.Clear

For m = 0 To 25 ‘初始化数组f

f(m) = 0

Next m

s = Text1.Text

For m = 1 To Len(s) ‘依次读取字符串中的每个字符进行判断

c = Mid(s, m, 1)

n = IsLetter(c)

If n <> -1 Then f(n) = f(n) + 1

Next m

For m = 0 To 25 ‘输出统计结果，没有出现的字母不输出

If ② Then

List1.AddItem (Chr(m + Asc("a")) & ":" & f(m))

End If

Next m]

End Sub

17.【加试题】某超市举行抽奖活动，规定积分排名（从大到小）在前10位的会员可以参加特等奖抽奖。下列程序能根据左边列表框中的积分数据统计出积分最高的前10位会员卡号（程序界面如第17题图所示），数组a和b分别保存会员卡号和对应的积分，单击“统计前10名”按钮（Command1）后，积分最高的前10名会员卡号和对应积分就显示在右边的列表框List2中。

第17题图

Private Sub Command1_Click()

Dim t1 As String, t2 As Long, k As Integer For i = 1 To 10 k = i

For j = i + 1 To n 'n 表示所有参与排序的会员人数 If b(j) > b(k) Then k = j '① Next j

If k <> i Then '② t1 = a(i): a(i) = a(k): a(k) = t1 t2 = b(i): b(i) = b(k): b(k) = t2 End If Next i

List2.AddItem "会员卡号" + " " + "会员积分"

End Sub

（1）如果要统计出积分最低的10名会员，只需在上述程序段中标有①②的行中选择一行进行修改即可，那么应该修改的代码行是________（填：①/②），该行代码应该修改为 。 （2）上列程序中标有③的方框内应填写的程序段为：

。

③

' 输出前10名的会员卡号和对应

' 积分

第一部分信息技术（50分）

一、单选题（每题2分，共24分）

题号 1 2 3 4 5 6 7 8 9 10 11 12

答案

二、非选择题（本大题共5小题，其中第13小题4分，第14小题5分，第15小题8分，第16小题4分，第17小题5分，共26分）

13．(1) （1分）

(2) （1分）

(3) （1分）

(4) （1分）

14．(1) （2分）

(2) （1分）

(3) （1分）

(4) （1分）

15. (1) （1分）（1分）

(2) （1分）

(3) （1分）

(4) （1分）

(5) （1分）

(6) （2分）

16.（1）（1分）（1分）

(2) （1分）（1分）

17. (1) （1分）（2分）

(2)

（2分）

第一部分信息技术（50分）

一、单选题（每题2分，共24分）

题号 1 2 3 4 5 6 7 8 9 10 11 12

答案 C C A A B D D B B B A C

二、非选择题（本大题共5小题，其中第13小题4分，第14小题5分，第15小题8分，第16小题4分，第17小题5分，共26分）

13．(1)=K4/L4*100 （1分）

(2)没有加绝对引用（1分）

(3)K4：K18 （1分）

(4)23 （1分）

14．(1)s=0 （2分）

(2)B （1分）

(3)C （1分）

(4)4 （1分）

15. (1)否（1分）能（1分）

(2)不能（1分）

(3)2.5 （1分）

(4)能（1分）

(5)否（1分）

(6)on (click) {fscommand("quit");} （2分）

16.（1）1 （1分） Caption （1分）

(2)IsLetter=-1 （1分） f(m)<>0 （1分）

17. (1)①（1分） If b(j) < b(k) Then k = j （2分）

(2)For i=1 to 10

List2.AddItem Str(a(i)) + " " + str(b(i))

Next i （2分）