1.选择题- (共12题)
1.
某 Access 数据表的结构如图所示:

下列说法正确的是( )

下列说法正确的是( )
A.录入记录时,可手工输入“职工编号” |
B.该数据表的名称为“职工表.accdb” |
C.存储“党员”该字段值需要 1 字节 |
D.输入记录时,“工资”字段值可以直接输入 3200 |
2.
小柯使用 Word 字处理软件,在“修订”模式下对某文档进行了修改,修改情况如图所示:

下列说法不正确的是( )

下列说法不正确的是( )
A.接受所有修订后,第 5 行文字变更为“„感知是指理想的 VR 应该具有一切人所具有的感知。„” |
B.在当前修订状态下,即使删除 Virtual Reality,第 1 个批注也不会被删除 |
C.当前一共有 2 个用户添加了批注 |
D.正文中“作出”下面划有波浪线,说明使用了拼写和语法功能 |
3.
通过“百度软件中心”下载百度网盘 PC客户端,如下图所示:

该软件,下列说法不正确的是( )

该软件,下列说法不正确的是( )
A.该软件的评价方式采用了统计评价和个人推荐 |
B.该软件已被下载 713 万余次 |
C.该软件支持 WIN10 操作系统 |
D.该软件大小为 21.7MB |
4.
小飞同学最近购买了一款华为 B3 智能手环,戴上手环后,手环记录了小飞同学每天的运动步数,并能通 过微信朋友圈与好友分享运动数据,互相点赞。这一案例体现了信息的什么特征?()
A.真伪性 |
B.共享性 |
C.时效性 |
D.可加工处理性 |
6.
有如下 Visual Basic 程序段:
x = 10
For i=1 to 10 step 3
x = 10
For i=1 to 10 step 3
x=x+i
Next i 该程序段运行后, 变量 x 的值为()。A.14 |
B.20 |
C.26 |
D.32 |
7.
(加试题)有如下程序段:
c=0
For i=1 to 5
f=False
For j=1 to 6-i
If a(j) > a(j+1) Then
f=True : c=c+1
t=a(j) : a(j)=a(j+1) : a(j+1)=t
End If
Next j
If f=False Then Exit For Next i
数组元素 a(1)到 a(6)的值依次为“19,65,27,53,48,36”,经过该程序段“加工”后,变量 c 的值为( )
c=0
For i=1 to 5
f=False
For j=1 to 6-i
If a(j) > a(j+1) Then
f=True : c=c+1
t=a(j) : a(j)=a(j+1) : a(j+1)=t
End If
Next j
If f=False Then Exit For Next i
数组元素 a(1)到 a(6)的值依次为“19,65,27,53,48,36”,经过该程序段“加工”后,变量 c 的值为( )
A.5 |
B.6 |
C.7 |
D.8 |
8.
(加试题)有一组数据分别为“8,11,17,25,29,30,31,46”用对分查找和顺序查找数据 31 的过程中,两种 方法都能访问到的数字是( )
A.11 |
B.17 |
C.29 |
D.30 |
9.
AlphaGo 与李世石的人机围棋大战吸引了全世界的关注,某同学要制作一个关于 AlphaGo 的 PPT 课件用 于展示,他将课件分为“开发团队”、“AlphaGo 简介”、“李世石简介”、“战况分析”、“人工智能”五部分, 请问这个过程属于( )
A.脚本编写 |
B.规划设计 |
C.应用需求分析 |
D.创作需求分析 |
10.
使用 Flash 软件编辑按钮元件,部分界面如图所示:

下列说法正确的是( )

下列说法正确的是( )
A.舞台上该按钮的实例名是“再看一次” |
B.文字图层的文字“replay”需要分离 6 次变为形状 |
C.测试影片,当鼠标经过按钮时,会有声音响起 |
D.该按钮元件产生的实例无法响应鼠标事件 |
11.
(加试题)使用 GoldWave 对某一音乐文件进行编辑,部分操作界面如图所示,执行“剪裁”操作后以 原参数保存文件,则保存后的文件存储容量约为( )


A.5.5MB |
B.3.7MB |
C.1.8MB |
D.27.6MB |
12.
使用 PhotoShop 制作一个非常漂亮的按钮,其历史记录面板如图所 示:下列说法不正确的是( )


A.圆角矩形所在图层添加了图层样式 |
B.该图像的编辑过程中未使用滤镜效果 |
C.对图像操作过程中进行了撤销 |
D.该图像操作后,只有 3 个图层 |
2.填空题- (共5题)
13.
小明制作了一张 2017 年 2 至 7 月份商品房销售统计图表,在 EXCEL 的统计制作结果如下图:

(1)图 1 中单元格 G1、G3 显示为“#####”,试分析原因:________(选填:
(2)该图中商品房销售面积累计值(万平方米)=商品房现房销售面积累计值(万平方米)+商品房期房 销售面积累计值(万平方米)。图中 B4 单元格的计算结果是通过 B3 单元格智能填充而来,由此可以推断 B3 单元格的计算公式为____________。
(3)小明通过图1的数据制作了图表“2017年商品房期房、现房销售对照”,如图 2,请写出制作该图表的数据区域:____________。

(1)图 1 中单元格 G1、G3 显示为“#####”,试分析原因:________(选填:
A.除数为零; | B.数据被隐藏; | C.G 列单元格太窄) |
(3)小明通过图1的数据制作了图表“2017年商品房期房、现房销售对照”,如图 2,请写出制作该图表的数据区域:____________。

14.
(加试题)哥德巴赫 1742 年给欧拉的信中哥德巴赫提出了以下猜想:任一大于 2 的偶数都可写成两个 质数之和。下列 V

为实现上述功能程序如下,但加框处的代码有误,请改正。
Private Sub Command1Click()
Dim n As Integer
Dim i As Integer, c As Integer
n = Val(Text1.Text)
List1.Clear
c = 0
If n Mod 2 = 0 Then
For i = 2 To n ________
If is Prime(i) Then ________
List1.AddItem n & "=" & i & "+" & n - i
c = c + 1
End If
Next i
Label2.Caption = "共有" & c & "种组合"
Else
Label2.Caption = "请输入一个大于 2 的偶数"
End If
End Sub
Function is Prime(x As Integer) As Boolean
Dim i As Integer
Is Prime = True
For i = 2 To Int(Sqr(x))
If x Mod i = 0 Then
Is Prime = False
Exit For
End If
Next i
End Function
A.程序的功能即验证哥德巴赫猜想。程序运行时,在文本框 Text1 中输入一个大于 2 的偶 数,单击“证明”按钮 Command1 后,在列表框 List1 中输出所有符合猜想的组合,在标签 Label2 中输出 共有多少个组合。程序运行效果如下图所示。 |

为实现上述功能程序如下,但加框处的代码有误,请改正。
Private Sub Command1Click()
Dim n As Integer
Dim i As Integer, c As Integer
n = Val(Text1.Text)
List1.Clear
c = 0
If n Mod 2 = 0 Then
For i = 2 To n ________
If is Prime(i) Then ________
List1.AddItem n & "=" & i & "+" & n - i
c = c + 1
End If
Next i
Label2.Caption = "共有" & c & "种组合"
Else
Label2.Caption = "请输入一个大于 2 的偶数"
End If
End Sub
Function is Prime(x As Integer) As Boolean
Dim i As Integer
Is Prime = True
For i = 2 To Int(Sqr(x))
If x Mod i = 0 Then
Is Prime = False
Exit For
End If
Next i
End Function
15.
编写“因子分解”程序,实现如下功能:在文本框 Text1 中输入一个大于 1 的正整数,单击“求因子” 按钮 Command1,在列表框 List1 中显示该数的所有因子,以及所有因子之和。程序运行界面如图所示。

(1)代码“Private Sub Command1Click()”中的 Command1Click 是________。
(单选,填字母:
(2)实现上述功能的 VB程序如下,请在划线处填入合适的代码。
Private Sub Command1Click()
Dim sum As Integer
Dim n As Integer, i As Integer
n = Val(Text1.Text)
List1.Clear
sum = 1
List1.AddItem Str(sum)
For i = 2 To Int(Sqr(n))
If ①________Then
sum = sum + i
List1.AddItem Str(i)
If i <> n / i Then
sum = ②_____
List1.AddItem Str(n / i)
End If
End If
Next i
List1.AddItem Str(n) + "的所有因子之和是" + Str(sum)
End Sub
(3)运行该程序,在文本框中输入 9,单击“求因子”按钮后,所有因子之和是________。

(1)代码“Private Sub Command1Click()”中的 Command1Click 是________。
(单选,填字母:
A.对象名 | B.事件名 | C.事件处理过程名) |
Private Sub Command1Click()
Dim sum As Integer
Dim n As Integer, i As Integer
n = Val(Text1.Text)
List1.Clear
sum = 1
List1.AddItem Str(sum)
For i = 2 To Int(Sqr(n))
If ①________Then
sum = sum + i
List1.AddItem Str(i)
If i <> n / i Then
sum = ②_____
List1.AddItem Str(n / i)
End If
End If
Next i
List1.AddItem Str(n) + "的所有因子之和是" + Str(sum)
End Sub
(3)运行该程序,在文本框中输入 9,单击“求因子”按钮后,所有因子之和是________。
16.
(加试题)猴子选大王的问题:N 只猴子选大王,选举办法如下:从头到尾 1、2、3 报数,凡报 3 的退 出,余下的从尾到头 1、2、3 报数,还是报 3 的退出,依此类推;当剩下只有两只猴子时,不再报数,取 当前报数报 1 的为王。如五只猴子报数,则第一轮顺序为第 12345,第 3 只出列,第二轮顺序为 5421,第 2只出列;第三轮顺序为 145,第 5 只出列,这时第 1 只猴子报数为 1,则第 1 只猴子为猴王。若想当猴王, 请问最初占据什么位置?在 Text1 文本框中输入参选大王的猴子总数量,单击“猴王的位置”,在 Label2 标 签上显猴王最初的位置。VB程序运行界面如下:

实现上述功能的 VB程序如下:
(1)如果只有 10 只猴子参加本次选大王,则猴王最初的位置为:________
(2)实现上述功能的 VB程序如下,请在划线处填入合适代码。
Private Sub Command1Click()
Dim n, x, m, s As Integer '假设参与的猴子数量不超过 5000
Dim a(1 To 5000) As Integer '用数组 a 存储每只猴子的报数,值为 3 时视同出列
Dim t, y As Boolean 't 用于循环,y 为 true 时表示报数顺序是从头到尾,y 为 false 时报数顺序 是从尾到头
n = Val(Text1.Text)
x = 1 'x 为每次猴子的位置
m = 1 'm 为报数的 1、2、3
y = True
t = True
Do While t
'该位置的猴子是否已经出列
If a(x) <> 3 Then '没有出列的,则报数
a(x) = m
①________ '1,2,3 之后重新开始
If m > 3 Then m = 1
Else '每次有猴子报 3 出列之后,检查是否已经只有两只猴子没有出列
s = 0
For i = 1 To n
If ②________ Then s = s + 1
Next i
If s < 3 Then Exit Do
End If
If y = True Then x = x + 1 Else x = x - 1
'检查报数是在递增,还是递减,y 为 true 时递增
'报到最后一次猴子后
If x > n Then y = False: m = 1: x = n
'报到第一次猴子后
If x = 0 Then y = True: m = 1:
Loop
'输出猴王的位置
For i = 1 To n
③_________
If a(i) = 1 Then Label2.Caption = "猴王的位置为第" + Str(i) + " 只"
Next i
End Sub

实现上述功能的 VB程序如下:
(1)如果只有 10 只猴子参加本次选大王,则猴王最初的位置为:________
(2)实现上述功能的 VB程序如下,请在划线处填入合适代码。
Private Sub Command1Click()
Dim n, x, m, s As Integer '假设参与的猴子数量不超过 5000
Dim a(1 To 5000) As Integer '用数组 a 存储每只猴子的报数,值为 3 时视同出列
Dim t, y As Boolean 't 用于循环,y 为 true 时表示报数顺序是从头到尾,y 为 false 时报数顺序 是从尾到头
n = Val(Text1.Text)
x = 1 'x 为每次猴子的位置
m = 1 'm 为报数的 1、2、3
y = True
t = True
Do While t
'该位置的猴子是否已经出列
If a(x) <> 3 Then '没有出列的,则报数
a(x) = m
①________ '1,2,3 之后重新开始
If m > 3 Then m = 1
Else '每次有猴子报 3 出列之后,检查是否已经只有两只猴子没有出列
s = 0
For i = 1 To n
If ②________ Then s = s + 1
Next i
If s < 3 Then Exit Do
End If
If y = True Then x = x + 1 Else x = x - 1
'检查报数是在递增,还是递减,y 为 true 时递增
'报到最后一次猴子后
If x > n Then y = False: m = 1: x = n
'报到第一次猴子后
If x = 0 Then y = True: m = 1:
Loop
'输出猴王的位置
For i = 1 To n
③_________
If a(i) = 1 Then Label2.Caption = "猴王的位置为第" + Str(i) + " 只"
Next i
End Sub
17.
使用 Flash 软件制作“我的动画我作主.fla”作品,其“首页”场景相关窗口截图如下图(图 1、图 2) 所示。


(1)在测试该动画时,发现动画播放时间太短。要求将动画播放时间延长至原来的 2 倍,应该将帧频修改 为________fps。
(2)从图 2 的设置要求可以看出,该动画在播放完“首页”场景进入下一个场景时,“作者”图层的音乐会____________。(选填:停止播放/继续播放)
(3)图 1 中“标题”图层的动画播放正常,第一帧中的实例是由库中的元件“我的动画我作主”生成的, 由此可以判断该动画是____________。(选填:形状补间/动画补间/逐帧动画)
(4)图 1 中“背景”图层的图片仅延续到第 24 帧。要求该图片在动画播放过程中一直显示。请写出解决 问题的方法________。
(5)该动画在播放时,播放完“首页”场景最后一帧后直接进入了下一个场景。要求动画播放至“首页” 场景最后一帧时停止播放。可以在“________”图层的第 40 帧添加脚本________命令。


(1)在测试该动画时,发现动画播放时间太短。要求将动画播放时间延长至原来的 2 倍,应该将帧频修改 为________fps。
(2)从图 2 的设置要求可以看出,该动画在播放完“首页”场景进入下一个场景时,“作者”图层的音乐会____________。(选填:停止播放/继续播放)
(3)图 1 中“标题”图层的动画播放正常,第一帧中的实例是由库中的元件“我的动画我作主”生成的, 由此可以判断该动画是____________。(选填:形状补间/动画补间/逐帧动画)
(4)图 1 中“背景”图层的图片仅延续到第 24 帧。要求该图片在动画播放过程中一直显示。请写出解决 问题的方法________。
(5)该动画在播放时,播放完“首页”场景最后一帧后直接进入了下一个场景。要求动画播放至“首页” 场景最后一帧时停止播放。可以在“________”图层的第 40 帧添加脚本________命令。
试卷分析
-
【1】题量占比
选择题:(12道)
填空题:(5道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:17