1.选择题- (共12题)
1.
使用Access软件创建的“动漫作品”数据表,其设计视图的部分界面如图所示。下列说法正确的是


A.该数据表中,不会有两条记录的“编号”字段值相等 |
B.在“发行时间”字段中可以输入“二十五日” |
C.“价格”字段的内容只能是整数 |
D.“编号”字段不能删除 |
3.
用Word编辑某文档,操作界面如图所示。

则以下说法正确的是

则以下说法正确的是
A.文档中共有3处修订 |
B.图中2处批注分别由用户x1和x2添加 |
C.拒绝所有修订后,图中的批注都将被删除 |
D.接受所有修订后,加框处内容为“行酒令的方式五花八门” |
5.
(加试题)有如下VB程序段:
i = 1: j = 10:x=18
Do While i<= j
m = Int((i + j) / 2)
If x = f(m) Then Exit Do
If x <f(m) Then j = m - 1 Else i = m + 1
Loop
数组元素f(1)到f(10)的值依次为: 2,7,8,10,12,13,16,18,19,20,该程序段运行后,下列表达式值为True的是
i = 1: j = 10:x=18
Do While i<= j
m = Int((i + j) / 2)
If x = f(m) Then Exit Do
If x <f(m) Then j = m - 1 Else i = m + 1
Loop
数组元素f(1)到f(10)的值依次为: 2,7,8,10,12,13,16,18,19,20,该程序段运行后,下列表达式值为True的是
A.i=m+1 |
B.j=m-1 |
C.j>m+1 |
D.i>m-1 |
6.
(加试题)有如下VB程序段:
i = 1
Do While i<= 3
数组元素 a(1)到 a(6)的值依次为7、8、3、9、6、2,则该程序段运行后,数组元素a(1)到 a(6)的值依次是
i = 1
Do While i<= 3
min = i
j = i + 1
Do While j <= 6
If a(j) < a(min) Then min = j
j = j + 1
Loop
If i<>min Then tmp = a(i): a(i) = a(min): a(min) = tmp
i = i + 1
Loop数组元素 a(1)到 a(6)的值依次为7、8、3、9、6、2,则该程序段运行后,数组元素a(1)到 a(6)的值依次是
A.9,8,7,3,6,2 |
B.2,3,6,7,8,9 |
C.2,3,6,9,8,7 |
D.9,8,7,6,3,2 |
7.
用GoldWave软件编辑某音频文件,部分界面如图所示。

下列说法正确的是

下列说法正确的是
A.将声音另存为MP3格式,文件容量不变 |
B.当前状态下,单击“删除”按钮,该音频文件时长为原来的一半 |
C.当前状态下,单击“剪裁”按钮,保存后的声音文件容量不变 |
D.执行静音操作后直接保存文件,保存后的声音存储容量约为原文件容量的一半 |
9.
(加试题)将如图所示的“照片.bmp”按照15:1的压缩比转换成小于60KB的JPEG格式文件,在保持图像宽高等比缩放且其他参数不变的情况下,该图像尺寸应调整为


A.768×1024 |
B.600×800 |
C.450×600 |
D.400×400 |
10.
利Photoshop软件制作作品,部分编辑界面如图所示。


以下说法正确的是


以下说法正确的是
A.“文字”图层添加了滤镜效果 |
B.可以将“文字”图层中“印象西湖”的字体修改为隶书 |
C.“文字”图层中的文字不能完整显示是因为被“花朵1”图层的内容遮挡 |
D.将“花朵2”图层移动到“花朵1”图层的下方,不会改变图像的显示效果 |
2.填空题- (共5题)
13.
小明收集了关于2015年12月中国部分省市各项专利情况的数据,并用Excel软件进行数据处理,部分界面如图1所示:

图1
请回答下列问题:(1)“发明占比%”是指各省份的发明专利数占发明专利合计的比例,其中区域E6:E14中的数据由E5利用自动填充功能得到,则E6单元格中的公式是________ 。
(2)小明发现,“外观专利”列的数据顺序与其相应的序号不符,需要对其进行排列,则排序时应该选择的数据区域是________ 。
(3)小明对“发明占比%”列数据进行筛选操作,筛选设置如图2所示,同时对“新型占比%”列也设置了和“发明占比%”列相同的筛选设置,则按此设置筛选出的记录有___条。

图2
(4)根据图1中的数据制作的图表如图3所示,为在饼图中显示不同扇形区域对应的数值,可以选择图3快捷菜单中的________功能实现。

图3

图1
请回答下列问题:(1)“发明占比%”是指各省份的发明专利数占发明专利合计的比例,其中区域E6:E14中的数据由E5利用自动填充功能得到,则E6单元格中的公式是________ 。
(2)小明发现,“外观专利”列的数据顺序与其相应的序号不符,需要对其进行排列,则排序时应该选择的数据区域是________ 。
(3)小明对“发明占比%”列数据进行筛选操作,筛选设置如图2所示,同时对“新型占比%”列也设置了和“发明占比%”列相同的筛选设置,则按此设置筛选出的记录有___条。

图2
(4)根据图1中的数据制作的图表如图3所示,为在饼图中显示不同扇形区域对应的数值,可以选择图3快捷菜单中的________功能实现。

图3
14.
(加试题)某数据解密方法描述如下:对输入的密文(由英文字母或阿拉伯数字组成的字符串)进行解密,解密后输出明文。解密时对密文中的每个字符进行如下处理:
(1)将该字符的ASCII码转换成对应的8位二进制;
(2)将对应的8位二进制数进行按位取反(1变0,0变1);
(3)将产生的8位二进制数循环左移2次;

图a
(4)将最后产生的8位二进制数转换成对应的十六进制数。
例如,密文小写字母“d”通过上述解密算法解密后生成的明文是“6E”,信息加密过程如图b所示。

图b
实现上述功能的VB程序如下:在文本框Text1中输入密文,单击“解密”按钮Command1,程序对密文数据依次进行解密处理,在文本框Text2中显示解密后生成的明文。程序运行界面如图c所示。

图c
实现上述功能的VB程序如下,请问答下列问题:
(1)如果输入密文为小写字母“a”,则解密后得到的明文是 ______________。
(2)请在划线处填入合适代码。
Function jiemi(m As String) As String '将4位二进制数转换成相应的十六进制数
Dim k As Integer, i As Integer
Dim str As String
str = "0123456789ABCDEF"
k = 0
For i = 1 To 4
①_______
End Function
Private Sub Command1_Click()
Dim ans As String, s As String, ch As String, ret As String
Dim s1 As String, s2 As String
Dim i As Integer, m As Integer, asc1 As Integer, n As Integer
s = Text1.Text
ans = ""
For i = 1 To Len(s)
ch = Mid(s, i, 1) '取出第i个字符存入变量ch
asc1 = Asc(ch)
ret = ""
For m = 1 To 8 '完成解密步骤(1)和步骤(2)
②______
ret = n & ret
asc1 = asc1 \ 2
Next m
ret = Mid(ret, 3, 6) + Mid(ret, 1, 2) '完成解密步骤(3)
s1 = jiemi(Mid(ret, 1, 4))
③_________
ans = ans& s1 & s2 '将第i个解密后的字符添加到变量ans的末尾
Next i
Text2.Text = ans
End Sub
(1)将该字符的ASCII码转换成对应的8位二进制;
(2)将对应的8位二进制数进行按位取反(1变0,0变1);
(3)将产生的8位二进制数循环左移2次;

图a
(4)将最后产生的8位二进制数转换成对应的十六进制数。
例如,密文小写字母“d”通过上述解密算法解密后生成的明文是“6E”,信息加密过程如图b所示。

图b
实现上述功能的VB程序如下:在文本框Text1中输入密文,单击“解密”按钮Command1,程序对密文数据依次进行解密处理,在文本框Text2中显示解密后生成的明文。程序运行界面如图c所示。

图c
实现上述功能的VB程序如下,请问答下列问题:
(1)如果输入密文为小写字母“a”,则解密后得到的明文是 ______________。
(2)请在划线处填入合适代码。
Function jiemi(m As String) As String '将4位二进制数转换成相应的十六进制数
Dim k As Integer, i As Integer
Dim str As String
str = "0123456789ABCDEF"
k = 0
For i = 1 To 4
k = k * 2 + Val(Mid(m, i, 1))
Next i①_______
End Function
Private Sub Command1_Click()
Dim ans As String, s As String, ch As String, ret As String
Dim s1 As String, s2 As String
Dim i As Integer, m As Integer, asc1 As Integer, n As Integer
s = Text1.Text
ans = ""
For i = 1 To Len(s)
ch = Mid(s, i, 1) '取出第i个字符存入变量ch
asc1 = Asc(ch)
ret = ""
For m = 1 To 8 '完成解密步骤(1)和步骤(2)
②______
ret = n & ret
asc1 = asc1 \ 2
Next m
ret = Mid(ret, 3, 6) + Mid(ret, 1, 2) '完成解密步骤(3)
s1 = jiemi(Mid(ret, 1, 4))
③_________
ans = ans& s1 & s2 '将第i个解密后的字符添加到变量ans的末尾
Next i
Text2.Text = ans
End Sub
15.
用VB编写“拆红包”程序,界面如图所示。在Text1中输入红包金额(元),在Text2中输入人数,点击“Command1”命令按钮,在列表框List1中显示分到的红包情况。

(1)把命令按钮Command1上显示的文字改成“拆红包”,应修改Command1按钮的__________属性。
(2)实现上述功能的VB程序如下,请在划线处填入合适的代码。
Private Sub Command1_Click()
k = Int(money * 100) / 100 '保留两位小数
Else
k = Int(Rnd() * money / i * 100) / 100
End If
money = ②________
List1.AddItem Str(k)
Next i
End Sub
(3)执行该程序,(选填:有 / 没有)________可能产生金额为0元的红包。

(1)把命令按钮Command1上显示的文字改成“拆红包”,应修改Command1按钮的__________属性。
(2)实现上述功能的VB程序如下,请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer
Dim num As Integer '存储红包的个数
Dim money As Single '存储红包的剩余金额
Dim k As Single '存储每次分到的红包金额
money = Val(Text1.Text)
num = Val(Text2.Text)
For i = ①________ To 1 Step -1
If i = 1 Thenk = Int(money * 100) / 100 '保留两位小数
Else
k = Int(Rnd() * money / i * 100) / 100
End If
money = ②________
List1.AddItem Str(k)
Next i
End Sub
(3)执行该程序,(选填:有 / 没有)________可能产生金额为0元的红包。
16.
(加试题)小王编写了一个猜价格的VB程序,程序界面如图所示。程序运行时,在列表框List1中显示20个随机生成的在[150,250]之间的价格及其序号。在文本框Text1中输入报价,单击Command1 “猜测”按钮后,在Label3中输出猜中价格对应的序号。

实现上述功能的VB程序如下,但加框处代码有误,请改正。
Dim d(1 To 20) As Integer
Private Sub Form_Load()
For i = 1 To 20 '生成20个随机价格
d(i)=Int(Rnd*100)+150 ‘(1)________
Next i
For i = 1 To 19
For j = 20 To i + 1 Step -1
If d(j) < d(j - 1) Then
t = d(j): d(j) = d(j - 1): d(j - 1) = t
End If
For i = 1 To 20
End Sub
Private Sub Command1_Click()
Dim baojia As Integer,i as integer, j as integer, t as integer , m as integer
Randomize
List1.Clear
baojia = Val(Text1.Text)
i = 1
j = 20
Do While i<= j
m=(i+j)/2 ‘(2)________
If baojia = d(m) Then
Label3.Caption = "猜中 第" + Str(i) + "个"
Exit Do
ElseIf baojia<d(m) Then
j = m - 1
Else
i=m-1 ‘(3)________
End If
Loop
End Sub

实现上述功能的VB程序如下,但加框处代码有误,请改正。
Dim d(1 To 20) As Integer
Private Sub Form_Load()
For i = 1 To 20 '生成20个随机价格
d(i)=Int(Rnd*100)+150 ‘(1)________
Next i
For i = 1 To 19
For j = 20 To i + 1 Step -1
If d(j) < d(j - 1) Then
t = d(j): d(j) = d(j - 1): d(j - 1) = t
End If
Next j
Next iFor i = 1 To 20
List1.AddItem Str(i) + Str(d(i))
Next iEnd Sub
Private Sub Command1_Click()
Dim baojia As Integer,i as integer, j as integer, t as integer , m as integer
Randomize
List1.Clear
baojia = Val(Text1.Text)
i = 1
j = 20
Do While i<= j
m=(i+j)/2 ‘(2)________
If baojia = d(m) Then
Label3.Caption = "猜中 第" + Str(i) + "个"
Exit Do
ElseIf baojia<d(m) Then
j = m - 1
Else
i=m-1 ‘(3)________
End If
Loop
End Sub
17.
小王制作主题为“湖畔”的多媒体作品。他首先使用Photoshop软件制作一张背景图片,然后使用Flash软件制作动画。请回答下列问题:

图a
(1)如图a所示,设置了图层样式的图层有_____(填图层名称)。
(2)如图a所示,“湖畔.psd”中存储每个像素点所需的位数为________位。
(3)如图b所示,为使动画停止播放时声音继续播放,则“音乐”图层中音频的同步方式为 ________(选填:事件/数据流)。

图b
(4)如图b所示,要使音乐随着“白云”的出现开始播放,正确的操作是________ 。
(5)测试场景时,“白云”图层的动画效果_______(选填:可见 / 不可见)。
(6)测试影片时,单击“诗词”按钮,实现在浏览器中显示位于同一目录下“shici.txt”文件的内容,则“诗词”按钮的动作脚本为 _______。

图a
(1)如图a所示,设置了图层样式的图层有_____(填图层名称)。
(2)如图a所示,“湖畔.psd”中存储每个像素点所需的位数为________位。
(3)如图b所示,为使动画停止播放时声音继续播放,则“音乐”图层中音频的同步方式为 ________(选填:事件/数据流)。

图b
(4)如图b所示,要使音乐随着“白云”的出现开始播放,正确的操作是________ 。
(5)测试场景时,“白云”图层的动画效果_______(选填:可见 / 不可见)。
(6)测试影片时,单击“诗词”按钮,实现在浏览器中显示位于同一目录下“shici.txt”文件的内容,则“诗词”按钮的动作脚本为 _______。
试卷分析
-
【1】题量占比
选择题:(12道)
填空题:(5道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:17