1.选择题- (共12题)
1.
下列说法正确的是
| A．书本不是信息，但文字是信息 |
| B．电视、广播技术是现代产生的信息技术 |
| C．制作网页时，删除网页中插入的图片源文件不会影响网页的显示效果 |
| D．在搜索引擎中输入关键词搜索信息时，本质上是检索搜索引擎的数据库 |
2.
使用 UltraEdit 软件观察字符的内码界面如下图所示，下列说法正确的是（ ）
| A．“D1 A1”是“选”字在计算机内存储和处理时的交换码 |
| B．VB 中表达式“考”>“加”输出结果为 True |
| C．字符“10”的十六进制码是“3A” |
| D．共有 5 个 ASCII 字符 |
3.
（加试题）以下 VB 程序段用插入排序的方法实现 10 个数据升序排序。
Dim tmp As Integer
Dim a(1 To 10) As Integer
Private Sub Form_Load
'随机生成 10 个不重复的数存入数组 a,代码略
End Sub
Private Sub Command1_Click
For i = 2 To 10
If a(i) < a(i- 1) Then tmp = a(i)
For j = ① To 1 Step -1 '依次后移
If tmp > a(j) Then Exit For
②
Next j
③ '插入数据
End If
Next i End Sub 要实现上述功能，方框①②③中的语句分别是（ ）
Dim tmp As Integer
Dim a(1 To 10) As Integer
Private Sub Form_Load
'随机生成 10 个不重复的数存入数组 a,代码略
End Sub
Private Sub Command1_Click
For i = 2 To 10
If a(i) < a(i- 1) Then tmp = a(i)
For j = ① To 1 Step -1 '依次后移
If tmp > a(j) Then Exit For
②
Next j
③ '插入数据
End If
Next i End Sub 要实现上述功能，方框①②③中的语句分别是（ ）
| A．i-1a(j+1)=a(j)a(j+1)=tmp |
| B．i-1a(j+1)=a(j)a(j)=tmp |
| C．10a(j)=a(j+1)a(j)=tmp |
| D．10a(j)=a(j+1)a(j+1)=tmp |
5.
使用Access软件打开数据库，部分界面如下图所示，下列说法正确的是（ ）
| A．“ID”字段被设置成主键，无法删除 |
| B．删除“性别”字段后，该删除操作可撤销 |
| C．“性别”字段的字段值在计算机中的存储空间为1B |
| D．该数据表共有5个字段，数据库名称为“运动员信息.accdb” |
6.
使用 word 软件编辑某文档，部分界面如下图所示：
下列说法正确的是（ ）
下列说法正确的是（ ）
| A．对第一行“闭幕式”添加批注，将出现批注[A3]: |
| B．删除第 2 处批注的内容，“批注[A2]:”也会被删除 |
| C．图中有 4 处修订，退出修订后，修订标记不会消失 |
| D．开启修订编辑文档时，将记录对文档的所有修改 |
8.
（加试题）有如下 VB 程序段：
i=1:j=10:p=1 f=False k=Int(Rnd*100)+0.5
Do While i<=j And Not f m=Fix((i+j)\2+0.5)
If k=a(m) Then f=True
ElseIf k<a(m) Then j=m-1:p=p+1
Else
i=m+1:p=p-1
End If Loop Label1.Caption=Str(p)
数组元素 a(1)到 a(10)的值依次为“5,16,22,28,35,43,52,67,78,89”，执行该程序段后，标签显示的值不可能是（ ）
i=1:j=10:p=1 f=False k=Int(Rnd*100)+0.5
Do While i<=j And Not f m=Fix((i+j)\2+0.5)
If k=a(m) Then f=True
ElseIf k<a(m) Then j=m-1:p=p+1
Else
i=m+1:p=p-1
End If Loop Label1.Caption=Str(p)
数组元素 a(1)到 a(10)的值依次为“5,16,22,28,35,43,52,67,78,89”，执行该程序段后，标签显示的值不可能是（ ）
| A．-3 |
| B．-1 |
| C．1 |
| D．3 |
9.
用 Flash 制作动画作品，其中一个场景的部分时间轴及声音属性界面如下图所示，“按钮”图层 最后一帧设置了 stop;动作命令，下列说法正确的是（ ）
| A．可在标题图层第 1 帧添加文字“亚运会” |
| B．测试场景时，将看不到背景图层内容 |
| C．该场景动画播放结束时，声音也停止播放 |
| D．“旗手”图层的两段补间动画为同一种类型的动画 |
10.
使用 Photoshop 制作“亚运会宣传海报”作品，部分界面如下图所示，下列说法不．正．确．的是（ ）
| A．“背景”图层可以设置滤镜效果 |
| B．可通过“自由变换”缩小“会徽”图层中的内容 |
| C．将该作品保存为 JPG 格式时，小羊图层的内容不显示 |
| D．拷贝“2018 亚运会”的图层样式并粘贴到“雅加达”图层，则“雅加达”图层的图层样式有投影、外发光 |
11.
使用 GoldWave 软件打开某音频文件，下列说法正确的是（ ）
| A．把该音频文件名“music.wav”重命名为“music.mp3”实现了声音的有损压缩 |
| B．粘贴一段时长为 20 秒的音频，声音的总时长不变 |
| C．执行“剪裁”操作，右声道第 20 秒到 1 分 40 秒变为静音 |
| D．执行“淡出”操作后，音频的采样频率和量化位数都不变 |
12.
小明通过访问“https://mail.qq.com”,登录自己的邮箱并成功发送了一封邮件给老师，此过程中未涉及的协议是（ ）
| A．POP3 |
| B．HTTPS |
| C．TCP/IP |
| D．SMTP |
2.填空题- (共5题)
13.
小李收集了高三某班部分同学选考成绩，并使用 Excel 软件进行数据处理，如下图所示。
图1
（1）在 M13 单元格中使用 COUNTIF 函数统计区域 M3：M12 中选考总分大于 261 的个数，则 M13单元格中的公式是_____。
（提示：COUNTIF 函数用于统计某个区域满足条件的单元格个数。例如：＝COUNTIF（B4：B20，"<100"）表示在数据区域 B4：B20 中统计数值小于 100 的单元格个数。）
（2）第 13 行平均分数据是利用 AVERAGE 函数计算所得，若删除 D3:D12 区域的数据，则 D13单元格中将显示_____。（填字母：
（3）根据图1 中数据制作图2 图表，创建图表的数据区域是_____。
（4）将图1 数据进行筛选，设置 “技术选考”和“选考总分”的筛选方式均如图 3 所示，则筛选 出的同学有_____位。
图2 图 3
图1
（1）在 M13 单元格中使用 COUNTIF 函数统计区域 M3：M12 中选考总分大于 261 的个数，则 M13单元格中的公式是_____。
（提示：COUNTIF 函数用于统计某个区域满足条件的单元格个数。例如：＝COUNTIF（B4：B20，"<100"）表示在数据区域 B4：B20 中统计数值小于 100 的单元格个数。）
（2）第 13 行平均分数据是利用 AVERAGE 函数计算所得，若删除 D3:D12 区域的数据，则 D13单元格中将显示_____。（填字母：
| A．0 / | B．#DIV/0! / | C．#REF! / | D．#VALUE!） |
（4）将图1 数据进行筛选，设置 “技术选考”和“选考总分”的筛选方式均如图 3 所示，则筛选 出的同学有_____位。
图2 图 3
14.
编写 VB 程序，实现如下功能：在文本框 Text1 中输入十进制数，文本框 Text2 中输入待转换进 制（范围 2～16），单击“转换”按钮 Command1，在列表框 List1 中输出该整数对应的进制转换结 果，运行效果如下图所示。
（1）要修改窗体中各对象字体为粗体，可选中对象后在属性窗口中设置________________属性。
（2）请在划线处填入合适的代码。
Private Sub Command1_Click
Const code = "0123456789ABCDEF" Dim s As String
Dim x As Long, r As Integer r = Val(Text2.Text)
If ①_____Then
x = Val(Text1.Text)
s = ""
Do While x > 0 y = x Mod r
x = x \ r
s =②___
Loop
List1.AddItem "(" & Text1.Text & ")10" & "=(" & s & ")" & r
Else
MsgBox "请重新输入数据" End If
End Sub
（3）重新运行程序，若在文本框 Text1 中输入“255”，文本框 Text2 中输入“8”，单击“转换” 按钮后，列表框 List1 中显示的内容是_____。
（1）要修改窗体中各对象字体为粗体，可选中对象后在属性窗口中设置________________属性。
（2）请在划线处填入合适的代码。
Private Sub Command1_Click
Const code = "0123456789ABCDEF" Dim s As String
Dim x As Long, r As Integer r = Val(Text2.Text)
If ①_____Then
x = Val(Text1.Text)
s = ""
Do While x > 0 y = x Mod r
x = x \ r
s =②___
Loop
List1.AddItem "(" & Text1.Text & ")10" & "=(" & s & ")" & r
Else
MsgBox "请重新输入数据" End If
End Sub
（3）重新运行程序，若在文本框 Text1 中输入“255”，文本框 Text2 中输入“8”，单击“转换” 按钮后，列表框 List1 中显示的内容是_____。
15.
（加试题）对 n 个互不相同的整数（整数的最大值不超过 m）进行排序，排序要求如下：①奇 数在前，偶数在后；②奇数升序排序；③偶数降序排序。小刘用 VB 编写了实现上述功能的程序。 程序运行时，自动产生 n 个不同的随机数存储在数组 a 中，并在列表框 List1 中显示。单击按钮 Command1 后，按要求在列表框 List2 中输出排序后的结果。
实现上述功能的 VB 程序如下，但加框处代码有错，请改正。
Const n = 15
Const m = 100 '整数的最大值
Dim a(1 To n) As Integer
Private Sub Form_Load
'本过程产生 n 个不同随机数存储在数组 a 中，并在列表框 List1 中显示
End Sub
Private Sub Command1_Click Dim i As Integer
Dim flag(1 To m) As Boolean 'flag(i) = True 代表数组 a 中存在值为 i 的元素
For i = 1 To m flag(i) = False
Next i
For i = 1 To n
flag(i) = True
①________
Next i
For i = 1 To m-1 Step 2
If flag(i) Then List2.AddItem Str(i) Next i
For i =2 To m
②________
If flag(i) Then List2.AddItem Str(i) Next i
End Sub
实现上述功能的 VB 程序如下，但加框处代码有错，请改正。
Const n = 15
Const m = 100 '整数的最大值
Dim a(1 To n) As Integer
Private Sub Form_Load
'本过程产生 n 个不同随机数存储在数组 a 中，并在列表框 List1 中显示
End Sub
Private Sub Command1_Click Dim i As Integer
Dim flag(1 To m) As Boolean 'flag(i) = True 代表数组 a 中存在值为 i 的元素
For i = 1 To m flag(i) = False
Next i
For i = 1 To n
flag(i) = True
①________
Next i
For i = 1 To m-1 Step 2
If flag(i) Then List2.AddItem Str(i) Next i
For i =2 To m
②________
If flag(i) Then List2.AddItem Str(i) Next i
End Sub
16.
（加试题）小明编写了一个求真分数精确值的 VB 程序。程序运行时，在文本框 Text1 中输入被 除数，在文本 Text2 中输入除数，并保证被除数小于除数，单击“计算”按钮 Command1，在 标签 Label3 中显示结果。如果无限小数的小数点后，从某一位起向右进行到某一位止的一节数 字循环出现，首尾衔接，称这种小数为循环小数，这一节数字称为循环节。如果商为循环小数 保留一个循环节，否则最多计算到第 20 位。 程序运行界面如下图所示。
（1）运行程序，在文本框 Text1 中输入被除数 13，在文本框 Text2 中输入除数 99，单击“计算”按钮 Command1，在标签 Label3 中显示的结果是_____。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Dim a(1 To 20) As Integer, b(1 To 20) As Integer
Private Sub Command1_Click
Dim m As Integer, n As Integer, pa As Integer, pb As Integer
Dim flag As Boolean, s As String m = Val(Text1.Text)
n = Val(Text2.Text)
s = Str(m) + "/" + Str(n) + " = " s = s + "0."
pa = 1: pb = 1: flag = True b(1) = m
m = m * 10
Do While pa <= 20 And flag = True a(pa) = m \ n
If a(pa) > 0 Then pb = pb + 1
①________
m= b(pb)*10
Else
m = m * 10
End If
flag = Jud(pb)
If b(pb) = 0 Then flag = False s =②_________
pa = pa + 1
Loop
Label3.Caption = s
End Sub
Function Jud(x As Integer) As Boolean
Dim i As Integer
For i = 1 To x - 1
If③________Then
Jud = False
Exit Function '退出自定义函数
End If
Next i
Jud = True
End Function
（1）运行程序，在文本框 Text1 中输入被除数 13，在文本框 Text2 中输入除数 99，单击“计算”按钮 Command1，在标签 Label3 中显示的结果是_____。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Dim a(1 To 20) As Integer, b(1 To 20) As Integer
Private Sub Command1_Click
Dim m As Integer, n As Integer, pa As Integer, pb As Integer
Dim flag As Boolean, s As String m = Val(Text1.Text)
n = Val(Text2.Text)
s = Str(m) + "/" + Str(n) + " = " s = s + "0."
pa = 1: pb = 1: flag = True b(1) = m
m = m * 10
Do While pa <= 20 And flag = True a(pa) = m \ n
If a(pa) > 0 Then pb = pb + 1
①________
m= b(pb)*10
Else
m = m * 10
End If
flag = Jud(pb)
If b(pb) = 0 Then flag = False s =②_________
pa = pa + 1
Loop
Label3.Caption = s
End Sub
Function Jud(x As Integer) As Boolean
Dim i As Integer
For i = 1 To x - 1
If③________Then
Jud = False
Exit Function '退出自定义函数
End If
Next i
Jud = True
End Function
17.
小明要创作雅加达亚运会的多媒体作品，他首先使用 Photoshop 软件处理图片，然后使用 Flash制作动画，请回答下列问题：
图 1
（1）如图 1所示，要将乒乓球拍之外的背景区域去除，使之透明。为保持透明效果，则另存为文 件时，选择的文件类型可以是________多选，填字母：
图2
（2）如图 2 所示，在“乒乓”图层第 20 帧右键单击选择“创建补间动画”，发现库中自动生成“补间 1”、“补间 2”图形元件，可能的原因是_______________________________。
图3
（3）按钮“Exit”制作界面如图 c 所示，则“Exit”按钮________（填：能/不能）响应鼠标事件； 测试影片时，单击“Exit”按钮跳转到“片尾”场景第 1 帧开始播放并停止音乐，则“Exit” 按钮的脚本命令为 On(release){__________________________________________}。
（4）如果将动画播放速度变为原来的 4/3 倍，可以设置帧频为____________fps。测试场景时， Flash 会导出一个名为______________________________________的文件。
图 1
（1）如图 1所示，要将乒乓球拍之外的背景区域去除，使之透明。为保持透明效果，则另存为文 件时，选择的文件类型可以是________多选，填字母：
| A．JPG / | B．PNG / | C．BMP / | D．GIF / E.TIF） |
图2
（2）如图 2 所示，在“乒乓”图层第 20 帧右键单击选择“创建补间动画”，发现库中自动生成“补间 1”、“补间 2”图形元件，可能的原因是_______________________________。
图3
（3）按钮“Exit”制作界面如图 c 所示，则“Exit”按钮________（填：能/不能）响应鼠标事件； 测试影片时，单击“Exit”按钮跳转到“片尾”场景第 1 帧开始播放并停止音乐，则“Exit” 按钮的脚本命令为 On(release){__________________________________________}。
（4）如果将动画播放速度变为原来的 4/3 倍，可以设置帧频为____________fps。测试场景时， Flash 会导出一个名为______________________________________的文件。
试卷分析
-
【1】题量占比
选择题:(12道)
填空题:(5道)
-
【2】：难度分析
1星难题：0
2星难题：0
3星难题：0
4星难题：0
5星难题：0
6星难题：0
7星难题：0
8星难题：0
9星难题：17