1.选择题- (共11题)
1.
现在用手机扫描二维码,可以获得各种商品信息、下载各类应用程序等。已知该二维码点阵图如图所示,它的规模为32×32,通过黑、白像素进行逐行编码,每个点用1个二进制位表示,如果用“0”表示白点,用“1”表示黑点,则以下描述正确的是


A.该编码的第1个字节的二进制编码是1111B |
B.存储该编码需要32×32个字节 |
C.该编码第一行编码需要2个字节 |
D.该编码的第一行的第2个字节的十六进制编码是25H |
2.
某日收到如图所示的微信短信,收到此条短信后正确的做法是


A.马上登陆微信,一直保持登录状态,防止他人登录成功 |
B.马上修改微信密码,提高安全等级 |
C.马上将手机换成samsung-GT-I9000 |
D.马上将手机关机 |
3.
使用Access软件创建的“图书”数据表,其设计视图和数据表视图的部分界面如图所示。
下列说法正确的是()


下列说法正确的是()
A.该数据表共有15条记录,在当前状态下若要快速浏览第12条记录,可在“搜索”处输入“12”,然后按回车键 |
B.在当前记录上选择右键菜单中的“新记录”命令,则新记录是第16条记录 |
C.可在当前数据表中添加一条如“5 高中三年我的奋斗我的梦和云峰 2018/3/27 28”的新记录 |
D.当前数据表中“书名”字段最多可以输入63999个字符 |
4.
用Word软件编辑某文档的部分界面如下图所示。

对于图中所示部分的文档,下列说法正确的是

对于图中所示部分的文档,下列说法正确的是
A.用户s1添加批注的对象为“闻” |
B.文档中,图片的环绕方式是“嵌入型” |
C.图中共有3处修订 |
D.若接收修订,最后一句话的显示为“是故无贵无贱,无长无少,道之所存,师之所存也。” |
6.
有如下VB程序段:
Dim a(1 To 10) As Integer
s = "7218634594": n = Len(s)
t = 0
For i = 1 To n - 1
a(i) = Val(Mid(s, i, 2))
Next i
For i = 1 To n - 2 Step 2
k = i
For j = i + 2 To n - 1 Step 2
If a(j) < a(k) Then k = j
Next j
If k <> i Then
temp = a(i): a(i) = a(k): a(k) = temp: t = t + 1
End If
Next i
Text1.Text = Str(t)
该程序段运行后,文本框Text1中显示的内容是
Dim a(1 To 10) As Integer
s = "7218634594": n = Len(s)
t = 0
For i = 1 To n - 1
a(i) = Val(Mid(s, i, 2))
Next i
For i = 1 To n - 2 Step 2
k = i
For j = i + 2 To n - 1 Step 2
If a(j) < a(k) Then k = j
Next j
If k <> i Then
temp = a(i): a(i) = a(k): a(k) = temp: t = t + 1
End If
Next i
Text1.Text = Str(t)
该程序段运行后,文本框Text1中显示的内容是
A.1 | B.2 |
C.3 | D.4 |
7.
有如下VB程序段:
Dim a(1 To 10) As Integer, i As Integer, j As Integer
a(1) = 1: a(2) = 1
For i = 3 To 5
a(i) = 1
For j = i - 1 To 2 Step -1
a(j) = a(j) + a(j - 1)
Next j
Next i
Text1.Text = Str(a(3))
该程序段运行后,在文本框Text1中显示的内容是
Dim a(1 To 10) As Integer, i As Integer, j As Integer
a(1) = 1: a(2) = 1
For i = 3 To 5
a(i) = 1
For j = i - 1 To 2 Step -1
a(j) = a(j) + a(j - 1)
Next j
Next i
Text1.Text = Str(a(3))
该程序段运行后,在文本框Text1中显示的内容是
A.1 | B.3 | C.4 | D.6 |
9.
小李使用Flash软件制作蝴蝶飞舞的动画,其部分界面如下图所示。

分析图中的信息,下列描述不正确的是( )

分析图中的信息,下列描述不正确的是( )
A.“图层1”中的动画是一个逐帧动画 |
B.“图层2”最后一帧没有延续该图层第1帧的画面内容 |
C.从第一帧播放到最后一帧的时间约为2秒 |
D.当前正在编辑“Main”场景中的“图层2” |
10.
用会声会影软件编辑影片,时间轴如下图所示

分析图中信息,下列说法错误的是

分析图中信息,下列说法错误的是
A.该影片中有3个视频素材、2个图片素材、2个音频素材 |
B.视频播放时,“I14.jpg”会遮挡“Ski_1.bmp”的部分图像 |
C.可在“Ski-V01.mpg”和“End.avi”之间添加转场效果 |
D.“The End”文字显示结束时,影片也正好结束 |
11.
小王用GoldWave软件编辑“背景音乐.wav”,界面如下图所示,在当前状态下。若执行“删除”与“插入10秒静音”两步操作后以原参数保存文件,则保存后的文件存储容量约为


A.3.36MB | B.5.05MB |
C.6.73MB | D.53.83MB |
2.填空题- (共6题)
12.
.浙江省统计局对主要市场进出口情况做了数据分析,界面如图a所示,请回答相关问题。

图a
(1)在C5单元格输入公式,然后采用自动填充的方式得到浙江出口额2013年占总比。复制C5:C12单元格数据后右击E5单元格,出现图b选择①或③可得到对应占总比,则E7单元格的公式为 。

图b
(2)为直观显示浙江省2013年、2014年对外出口情况,制作相应图表如图c所示,其数据区域是 。


图c 图d
(3)若要显示出口增长最快的3个市场,则可根据图d所示,选择 10个最大值 达到目的。若完成筛选,图c所示图表 (填:会/不会)发生变化。

图a
(1)在C5单元格输入公式,然后采用自动填充的方式得到浙江出口额2013年占总比。复制C5:C12单元格数据后右击E5单元格,出现图b选择①或③可得到对应占总比,则E7单元格的公式为 。

图b
(2)为直观显示浙江省2013年、2014年对外出口情况,制作相应图表如图c所示,其数据区域是 。


图c 图d
(3)若要显示出口增长最快的3个市场,则可根据图d所示,选择 10个最大值 达到目的。若完成筛选,图c所示图表 (填:会/不会)发生变化。
13.
如果一个正整数从左到右读与从右到左读是一样的,就称它为回文式数(简称回数),如图321。“回数猜想”的主要思想是,对任意正整数,若它不是回数,则按下列算法即可获得一个回数:
(1)把该整数的数字顺序颠倒,求得该数的逆序数;
(2)将该整数和其对应的逆序数相加;
(3)若相加结果不是回数,则将结果作为新的整数,返回步骤(1)。
小林按照上述算法,设计了验证回数猜想的VB程序(猜想次数不超过10次),程序功能如下:在文本框Text1中输入一个正整数,单击“验证”按钮(Command1),获取文本框Text1中的数,当该数不是回数时,采用回数猜想的方法进行验证,并在列表框List1中输出每次验证的过程,若验证成功或验证次数超过10次,则停止验证,最后在列表框List1中输出验证结果。程序运行效果如图所示。

实现上述功能的VB程序如下:
Private Sub Command1_Click()
Dim t As String, a As Long, b As Long
Dim count As Integer ' count用于存储回数猜想的验证次数
t = Text1.Text
count = 1
Do While Check(t) = False And count <= 10
a = Val(t)
① b=turn(t)
c = a + b
List1.AddItem Str(a) & " +" & Str(b) & " =" & Str(c)
count = count + 1
t = c
Loop
If Check(t) Then
List1.AddItem "验证成功!"
Else
List1.AddItem "10次内未验证成功!"
End If
End Sub
' 自定义函数Turn
Function Turn(x As String) As Long
Dim s As String, i As Integer
s = ""
For i = Len(x) To 1 Step -1
s = s & Mid(x, i, 1)
Next i
Turn = ② Val(s)
End Function
' 自定义函数Check,检查x是否为回文数
Function Check(x As String) As Boolean
Dim i As Integer
Check = True
For i = 1 To Len(x) \ 2 Step 1
If Mid(x, i, 1) <> ③ Then Check = False mid(x,len(x)+1-i,1)
Next i
End Function
(1)程序代码中,自定义函数Turn(x)的功能是求x的逆序数 。
(2)请在划线处填入合适代码。
(1)把该整数的数字顺序颠倒,求得该数的逆序数;
(2)将该整数和其对应的逆序数相加;
(3)若相加结果不是回数,则将结果作为新的整数,返回步骤(1)。
小林按照上述算法,设计了验证回数猜想的VB程序(猜想次数不超过10次),程序功能如下:在文本框Text1中输入一个正整数,单击“验证”按钮(Command1),获取文本框Text1中的数,当该数不是回数时,采用回数猜想的方法进行验证,并在列表框List1中输出每次验证的过程,若验证成功或验证次数超过10次,则停止验证,最后在列表框List1中输出验证结果。程序运行效果如图所示。

实现上述功能的VB程序如下:
Private Sub Command1_Click()
Dim t As String, a As Long, b As Long
Dim count As Integer ' count用于存储回数猜想的验证次数
t = Text1.Text
count = 1
Do While Check(t) = False And count <= 10
a = Val(t)
① b=turn(t)
c = a + b
List1.AddItem Str(a) & " +" & Str(b) & " =" & Str(c)
count = count + 1
t = c
Loop
If Check(t) Then
List1.AddItem "验证成功!"
Else
List1.AddItem "10次内未验证成功!"
End If
End Sub
' 自定义函数Turn
Function Turn(x As String) As Long
Dim s As String, i As Integer
s = ""
For i = Len(x) To 1 Step -1
s = s & Mid(x, i, 1)
Next i
Turn = ② Val(s)
End Function
' 自定义函数Check,检查x是否为回文数
Function Check(x As String) As Boolean
Dim i As Integer
Check = True
For i = 1 To Len(x) \ 2 Step 1
If Mid(x, i, 1) <> ③ Then Check = False mid(x,len(x)+1-i,1)
Next i
End Function
(1)程序代码中,自定义函数Turn(x)的功能是求x的逆序数 。
(2)请在划线处填入合适代码。
14.
编写“二进制加法”程序。程序运行时,在文本框 Text1 和文本框 Text2 分别输入两个二进制数,单击按钮 Command1 后在文本框 Text3 上输出两个二进制相加后的结果。程序运行如图所示。

(1)观察代码,触发代码执行的事件名是____________
(2)为实现上述功能,请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim b1 As String, b2 As String, ans As String, t As String
Dim dist As Integer, jw As Integer
b1 = Text1.Text: b2 = Text2.Text : ans=""

(1)观察代码,触发代码执行的事件名是____________
(2)为实现上述功能,请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim b1 As String, b2 As String, ans As String, t As String
Dim dist As Integer, jw As Integer
b1 = Text1.Text: b2 = Text2.Text : ans=""
__________________________
If dist < 0 Then
t = b1: b1 = b2: b2 = t: dist = -dist
End If
For i = 1 To dist
b2 = "0" + b2
Next i
jw = 0
For i = Len(b1) To 1 Step -1
x = Val(Mid(b1, i, 1)) + Val(Mid(b2, i, 1)) + jw
__________________________
ans = Str(x Mod 2) + ans
Next i
If ___________________
Text3.Text = ans
End Sub
15.
查找并删除重复数据的算法是基于顺序查找的优化,主要思路是把待查数据的起点元素设置成查找关键字,然后从后往前查找,通过结束时停留的数据位置来判断查找结果(即结束时若停留在数据序列的起点,表示数据序列中无重复数据;否则,存在重复数据,删除该数据后继续查找)。
编写VB程序,实现上述算法。程序功能如下:运行程序时,在列表框List1中显示数组a中的原始数据;单击“去重”按钮(Command1),查找数组a中的重复数据并删除,即相同的数据仅保留一个,并在列表框List2中输出去重后的数组a中的数据,同时在标签Label1中显示删除的数据总个数,运行效果如图所示。

实现上述功能的VB代码如下,但加框处代码有错,请改正。
Const maxn = 10
Dim a(1 To maxn) As Integer
Private Sub Form_Load()
' maxn个数据存储在数组a中,并在列表框List1中显示
' 代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, n As Integer 'n用于存储当前查找的数组长度
Dim j As Integer, key As Integer 'key用于存储本次查找关键字的数据位置
key = 1: n = maxn
Do While key <= n
Loop
If i = key Then '找到重复数据,删除;未找到,设定下一查找关键字
key = key + 1
Else
For j = i To n - 1
a(j) = a(j + 1)
Next j
n = n - 1
End If
Loop
For i = 1 To n
List2.AddItem a(i)
Next i
Label1.Caption = "共删除重复数据:" & Str(n) & " 个" '(2)
End Sub
编写VB程序,实现上述算法。程序功能如下:运行程序时,在列表框List1中显示数组a中的原始数据;单击“去重”按钮(Command1),查找数组a中的重复数据并删除,即相同的数据仅保留一个,并在列表框List2中输出去重后的数组a中的数据,同时在标签Label1中显示删除的数据总个数,运行效果如图所示。

实现上述功能的VB代码如下,但加框处代码有错,请改正。
Const maxn = 10
Dim a(1 To maxn) As Integer
Private Sub Form_Load()
' maxn个数据存储在数组a中,并在列表框List1中显示
' 代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, n As Integer 'n用于存储当前查找的数组长度
Dim j As Integer, key As Integer 'key用于存储本次查找关键字的数据位置
key = 1: n = maxn
Do While key <= n
i = n
Do While a(i) <> a(1) '(1)
i = i - 1Loop
If i = key Then '找到重复数据,删除;未找到,设定下一查找关键字
key = key + 1
Else
For j = i To n - 1
a(j) = a(j + 1)
Next j
n = n - 1
End If
Loop
For i = 1 To n
List2.AddItem a(i)
Next i
Label1.Caption = "共删除重复数据:" & Str(n) & " 个" '(2)
End Sub
16.
使用PhotoShop软件对“旅行.psd”进行处理,编辑界面如下图所示。

下列说法正确的是

下列说法正确的是
A.“旅行”图层添加了波纹滤镜效果 |
B.当前状态下,可直接删除“背景”图层 |
C.该图像采用RGB模式,每个像素用8位保存 |
D.按当前设置保存为jpg格式文件,“女孩”图层中的投影效果不会消失 |
17.
小明创作多媒体作品。使用 Photoshop 软件制作一张背景图片,然后使用 Flash 软件制作动画。
(1)在如图a所示的图层面板中,可直接添加滤镜的图层有_____(多选,填字母:
(2)在图a所示的状态下,小明用选框工具选中了其中的一只大雁,选择“编辑”菜单中的“粘贴”命令,则图层数量会 (填:增加/减少/不变)。
(3)在图b所示状态下,利用库中“文字”元件,在舞台中的“文字”图层制作补间动画,实现文字由远到近,淡入出现在舞台,这种动画属于___________动画。(选填:逐帧/形状补间/动画补间)。
()“蜻蜓”图层中的“蜻蜓”元件实例具有蜻蜓翅膀拍动效果,元件编辑的部分界面如图c所示。在测试影片时,发现蜻蜓翅膀拍动太慢。在不改变场景中其他对象动画播放速度的前提下,仅编辑“蜻蜓”元件,使蜻蜓翅膀拍动速度提高1倍的操作方法是_________________________。

图c
(4)测试影片,当前动画停在最后1帧(第 50 帧),并出现“播放”按钮,若要单击该按钮,能使影片跳转到“main”场景第1帧继续播放,则按钮需添加的动作是___________________。
图a 图b
请回答下列问题:(1)在如图a所示的图层面板中,可直接添加滤镜的图层有_____(多选,填字母:
A.“文字”图层/ | B.“大雁”图层/ | C.“花”图层/ | D.“荷叶”图层/ | E.“背景”图层)。(注:选对且选全得满分,不选或选错不得分,少选且选对得部分分。) |
(3)在图b所示状态下,利用库中“文字”元件,在舞台中的“文字”图层制作补间动画,实现文字由远到近,淡入出现在舞台,这种动画属于___________动画。(选填:逐帧/形状补间/动画补间)。
()“蜻蜓”图层中的“蜻蜓”元件实例具有蜻蜓翅膀拍动效果,元件编辑的部分界面如图c所示。在测试影片时,发现蜻蜓翅膀拍动太慢。在不改变场景中其他对象动画播放速度的前提下,仅编辑“蜻蜓”元件,使蜻蜓翅膀拍动速度提高1倍的操作方法是_________________________。

图c
(4)测试影片,当前动画停在最后1帧(第 50 帧),并出现“播放”按钮,若要单击该按钮,能使影片跳转到“main”场景第1帧继续播放,则按钮需添加的动作是___________________。
试卷分析
-
【1】题量占比
选择题:(11道)
填空题:(6道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:17