1.选择题- (共12题)
1.
用 UltraEdit 软件观察字符内码， 部分界面如图所示。 下列说法正确的是（ ）
| A．图示的文本共占用14字节 |
| B．图中“!”字符的内码为“A1” |
| C．字符“20”的二进制编码为 10100 |
| D．按图中信息推测，大写英文字符K的ASCII编码为8BH |
2.
下列关于字处理的相关说法正确的是（ ）
| A．在Word软件中，将批注的内容删除后，批注框会被保留 |
| B．在Word软件中，关闭“修订”功能后，原有的修订记录会自动隐藏 |
| C．在Word软件中，将图片设置为“嵌入型”，则可使得文字环绕图片的四周 |
| D．在Word软件中，“自动更正”功能可以自动更正错别字，属于人工智能技术 |
3.
某商场将采用“会员管理系统”管理客户的信息，会员信息表如下
若用Access数据表“会员信息”来存储上述表的信息，下列说法错误的是（ ）
| 会员编号 | 姓名 | 积分 | 性别 | 余额 | 出生日期 |
| V101 | 张小明 | 461 | 男 | ¥820.0 | 1999-12-21 |
| P103 | 李小红 | 5000 | 女 | ¥786.0 | 2000-01-24 |
| …… | …… | …… | …… | …… | …… |
若用Access数据表“会员信息”来存储上述表的信息，下列说法错误的是（ ）
| A．“会员管理系统”是一个数据库应用系统 |
| B．“会员编号”字段可以设置为“文本”类型 |
| C．为了便于信息管理，应将“姓名”字段设置成该表的主键 |
| D．在设计“会员信息”表时，需要考虑表与表之间的关系 |
4.
下列关于信息与信息安全的说法正确的是（ ）
| A．物质、能源、信息是人类社会的三大要素，使用过程中都会有损耗 |
| B．二维码中可能包含手机病毒、钓鱼网站等相关信息 |
| C．计算机病毒主要通过网络传播，只要不上网就不会感染计算机病毒 |
| D．信息技术的发展对人类社会产生了巨大变革，虚拟现实技术使信息脱离载体被表示 |
5.
下列关于因特网信息表达与评价的说法正确的时（ ）
| A．网页是有HTTP语言编写的，可以由记事本、FrontPage等软件编辑 |
| B．统计评价是网络信息评价的主要方式之一，评价结果是真实可信的 |
| C．使用浏览器收藏网页，实际上是保存的时网页的URL |
| D．将网页以“Web档案，单个文件（*.mht）”类型保存，其中的图片未被保存 |
”后，再按原参数保存，声音文件的大小为( )
8.
（加试题）有如下程序段：
If a(j) <= a(i) And d(j) >= d(i) Then
d(i) =d(j)+1 : pre(i) = j
End If
Next j
k=pre(k)
For i = 2 To 6
For j = 1 To i - 1If a(j) <= a(i) And d(j) >= d(i) Then
d(i) =d(j)+1 : pre(i) = j
End If
Next j
Next i
max = 0 : k = 0
For i = 1 To 6
If d(i)>max Then max = d(i) : k = iNext i
Do While k <> 0
st = a(k) & ","& stk=pre(k)
Loop
Text1.Text = Mid(st, 1, Len(st) - 1)
数组元素a(1)到a(6)的值依次为“2,6,5,9,8,8”，数组d各元素的值初始化为1，数组pre各元素的值初始化为0，经过该程序段“加工”后，Text1中的值是( )| A．2,5,9 | B．2,6,8,8 | C．2,5,8,8 | D．2,5,6,8,8,9 |
9.
（加试题）有如下程序段：
k = 0 : First = 1 : Last = 5 : Flag = True
Do While Flag
k = k + 1
p = False : Flag = False
For j = First To Last
If a(j) > a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
Last = j : Flag = True
If p = False Then
First = j ：p = True
End If
End If
Next j
If First <> 1 Then First = First - 1
Last = Last - 1
Loop
数组元素a(1)到a(6)的值依次为“3,6,8,5,7,9”，经过该程序段“加工”后，下列说法正确的是( )
k = 0 : First = 1 : Last = 5 : Flag = True
Do While Flag
k = k + 1
p = False : Flag = False
For j = First To Last
If a(j) > a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
Last = j : Flag = True
If p = False Then
First = j ：p = True
End If
End If
Next j
If First <> 1 Then First = First - 1
Last = Last - 1
Loop
数组元素a(1)到a(6)的值依次为“3,6,8,5,7,9”，经过该程序段“加工”后，下列说法正确的是( )
| A．此过程中数据共交换了3次 | B．此过程中该数组的数据共比较了7次 |
| C．变量k的值为2 | D．数组元素a(1)到a(6)的数未排成有序 |
10.
下列关于多媒体技术的说法，错误的是( )
| A．作品的系统结构描述了整个作品的组成部分、工作流程、主要界面。 |
| B．相同大小和颜色位数的图像，色彩层次越丰富，冗余就越大，压缩后容量就更小。 |
| C．对位图的修改实质上就是改变图像中像素的颜色和亮度属性。 |
| D．用GoldwaveL软件处理声音时，插入一段5秒的静音，声音总时长一定也会增加5秒。 |
11.
用Flash软件制作动画，界面如图所示，下列描述正确的是( )
| A．在“背景”图层的第20帧清除帧，可以使画面一直保持到结束 |
| B．声音播放到第30帧时停止 |
| C．测试场景时会播放影片剪辑元件中的动画效果 |
| D．“蝴蝶1”和“蝴蝶2”的飞行距离相同 |
12.
使用Photoshop软件制作“保护地球”作品，部分界面如图所示，在当前状态下可直接操作的是( )
| A．将图像中两只鸟上下的位置调整为左右的位置 |
| B．给“标语”图层添加“风格化”滤镜 |
| C．对“灰色”图层执行“清除图层样式”操作 |
| D．给“地球”图层添加“内阴影”的图层样式 |
2.填空题- (共5题)
13.
小胡收集了2018届高三学生高考成绩及相关的选科情况，存入数据库中，部分界面截图如图所示：
（1）请在划线处填入合适的代码。
Dim xh(1 To 1000) As Integer ’数据库中读取时第i为学生的学号存储在xh(i)
Dim zf(1 To 1000) As Integer ’学号为i的考生的总分存储在zf(i)
Dim xk(1 To 1000) As String ’学号为i的考生的选考课程信息存储在zf(i)
’ 数据格式 **-**-** （如：物理-化学-生物）
Dim jspm(1 To 1000) As Integer ’学号为i的技术选考生的总分在所有技术考生中的
’排名存储在数组jspm(i)
Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim constr as string , sql as string
Constr = "Provider=Microsoft.ace.OLEDB.12.0;"
Constr = constr & "Data Source=" & App.Path + "\data\stu2018.accdb"
conn.ConnectionString = constr
conn.open( )
rs.Open "select * from 2018cj " , conn
i=0
Do While Not rs.EOF
i=i+1
xh(i)=rs(“xuehao”)
zf(rs(“xuehao”)) = rs(“fenshu”)
xk(rs(“xuehao”))=rs(“xkinfo”)
①【小题1】
Loop
N=i
End Sub
’判断选科信息info中是否包含科目km
Function YouKM(ByVal km As String, ByVal Info As String) As Boolean
Dim km1 As String
YouKM = False
For i = 1 To 3
If ②【小题2】 Then
YouKM = True
Exit For
End If
Next i
End Function
'为技术学科考试求名次
Private Sub Command1_Click()
For i = 1 To n
If ③【小题3】 Then
k = k + 1
jsinfo(2 * k - 1) = xh(i)
jsinfo(2 * k) = cj(xh(i))
End If
Next i
'学号为i的学生在技术选考生中的排名,存入jspm（i）中
For i = 1 To k
mc = 0
For j = 1 To k
If jsinfo (2 * j) > jsinfo (2 * i) Then mc = mc + 1
Next j
jspm(jsinfo(2*i-1))= ④【小题4】
End Sub
程序功能如下：
在窗体加载时，从数据库中读取学生总数N；读取N名学生的信息存储在相关数组中。N名学生的学号依次存储在数组xh(1)~xh(n) 中；学号为i的学生的总成绩存储在数组 zf(i)中，课程选修信息存储在xk(i)中；
点击“统计”按钮后，程序筛选出所有技术考生的相关信息，并计算该学生在所有技术考生中的排名（总分相同的，排名也相同）。
实现上述功能的VB程序如下，请回答下列问题：（1）请在划线处填入合适的代码。
Dim xh(1 To 1000) As Integer ’数据库中读取时第i为学生的学号存储在xh(i)
Dim zf(1 To 1000) As Integer ’学号为i的考生的总分存储在zf(i)
Dim xk(1 To 1000) As String ’学号为i的考生的选考课程信息存储在zf(i)
’ 数据格式 **-**-** （如：物理-化学-生物）
Dim jspm(1 To 1000) As Integer ’学号为i的技术选考生的总分在所有技术考生中的
’排名存储在数组jspm(i)
Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim constr as string , sql as string
Constr = "Provider=Microsoft.ace.OLEDB.12.0;"
Constr = constr & "Data Source=" & App.Path + "\data\stu2018.accdb"
conn.ConnectionString = constr
conn.open( )
rs.Open "select * from 2018cj " , conn
i=0
Do While Not rs.EOF
i=i+1
xh(i)=rs(“xuehao”)
zf(rs(“xuehao”)) = rs(“fenshu”)
xk(rs(“xuehao”))=rs(“xkinfo”)
①【小题1】
Loop
N=i
End Sub
’判断选科信息info中是否包含科目km
Function YouKM(ByVal km As String, ByVal Info As String) As Boolean
Dim km1 As String
YouKM = False
For i = 1 To 3
If ②【小题2】 Then
YouKM = True
Exit For
End If
Next i
End Function
'为技术学科考试求名次
Private Sub Command1_Click()
Dim jsinfo(1 To 1000) As Integer ’依次存储每个技术选考生的学号和成绩
Dim k as integer ’存储找到的技术选考学生的数量
'将所有选考“技术”的考生学号、成绩依次存入数组jsinfo中
k = 0For i = 1 To n
If ③【小题3】 Then
k = k + 1
jsinfo(2 * k - 1) = xh(i)
jsinfo(2 * k) = cj(xh(i))
End If
Next i
'学号为i的学生在技术选考生中的排名,存入jspm（i）中
For i = 1 To k
mc = 0
For j = 1 To k
If jsinfo (2 * j) > jsinfo (2 * i) Then mc = mc + 1
Next j
jspm(jsinfo(2*i-1))= ④【小题4】
Next i
'输出所有技术考试的学号、成绩、技术排名信息 代码略End Sub
14.
统计不同单词个数，在Text1中输入一行单词，点击“统计”按钮后在Text2中输出不同单词的个数。单词字母有大小写，同一单词的大小字母视为相同，句子以符号结尾， 程序运行界面如图所示。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a(1 To 100) As String ,s As String, ch As String, word As String
Dim i As Integer, j As Integer, k As Integer, numb As Integer
s = Text1.Text : k = 0 : word = ""
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "a" And ch <= "z" Or ch >= "A" And ch <= "Z" Then
If ch >= "A" And ch <= "Z" Then ①【小题2】
word = word + ch
Else
flag = False
For j = 1 To k
If a(j) = word Then flag = True
Next j
If Not flag And word <> "" Then
②【小题3】
a(k) = word
numb = numb + 1
End If
③【小题4】
End If
Next i
Text2.Text = str(numb)
End Sub
| A．对象名 / | B．事件名 / | C．事件处理过程名） |
Private Sub Command1_Click()
Dim a(1 To 100) As String ,s As String, ch As String, word As String
Dim i As Integer, j As Integer, k As Integer, numb As Integer
s = Text1.Text : k = 0 : word = ""
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "a" And ch <= "z" Or ch >= "A" And ch <= "Z" Then
If ch >= "A" And ch <= "Z" Then ①【小题2】
word = word + ch
Else
flag = False
For j = 1 To k
If a(j) = word Then flag = True
Next j
If Not flag And word <> "" Then
②【小题3】
a(k) = word
numb = numb + 1
End If
③【小题4】
End If
Next i
Text2.Text = str(numb)
End Sub
15.
（加试题）数组a中存储的是一组正整数，特征是：①以三个数为一组的话，每组中任意一个数都比前面一组中的任意一个数要大；②每组中三个数依次递减；③数组中数的总个数为3的倍数。依据对分查找思想，设计一个在数组a中查找数据key的程序。实现该功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Const n = 15
Dim a(1 To n) As Integer, search As Integer, key As Integer
Dim i As Integer, j As Integer, m As Integer
'读取一组正整数,按上述规则存入数组a中,代码略。
key = Val(Text1.Text)
i = 1: j = n: search = 0
Do While i <= j
m = (i + j) \ 2
If m Mod 3 <> 0 Then m= m -2 '(1) 把m调整到三个一组的最后一个数的位置
If key = a(m) Then
search = m : Exit Do
ElseIf key < a(m) Then
j = m - 3
ElseIf key <= a(m - 2) Then '(2)
i = m + 1
ElseIf key = a(m - 2) Then
search = m - 2 : Exit Do
ElseIf key = a(m - 1) Then
search = m - 1 : Exit Do
Else
search = 0 : Exit Do
End If
Loop
If search <> 0 Then
Text2.Text = Str(search)
Else
Text2.Text = "找不到"
End If
End Sub
加框处代码应修改为：（1）【小题1】 （2）【小题2】
| 8 | 5 | 3 | 17 | 15 | 10 | 32 | 23 | 18 | 53 | 43 | 37 | 82 | 72 | 63 | …… |
Private Sub Command1_Click()
Const n = 15
Dim a(1 To n) As Integer, search As Integer, key As Integer
Dim i As Integer, j As Integer, m As Integer
'读取一组正整数,按上述规则存入数组a中,代码略。
key = Val(Text1.Text)
i = 1: j = n: search = 0
Do While i <= j
m = (i + j) \ 2
If m Mod 3 <> 0 Then m= m -2 '(1) 把m调整到三个一组的最后一个数的位置
If key = a(m) Then
search = m : Exit Do
ElseIf key < a(m) Then
j = m - 3
ElseIf key <= a(m - 2) Then '(2)
i = m + 1
ElseIf key = a(m - 2) Then
search = m - 2 : Exit Do
ElseIf key = a(m - 1) Then
search = m - 1 : Exit Do
Else
search = 0 : Exit Do
End If
Loop
If search <> 0 Then
Text2.Text = Str(search)
Else
Text2.Text = "找不到"
End If
End Sub
加框处代码应修改为：（1）【小题1】 （2）【小题2】
16.
小刘收集了“技术学科2017届、2018届选考成绩”相关数据，使用Excel处理，部分界面如图所示。
请回答以下问题：
（1）区域D4：D11的数据时用单元格D4中的公式自动填充得到，为了保证做到修改各档人数后“单档比例”任然正确，则D4单元格中输入的公式是【小题1】
（2）若要将各档数据按“累计比例差”升序排序，排序时应选择的数据区域【小题2】
（3）小刘为了对比2017、2018各档比例，制作了如第13题图b所示的图表
图表
请回答以下问题：
（1）区域D4：D11的数据时用单元格D4中的公式自动填充得到，为了保证做到修改各档人数后“单档比例”任然正确，则D4单元格中输入的公式是【小题1】
（2）若要将各档数据按“累计比例差”升序排序，排序时应选择的数据区域【小题2】
（3）小刘为了对比2017、2018各档比例，制作了如第13题图b所示的图表
| A． 可以将D4：D11中的公式复制并粘贴到H4开始区域，得到“2018届各档比例” |
| B． 各档数据按“累计比例差”升序排序后，图表中数据先后位置也会变化 |
| C． 将B4单元格的数值改为33，图中仅2017届“100人数”所对应的“柱形”变短 |
| D． 选择“A4:A11,D4:D11,H4:H11”作为数据区域，并对标题、图例进行设置，可生成上述 |
17.
用Flash软件制作多媒体作品，首先使用Photoshop软件处理图片，部分界面如图所示。请回答下列问题：
(注：全部选对的得2分，选对但不全的得1分，不选或有选错的得0分）
（3）声音素材完整播放一遍的时长为2分15秒，当动画播放结束后，若希望音乐能继续播放，则声音素材的同步方式不能设为【小题3】（填字母：
（4）舞台右下角的按钮到最后才出现，为了使按钮一开始就出现，应进行的操作是【小题4】。
（5）播放动画时，单击右下角的按钮能实现自动关闭动画，则该按钮上的动作脚本为【小题5】。
| A．可利用内容识别功能先去除右下角的文字。 |
| B．用魔棒工具选中白色背景，按Delete键删除，保存为png格式后导入Flash使用。 |
| C．也可用魔棒工具选中白色背景，将不透明度调整为0%，再保存为gif格式后导入Flash使用。 |
| D．若图像过大，可利用“画布大小”功能将花朵适当缩小。 |
| E．在作品设计时指明该图片素材通过网络获取，并用Photoshop软件处理,属于脚本编写。 |
| A．形状补间/ | B．动画补间）。 |
| A．数据流/ | B．事件/ | C．开始）。 |
（5）播放动画时，单击右下角的按钮能实现自动关闭动画，则该按钮上的动作脚本为【小题5】。
试卷分析
-
【1】题量占比
选择题:(12道)
填空题:(5道)
-
【2】：难度分析
1星难题：0
2星难题：0
3星难题：0
4星难题：0
5星难题：0
6星难题：0
7星难题：0
8星难题：0
9星难题：17