2019年浙江卷技术高考真题
本卷为 2019年浙江卷技术高考真题，共 17 道题，平均得分率 57%。试卷适用地区：浙江省。涉及知识点：信息技术发展历史与趋势、网络通信工作原理、Word、文本编辑、Access、VB程序的调试、多媒体技术的概念和特征、人工智能典型应用场景 等。
试卷全文（共 17 题）
1.单选题容易
下列有关信息技术的说法，不正确的是
| A．信息技术是伴随着计算机和互联网技术的发展而诞生的 |
| B．信息技术是对信息进行采集、处理、传输、存储、表达和使用的技术 |
| C．信息技术包含微电子技术、通信技术、计算机技术和传感技术等 |
| D．物联网、人工智能、云计算等技术都是当前信息技术发展的热点 |
2.单选题容易
电子邮件服务器之间传送邮件时采用的协议名称是
| A．URL | B．SMTP | C．HTTP | D．POP3 |
3.单选题中等
使用Word软件编辑某文档，部分界面如图所示。下列说法正确的是
| A．实现图中的图文环绕效果可以采用“嵌入型”环绕方式 |
| B．删除图中批注后，批注对象和批注内容同时被删除 |
| C．当前光标位于标题行，按“Delete”键一次，“离”字被删除 |
| D．拒绝文档中的所有修订后，文字“应该说”被保留 |
4.单选题中等
使用Access软件打开数据库，部分界面如图所示。下列说法正确的是
| A．“表1”中第1条记录的“借阅ID”字段值一定为“1” |
| B．“表1”中“是否赔偿”字段的有效输入值可以为“已赔偿” |
| C．“表1”中不同记录的“图书编号”字段值可以相同 |
| D．“读者信息表”中不能包含“读者编号”字段 |
5.单选题中等
某算法的部分流程图如图所示。执行这部分流程，分别输入35、50、60，则输出值依次为
| A．10，3 | B．10，4 | C．7，10，4 | D．10，12，3 |
6.单选题容易
下列关于多媒体技术的说法，正确的是
| A．多媒体技术中的媒体是指承载信息的载体，如文字、声音、图形和图像等 |
| B．多媒体数据压缩标准中，MPEG是静态图像压缩标准，JPEG是动态图像压缩标准 |
| C．某软件能根据文本内容自动朗读，该功能主要应用了多媒体技术中的语音识别技术 |
| D．智能手机的指纹识别功能，主要应用了多媒体技术中的OCR技术 |
7.单选题中等
使用UltraEdit软件观察字符“A-Z a-z 0-9”的内码，部分界面如图所示。
| A．字符“F”、“d”、“6”的内码值由小变大 |
| B．字符“a”与“A”内码值之差的十进制表示为20 |
| C．字符“2”内码值的二进制表示为“00000010” |
| D．图中所有字符内码值的十进制表示均小于128 |
8.单选题中等
使用Photoshop软件制作“阅读”作品，部分界面如图所示，将作品存储为JPEG格式文件 “阅读.jpg”。关于文件“阅读.jpg”，下列说法正确的是（ ）。
| A．存储容量为2. 25MB | B．包含3个图层 |
| C．不包含“书”图层的图像 | D．图像四角处透明 |
9.单选题中等
使用Flash软件编辑“云”元件，实现了云朵由小变大再变回原样的形状补间动画，界面如图所示。下列说法正确的是
| A．“图层1”中第10帧的云朵与第1帧的相同 |
| B．云朵由小到大的变化速度比由大到小的变化速度慢 |
| C．在舞台上创建的该元件实例，大小、颜色必定与该元件相同 |
| D．由该元件创建的影片剪辑实例，不具有循环播放的功能 |
10.单选题容易
一个时长为8分钟、采样频率为32kHz、量化位数为16、双声道未经压缩的Wave 格式音频文件，其存储容量约为
| A．1MB | B．29MB | C．59MB | D．469MB |
11.单选题稍难
有如下VB程序段：
For i = 1 To 6
a（i） = Int（Rnd * 10） + 1
Next i
For i = 1 To 5
If i Mod 2 = 1 And a（i） > a（i + 1） Then
t = a（i） ： a（i） = a（i + 1） ： a（i + 1） = t
Else
a（i） = a（i） + 1
End If
Next i
执行该程序段后，a（l）~a（6）各元素可能的值是
For i = 1 To 6
a（i） = Int（Rnd * 10） + 1
Next i
For i = 1 To 5
If i Mod 2 = 1 And a（i） > a（i + 1） Then
t = a（i） ： a（i） = a（i + 1） ： a（i + 1） = t
Else
a（i） = a（i） + 1
End If
Next i
执行该程序段后，a（l）~a（6）各元素可能的值是
| A．11，11，7，9，3，9 | B．6，2，8，10，5，9 |
| C．6，9，3，7，8，12 | D．3，9，0，8，2，7 |
12.单选题稍难
下列VB程序段功能为：根据文本框Text1中各字符的大小关系，计算各字符升序排列的序号，并将序号保存在数组y中。如文本框内容为“2011”，程序运行后y（1）〜y（4）各元素的值分别为“4，1，2，3”。
s = Text1. Text
n = Len（ s）
For i = 1 To n
y（ i） = 1
Next i
For i=1 To （ 1）
For j=（ 2） To n
If （ 3） Then
y（ j）=y（ j）+1
Else
y（ i） = y（ i） + 1
End If
Next j
Next i
上述程序段3个方框处的表达式分别为
s = Text1. Text
n = Len（ s）
For i = 1 To n
y（ i） = 1
Next i
For i=1 To （ 1）
For j=（ 2） To n
If （ 3） Then
y（ j）=y（ j）+1
Else
y（ i） = y（ i） + 1
End If
Next j
Next i
上述程序段3个方框处的表达式分别为
| A．（1）n（2）1（3）Mid（s，j，1）>= Mid（s，i，1） |
| B．（1）n（2）1（3）Mid（s，j，1）> Mid（s，i，1） |
| C．（1）n-1（2）i+1（3）Mid（s，j，1）>= Mid（s，i，1） |
| D．（1）n-1（2）i+1（3）Mid（s，j，1）> Mid（s，i，1） |
13.操作题稍难
小张收集了某地部分市场菜篮子价格数据，并使用Excel软件进行数据处理，如图所示。
请回答下列问题：
（2）表中“最大差价”数据是用函数MAX和函数MIN计算得到的：选择J3单元格输入公式，然后用自动填充功能完成其他单元格的计算。则J3单元格中的公式为______（提示：“最大差价”是各市场中同一商品的最高价格与最低价格之差。函数MAX（数据区域）的功能为求该数据区域中的最大值，函数MIN（数据区域）的功能为求该数据区域中的最小值）。
（3）小张要找出在六个市场中“最大差价”最小的水产类商品（若存在符合条件的多个商品，则全部选取）。下列方法可行的是______（多选，填字母）。（注：全部选对的得2分，选对但不全的得1分，不选或有选错的得0分）
A.以“类别”为水产、“最大差价”为最小1项进行筛选，然后选取筛选出的全部商品
B.以“类别”为水产进行筛选，再以“最大差价”为关键字升序排序，选取排在最前面的商品
C.以“最大差价”为主要关键字、“类别”为次要关键字，均按升序排序，选取排在最前面 的商品
D.以“最大差价”为关键字升序排序，再以“类别”为水产进行筛选，选取排在最前面的 商品
请回答下列问题：
（2）表中“最大差价”数据是用函数MAX和函数MIN计算得到的：选择J3单元格输入公式，然后用自动填充功能完成其他单元格的计算。则J3单元格中的公式为______（提示：“最大差价”是各市场中同一商品的最高价格与最低价格之差。函数MAX（数据区域）的功能为求该数据区域中的最大值，函数MIN（数据区域）的功能为求该数据区域中的最小值）。
（3）小张要找出在六个市场中“最大差价”最小的水产类商品（若存在符合条件的多个商品，则全部选取）。下列方法可行的是______（多选，填字母）。（注：全部选对的得2分，选对但不全的得1分，不选或有选错的得0分）
A.以“类别”为水产、“最大差价”为最小1项进行筛选，然后选取筛选出的全部商品
B.以“类别”为水产进行筛选，再以“最大差价”为关键字升序排序，选取排在最前面的商品
C.以“最大差价”为主要关键字、“类别”为次要关键字，均按升序排序，选取排在最前面 的商品
D.以“最大差价”为关键字升序排序，再以“类别”为水产进行筛选，选取排在最前面的 商品
14.操作题稍难
在平面坐标系中，给定一组有序的点。从原点出发，依次用线段连接这些点，构成一条折线。要求编写一个“计算折线长度”的程序，功能如下：在文本框Text1中依次输入这些点的坐标值（数据都用逗号分隔并以逗号结尾），单击“计算”按钮Cmd后，程序计算这条折线的长度，结果显示在Label1中。例如，三个点的坐标（5，10）、（8，12）、（6，17）输入格式如图所示。
（单选，填字母：A. Form / B. Label / C.TextBox / D. CommandButton ）
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Cmd_Click（）
Dim i As Integer，j As Integer，k As Integer
Dim x1 As Single，y1 As Single，x2 As Single，y2 As Single
Dim d As Single，Totald As Single，v As Single，s As String
s =______①
x1 = 0： y1 = 0'出发点为坐标原点
k = 1 ： j = 1 ： Totald = 0
For i = 1 To Len（s）
If Mid（s，i，1） ="，"Then
v = Val（Mid（s，j，i - j））'提取坐标值，保存在变量v中
j = i + 1
If ② Then
x2 = v
Else
y2 = v
d = Sqr（（x2 — x1）^2 + （y2 — y1）^ 2）
Totald = Totald + d
x1 = x2 ： y1 = y2
End If
k = k + 1
End If Next i
Label1. Caption = Str（Totald）
End Sub
（3） 运行该程序，输入数据如上图所示，程序执行到循环结束时，变量k的值为______。
（单选，填字母：A. Form / B. Label / C.TextBox / D. CommandButton ）
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Cmd_Click（）
Dim i As Integer，j As Integer，k As Integer
Dim x1 As Single，y1 As Single，x2 As Single，y2 As Single
Dim d As Single，Totald As Single，v As Single，s As String
s =______①
x1 = 0： y1 = 0'出发点为坐标原点
k = 1 ： j = 1 ： Totald = 0
For i = 1 To Len（s）
If Mid（s，i，1） ="，"Then
v = Val（Mid（s，j，i - j））'提取坐标值，保存在变量v中
j = i + 1
If ② Then
x2 = v
Else
y2 = v
d = Sqr（（x2 — x1）^2 + （y2 — y1）^ 2）
Totald = Totald + d
x1 = x2 ： y1 = y2
End If
k = k + 1
End If Next i
Label1. Caption = Str（Totald）
End Sub
（3） 运行该程序，输入数据如上图所示，程序执行到循环结束时，变量k的值为______。
15.操作题稍难
使用Flash软件创作“荷塘月色”多媒体作品，如图所示。请回答下列问题：
（2）图中“荷塘”图层第5帧到第15帧实现了“荷叶”渐变为汉字“荷塘”的动画，则第5帧中的“荷叶”为______（填文字：形状/实例）。
（3）图中“蜻蜓”图层创建了蜻蜓飞舞的动画，各关键帧中的“蜻蜓”影片剪辑实例均由库中 “蜻蜓”元件（仅含展翅动作）创建。从左至右，各关键帧中“蜻蜓”实例的坐标（X，Y）依 次为（50，120）、（200，180）、（300，80）。若仅对第25帧执行清除关键帧操作，则测试场景时______（多选，填字母：A.蜻蜓飞行路径变为直线/ B.蜻蜓在坐标（50，120）处原地展翅/C.蜻蜓展翅频率不变/D.蜻蜓飞行时间变短）。
（4）如图所示，为使“荷花”图层的动画从第5帧开始，并持续到第45帧。正确的操作是______。
（5）测试影片时，单击当前场景中的“播放”按钮，停止当前声音的播放，然后影片跳转到“荷叶田田”场景第1帧并开始播放，则“播放”按钮的动作脚本为on（release）{______}。
（2）图中“荷塘”图层第5帧到第15帧实现了“荷叶”渐变为汉字“荷塘”的动画，则第5帧中的“荷叶”为______（填文字：形状/实例）。
（3）图中“蜻蜓”图层创建了蜻蜓飞舞的动画，各关键帧中的“蜻蜓”影片剪辑实例均由库中 “蜻蜓”元件（仅含展翅动作）创建。从左至右，各关键帧中“蜻蜓”实例的坐标（X，Y）依 次为（50，120）、（200，180）、（300，80）。若仅对第25帧执行清除关键帧操作，则测试场景时______（多选，填字母：A.蜻蜓飞行路径变为直线/ B.蜻蜓在坐标（50，120）处原地展翅/C.蜻蜓展翅频率不变/D.蜻蜓飞行时间变短）。
（4）如图所示，为使“荷花”图层的动画从第5帧开始，并持续到第45帧。正确的操作是______。
（5）测试影片时，单击当前场景中的“播放”按钮，停止当前声音的播放，然后影片跳转到“荷叶田田”场景第1帧并开始播放，则“播放”按钮的动作脚本为on（release）{______}。
16.填空题稍难
数组a中存储的是左右交替上升的n个正整数，如下表所示：
依据对分查找思想，设计一个在数组a中查找数据key的程序。实现该功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click（）
Const n = 6
Dim a（1 To n）As Integer，flag As Boolean
Dim i As Integer，j As Integer，m As Integer，key As Integer
'读取一组正整数，按上述规则存入数组a中，代码略。
key = Val（Text1. Text）
i = 1
j = (n + 1)\2
flag = False
If key = a(m) Then
flag = True
ElseIf key< a(m) Then
j = m - 1
Else
i = m + 1
End If
Loop
If Not flag And j > 0 Then
m=n-i
If key = a(m) Then flag = True
End If
If flag Then
Text2. Text = Str(m)
Else
Text2. Text = "找不到"
End If
End Sub
a（1） | a（2） | a（3） | …… | a（n —2） | a（n—1） | a（n） |
3 | 25 | 38 | …… | 55 | 31 | 12 |
Private Sub Command1_Click（）
Const n = 6
Dim a（1 To n）As Integer，flag As Boolean
Dim i As Integer，j As Integer，m As Integer，key As Integer
'读取一组正整数，按上述规则存入数组a中，代码略。
key = Val（Text1. Text）
i = 1
j = (n + 1)\2
flag = False
Do While 
And Not flag '（ 1）
If key = a(m) Then
flag = True
ElseIf key< a(m) Then
j = m - 1
Else
i = m + 1
End If
Loop
If Not flag And j > 0 Then
m=n-i
If key = a(m) Then flag = True
End If
If flag Then
Text2. Text = Str(m)
Else
Text2. Text = "找不到"
End If
End Sub
17.操作题稍难
某种数据加密方法描述如下（加密前后的数值都是0~255的整数）：
•以m个数据为一段，将n个待加密数据依次分割成若干个数据段。剩余数据（个数小于 m）为一个独立数据段。
•数据段加密规则：
数据个数等于m的数据段，先进行值变换，再进行位置变换，得到加密数据段。
数据个数小于m的数据段，只进行值变换，直接得到加密数据段。
•依次合并加密数据段，即为最后的加密数据。
值变换：用值变换密钥数组 x（元素个数为m，值为0~255的整数），将待加密数据段 中的数据进行值变换，方法如下：
值变换后第i个元素=（待加密数据段第i个元素+ x（i）） Mod 256，其中i = 1，2，…，m 位置变换：用位置变换密钥数组 y（元素个数为m，值为1~m的不重复整数），将上述 值变换后的m个元素进行段内位置变换，方法如下：
加密后数据段第y（i）个元素=值变换后第i个元素，其中i = 1，2，…，m
例如，n=5，m = 3的数据加密过程如下：
段内序号待加密数据密钥数组x 值变换后数据密钥数组y 加密后数据
（1）已知m = 3，数组x与数组y中的数据如下表所示。则待加密数据段“155，1，250”加密后的数据段为______（填数据，用逗号分隔）。
（2）小张根据上述加密算法，设计了一个对应的解密程序，其VB代码如下，请在划线处填入合适的代码（解密与加密使用相同的密钥数据）。
Private Sub Command1_Click（）
Const n= 100
Const m = 6
Dim i As Integer，j As Integer
Dim a（1 To n） As Integer，b（1 To n） As Integer
Dim x（1 To m） As Integer，y（1 To m） As Integer
'读取值变换与位置变换的密钥数据，分别保存在数组x与y中，代码略。
'读取待解密数据，保存在数组a中，代码略。
'下面进行位置变换：位置变换后数据保存到数组b中
For i = 1 To ①
For j = 1 To m
②
Next j Next i
For i = （n \ m） * m + 1 To n
b（i） = a（i）
Next i
'下面进行值变换：值变换后数据仍保存到数组b中
j = 1
For i = 1 To n
b（i）=③
j = j + 1
If j > m
Then j = 1
Next i
'输出解密后数据，代码略。
End Sub
•以m个数据为一段，将n个待加密数据依次分割成若干个数据段。剩余数据（个数小于 m）为一个独立数据段。
•数据段加密规则：
数据个数等于m的数据段，先进行值变换，再进行位置变换，得到加密数据段。
数据个数小于m的数据段，只进行值变换，直接得到加密数据段。
•依次合并加密数据段，即为最后的加密数据。
值变换：用
值变换后第i个元素=（待加密数据段第i个元素+ x（i）） Mod 256，其中i = 1，2，…，m 位置变换：用
加密后数据段第y（i）个元素=值变换后第i个元素，其中i = 1，2，…，m
例如，n=5，m = 3的数据加密过程如下：
段内序号待加密数据密钥数组x 值变换后数据密钥数组y 加密后数据
（1）已知m = 3，数组x与数组y中的数据如下表所示。则待加密数据段“155，1，250”加密后的数据段为______（填数据，用逗号分隔）。
x（l） | x（2） | x（3） | y（l） | y（2） | y（3） | |
10 | 20 | 30 | 3 | 1 | 2 |
Private Sub Command1_Click（）
Const n= 100
Const m = 6
Dim i As Integer，j As Integer
Dim a（1 To n） As Integer，b（1 To n） As Integer
Dim x（1 To m） As Integer，y（1 To m） As Integer
'读取值变换与位置变换的密钥数据，分别保存在数组x与y中，代码略。
'读取待解密数据，保存在数组a中，代码略。
'下面进行位置变换：位置变换后数据保存到数组b中
For i = 1 To ①
For j = 1 To m
②
Next j Next i
For i = （n \ m） * m + 1 To n
b（i） = a（i）
Next i
'下面进行值变换：值变换后数据仍保存到数组b中
j = 1
For i = 1 To n
b（i）=③
j = j + 1
If j > m
Then j = 1
Next i
'输出解密后数据，代码略。
End Sub
同一年同一卷型的其他科目
2019年浙江卷语文高考真题2019 · 语文2019年浙江卷数学高考真题2019 · 数学2019年浙江卷英语高考真题2019 · 英语2019年浙江卷英语高考真题2019 · 英语2019年浙江卷物理高考真题2019 · 物理2019年浙江卷物理高考真题2019 · 物理2019年浙江卷化学高考真题2019 · 化学2019年浙江卷生物高考真题2019 · 生物