1.选择题- (共12题)
1.
下列有关信息技术的说法，不正确的是
| A．信息技术是伴随着计算机和互联网技术的发展而诞生的 |
| B．信息技术是对信息进行采集、处理、传输、存储、表达和使用的技术 |
| C．信息技术包含微电子技术、通信技术、计算机技术和传感技术等 |
| D．物联网、人工智能、云计算等技术都是当前信息技术发展的热点 |
2.
使用Word软件编辑某文档，部分界面如图所示。下列说法正确的是
| A．实现图中的图文环绕效果可以采用“嵌入型”环绕方式 |
| B．删除图中批注后，批注对象和批注内容同时被删除 |
| C．当前光标位于标题行，按“Delete”键一次，“离”字被删除 |
| D．拒绝文档中的所有修订后，文字“应该说”被保留 |
3.
下列关于多媒体技术的说法，正确的是
| A．多媒体技术中的媒体是指承载信息的载体，如文字、声音、图形和图像等 |
| B．多媒体数据压缩标准中，MPEG是静态图像压缩标准，JPEG是动态图像压缩标准 |
| C．某软件能根据文本内容自动朗读，该功能主要应用了多媒体技术中的语音识别技术 |
| D．智能手机的指纹识别功能，主要应用了多媒体技术中的OCR技术 |
5.
使用UltraEdit软件观察字符“A-Z a-z 0-9”的内码，部分界面如图所示。
下列说法正确的是
下列说法正确的是
| A．字符“F”、“d”、“6”的内码值由小变大 |
| B．字符“a”与“A”内码值之差的十进制表示为20 |
| C．字符“2”内码值的二进制表示为“00000010” |
| D．图中所有字符内码值的十进制表示均小于128 |
6.
使用Access软件打开数据库，部分界面如图所示。下列说法正确的是
| A．“表1”中第1条记录的“借阅ID”字段值一定为“1” |
| B．“表1”中“是否赔偿”字段的有效输入值可以为“已赔偿” |
| C．“表1”中不同记录的“图书编号”字段值可以相同 |
| D．“读者信息表”中不能包含“读者编号”字段 |
7.
有如下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 |
9.
下列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） |
10.
使用Photoshop软件制作“阅读”作品，部分界面如图所示，将作品存储为JPEG格式文件 “阅读.jpg”。关于文件“阅读.jpg”，下列说法正确的是
| A．存储容量为2. 25MB | B．包含3个图层 |
| C．不包含“书”图层的图像 | D．图像四角处透明 |
11.
使用Flash软件编辑“云”元件，实现了云朵由小变大再变回原样的形状补间动画，界面如图所示。下列说法正确的是
| A．“图层1”中第10帧的云朵与第1帧的相同 |
| B．云朵由小到大的变化速度比由大到小的变化速度慢 |
| C．在舞台上创建的该元件实例，大小、颜色必定与该元件相同 |
| D．由该元件创建的影片剪辑实例，不具有循环播放的功能 |
2.填空题- (共4题)
13.
小张收集了某地部分市场菜篮子价格数据，并使用Excel软件进行数据处理，如图所示。
请回答下列问题：
（1） 若将C3：H3单元格的数值小数位数设置为0，则I3单元格中显示的值______（填字母：A.变大/ B.不变/ C.变小）。
（2）表中“最大差价”数据是用函数MAX和函数MIN计算得到的：选择J3单元格输入公式，然后用自动填充功能完成其他单元格的计算。则J3单元格中的公式为______（提示：“最大差价”是各市场中同一商品的最高价格与最低价格之差。函数MAX（数据区域）的功能为求该数据区域中的最大值，函数MIN（数据区域）的功能为求该数据区域中的最小值）。
（3）小张要找出在六个市场中“最大差价”最小的水产类商品（若存在符合条件的多个商品，则全部选取）。下列方法可行的是______（多选，填字母）。（注：全部选对的得2分，选对但不全的得1分，不选或有选错的得0分）
A.以“类别”为水产、“最大差价”为最小1项进行筛选，然后选取筛选出的全部商品
B.以“类别”为水产进行筛选，再以“最大差价”为关键字升序排序，选取排在最前面的商品
C.以“最大差价”为主要关键字、“类别”为次要关键字，均按升序排序，选取排在最前面的商品
请回答下列问题：
（1） 若将C3：H3单元格的数值小数位数设置为0，则I3单元格中显示的值______（填字母：A.变大/ B.不变/ C.变小）。
（2）表中“最大差价”数据是用函数MAX和函数MIN计算得到的：选择J3单元格输入公式，然后用自动填充功能完成其他单元格的计算。则J3单元格中的公式为______（提示：“最大差价”是各市场中同一商品的最高价格与最低价格之差。函数MAX（数据区域）的功能为求该数据区域中的最大值，函数MIN（数据区域）的功能为求该数据区域中的最小值）。
（3）小张要找出在六个市场中“最大差价”最小的水产类商品（若存在符合条件的多个商品，则全部选取）。下列方法可行的是______（多选，填字母）。（注：全部选对的得2分，选对但不全的得1分，不选或有选错的得0分）
A.以“类别”为水产、“最大差价”为最小1项进行筛选，然后选取筛选出的全部商品
B.以“类别”为水产进行筛选，再以“最大差价”为关键字升序排序，选取排在最前面的商品
C.以“最大差价”为主要关键字、“类别”为次要关键字，均按升序排序，选取排在最前面的商品
| A．以“最大差价”为关键字升序排序，再以“类别”为水产进行筛选，选取排在最前面的商品 |
14.
数组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
Do While i<j And Not flag '（1）
m = （i + j） \ 2
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 |
依据对分查找思想，设计一个在数组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
Do While i<j And Not flag '（1）
m = （i + j） \ 2
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
15.
在平面坐标系中，给定一组有序的点。从原点出发，依次用线段连接这些点，构成一条折线。要求编写一个“计算折线长度”的程序，功能如下：在文本框Text1中依次输入这些点的坐标值（数据都用逗号分隔并以逗号结尾），单击“计算”按钮Cmd后，程序计算这条折线的长度，结果显示在Label1中。例如，三个点的坐标（5，10）、（8，12）、（6，17）输入格式如图所示。
（1） Cmd对象属于______类。
（单选，填字母：
（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的值为______。
（1） Cmd对象属于______类。
（单选，填字母：
| A．Form / | B．Label / | C．TextBox / | D．CommandButton ） |
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的值为______。
16.
某种数据加密方法描述如下（加密前后的数值都是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的数据段，只进行值变换，直接得到加密数据段。
•依次合并加密数据段，即为最后的加密数据。
值变换：用值变换密钥数组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”加密后的数据段为______（填数据，用逗号分隔）。
| x（l） | x（2） | x（3） | | y（l） | y（2） | y（3） |
| 10 | 20 | 30 | | 3 | 1 | 2 |
（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
试卷分析
-
【1】题量占比
选择题:(12道)
填空题:(4道)
-
【2】：难度分析
1星难题：0
2星难题：0
3星难题：0
4星难题：0
5星难题：0
6星难题：0
7星难题：0
8星难题：0
9星难题：16