1.选择题- (共12题)
2.
使用Access 软件打开数据库,数据表视图如图1 所示,设计视图如图2 所示,下列说法正确的是( )


图1 图2


图1 图2
A.该数据库文件名为“技术成绩.accdb” |
B.可以在信息和通用之间插入一个新的字段 |
C.可以在最后添加一条新记录,内容为“陈宣甸 2 班 50 45 95” |
D.图1 状态下可以添加一个 “自动编号”类型的字段 |
6.
(加试题)下列程序执行后文本框Text1 显示的内容是()
s = "ERROR:Divisor must not be zero!"
flag = False: m = 0
For i = 1 To Len(s)
Text1.Text=Str(m)
s = "ERROR:Divisor must not be zero!"
flag = False: m = 0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "a" And ch <= "z" Then
If Not flag Then
m = m + 1
flag = True
End If
Else
flag = False
End If
Next iText1.Text=Str(m)
A.4 |
B.5 |
C.6 |
D.19 |
7.
(加试题)有如下VB程序段:
k = Val(Text1.Text)
left1 = 1: right1 = 10
Do While (left1 <= right1)
mid1 = (left1 + right1) \ 2
If a(mid1) <=k Then
left1 = mid1 + 1
Else
right1 = mid1-1
End If
Loop
Text2.text=str(right1)
已知数组a(1)到a(10)的原始数据为1,4,5,5,5,5,8,9,9,10.程序运行时,在文本框text1中输入5,文本框text2显示的内容是()
k = Val(Text1.Text)
left1 = 1: right1 = 10
Do While (left1 <= right1)
mid1 = (left1 + right1) \ 2
If a(mid1) <=k Then
left1 = mid1 + 1
Else
right1 = mid1-1
End If
Loop
Text2.text=str(right1)
已知数组a(1)到a(10)的原始数据为1,4,5,5,5,5,8,9,9,10.程序运行时,在文本框text1中输入5,文本框text2显示的内容是()
A.5 |
B.10 |
C.3 |
D.6 |
8.
小木在photoshop中设计制作了一个文件,图层面板如下图所示,关于该文件,下列说法不正确的是( )


A.“中指树叶”图层不能被删除 |
B.该图片每个像素的颜色位数为8位 |
C.可以修改“这并不是胜利!”图层的文字字体 |
D.在当前状态下添加文字,文字内容不会出现在“食指树叶”图层中 |
9.
GoldWave软件编辑某音频文件操作界面如图所示:

以下说法不正确的是()

以下说法不正确的是()
A.该音频是双声道Wave格式文件 |
B.当前选中的音频时间长度约为半分钟 |
C.现对该音频的后10秒设置“淡出”效果并按原格式、原参数保存,存储空间不变 |
D.若删除当前选择的数据并按原格式、原参数保存,存储空间将不变 |
10.
小王使用Flash软件制作动画,其中“进入”按钮元件的部分编辑界面如下图所示。

下列操作中,可使“进入”按钮能响应鼠标单击的是

下列操作中,可使“进入”按钮能响应鼠标单击的是
A.选中“边框”图层的“点击”帧执行“删除帧”操作 |
B.选中“形状”图层的“按下”帧执行“删除帧”操作 |
C.选中“颜色”图层的“弹起”帧执行“清除关键帧”操作 |
D.选中“文本”图层的“指针经过”帧执行“清除关键帧”操作 |
11.
(加试题)某psd格式的文件以默认的方式保存为bmp格式,该bmp图像用Photoshop打开后的部分界面如下图所示。已知该图像宽度400像素,高度300像素,则该图像的大小约为


A.351.6KB |
B.117.2KB |
C.58.6KB |
D.175.8KB |
12.
下列关于浏览器和网页的说法,正确的是()
A.网页的超链接可以添加在文字或图片上 |
B.在IE 浏览器中清空历史记录,收藏夹中的网址被同时清空 |
C.网页可能含有图片、动画等素材,故不能用记事本编辑网页 |
D.网页通过 HTML 协议传输,可以通过浏览器解释执行网页文件 |
2.填空题- (共5题)
13.
2016 年浙江省各地市GDP 情况数据在Excel 表中如图1 所示。

图1
请回答下列问题:
(1)区域F3:F14 的数据是通过公式计算得到。在单元格F3 输入公式,并用自动填充功能完成区域F4:F14 的计算,则单元格F5 中的公式是____________。
(2)如图1 所示,删除第15 行,单元格F3 的值显示为____________(选填:
(3)将区域A2:G14 的数据复制到新工作表,在新工作表中对数据进行筛选操作,2016 年GDP(亿元)和人均GDP 筛选条件均设置为如图2 所示,则筛选出的城市有_____个。

图2
(4)根据图1 中数据制作的图表如图3 所示,创建该图表的数据区域是____________。

图3

图1
请回答下列问题:
(1)区域F3:F14 的数据是通过公式计算得到。在单元格F3 输入公式,并用自动填充功能完成区域F4:F14 的计算,则单元格F5 中的公式是____________。
(2)如图1 所示,删除第15 行,单元格F3 的值显示为____________(选填:
A.#DIV/0! / | B.#REF! / | C.36958.67 / | D.0)。 |

图2
(4)根据图1 中数据制作的图表如图3 所示,创建该图表的数据区域是____________。

图3
14.
编“字符串缩写”程序,实现如下功能:在文本框Text1中输入Ascii字符串,字符串中如果有由Ascii表中相邻字符(升序)组成的子串,则把该子串缩写成由第一个字符、“-”和最后一个字符组成,比如“abcdfpxcba”则缩写成“a-dfpxcba”。程序运行界面如下图所示。

(1)代码“Private Sub Command1_Click()”中的Command1_Click()是________
(单选,填字母:
(2)实现上述功能的VB程序如下,请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, result As String, i As Integer, j As Integer, t As Integer
s = Text1.Text :t = Len(s) :result = ""
i=1
Do While i <= t
j = i
Do While i < t
If Asc(Mid(s, i + 1, 1)) = Asc(Mid(s, i, 1)) + 1 Then
i = i + 1
Else
Exit Do
End If
Loop
If i > j Then
result = ①________
Else
result = result + Mid(s, i, 1)
End If
i = i + 1
Loop
Text2.Text = ②________
End Sub
(3)如果输入的字符串是“aBcucwxyzdcb”,输出结果为____________

(1)代码“Private Sub Command1_Click()”中的Command1_Click()是________
(单选,填字母:
A.对象名 / | B.事件 / | C.事件处理过程) |
Private Sub Command1_Click()
Dim s As String, result As String, i As Integer, j As Integer, t As Integer
s = Text1.Text :t = Len(s) :result = ""
i=1
Do While i <= t
j = i
Do While i < t
If Asc(Mid(s, i + 1, 1)) = Asc(Mid(s, i, 1)) + 1 Then
i = i + 1
Else
Exit Do
End If
Loop
If i > j Then
result = ①________
Else
result = result + Mid(s, i, 1)
End If
i = i + 1
Loop
Text2.Text = ②________
End Sub
(3)如果输入的字符串是“aBcucwxyzdcb”,输出结果为____________
15.
(加试题)维吉尼亚密码。如下图所示,分别用行和列表示待加密的字符(明文)和当前字符的密钥,行和列的交叉点的字符即为加密后的结果(密文)。在加密时,密文与明文的字母大小写形式保持一致,如:明文字母为大写,则加密后的密文字母也为大写;当密钥长度不足时重复使用密钥。

明文:HelloWorld
密钥:abcabcabca
密文:HfnlpYosnd
依据上述算法描述设计了如下VB程序。请回答下列问题:
(1)若明文是Jia,密钥是Pass,则输出的密文是:_________
(2)请在划线处填上合适的代码
Const MIN_ASC = 65
Function X2D(x As String) As String
Dim s As String, zf As String, i As Integer
s = ""
For i = 1 To Len(x)
zf = Mid(x, i, 1)
If zf >= "a" And zf <= "z" Then
s=s+ ①________
Else
s = s + zf
End If
Next i
X2D = s
End Function
Private Sub Command1_Click()
Dim M As String, K As String, C As String, flag As Boolean
Dim i As Integer, t As Integer, ch As Integer, pos As Integer, j As Integer
M = Text1.Text '明文
K = Text2.Text '密钥
t = Len(K)
K = X2D(K)
C = ""
For i = 1 To Len(M)
ch = Asc(Mid(M, i, 1))
flag = False
If ch >= 97 And ch <= 122 Then ch = ch - 32: flag = True
pos= ②________ '密钥的字符位置值
If pos = 0 Then pos = t
j = Asc(Mid(K, pos, 1)) '密钥字符的ASCII值
ch = ch - MIN_ASC
j = j - MIN_ASC
ch= ③________
ch = ch + MIN_ASC
If flag Then ch = ch + 32 '设置字母的大小写形式
C = C & Chr(ch)
Next i
Text3.Text = C
End Sub

例如:当明文M=HelloWorld,密钥K=abc时,密文C=HfnlpYosnd。运算过程如下所示:
明文:HelloWorld
密钥:abcabcabca
密文:HfnlpYosnd
依据上述算法描述设计了如下VB程序。请回答下列问题:
(1)若明文是Jia,密钥是Pass,则输出的密文是:_________
(2)请在划线处填上合适的代码
Const MIN_ASC = 65
Function X2D(x As String) As String
Dim s As String, zf As String, i As Integer
s = ""
For i = 1 To Len(x)
zf = Mid(x, i, 1)
If zf >= "a" And zf <= "z" Then
s=s+ ①________
Else
s = s + zf
End If
Next i
X2D = s
End Function
Private Sub Command1_Click()
Dim M As String, K As String, C As String, flag As Boolean
Dim i As Integer, t As Integer, ch As Integer, pos As Integer, j As Integer
M = Text1.Text '明文
K = Text2.Text '密钥
t = Len(K)
K = X2D(K)
C = ""
For i = 1 To Len(M)
ch = Asc(Mid(M, i, 1))
flag = False
If ch >= 97 And ch <= 122 Then ch = ch - 32: flag = True
pos= ②________ '密钥的字符位置值
If pos = 0 Then pos = t
j = Asc(Mid(K, pos, 1)) '密钥字符的ASCII值
ch = ch - MIN_ASC
j = j - MIN_ASC
ch= ③________
ch = ch + MIN_ASC
If flag Then ch = ch + 32 '设置字母的大小写形式
C = C & Chr(ch)
Next i
Text3.Text = C
End Sub
16.
(加试题)小李基于冒泡排序算法编写了一个VB程序,功能如下:在文本框Text1 中显示排序前的数据,单击“排序”按钮Command1,在文本框Text2 中显示剔除重复数据后的升序排序结果。程序运行界面如下图所示。

实现上述功能的VB程序如下,但加框处代码有错,请改正。
Const n = 10
Dim a(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer, bottom As Integer
'获取排序前数据依次存储在数组a 中,并在文本框Text1 中显示。代码略
bottom = n : i = 1
Do While i <= bottom - 1
t = a(j): a(j) = a(j - 1): a(j - 1) = t
ElseIf a(j) = a(j - 1) Then ' 相邻两个数据相等,进行剔除处理
a(bottom)=a(j)
bottom = bottom - 1
End If
Text2.Text = " "
For i = 1 To bottom
End Sub

实现上述功能的VB程序如下,但加框处代码有错,请改正。
Const n = 10
Dim a(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer, bottom As Integer
'获取排序前数据依次存储在数组a 中,并在文本框Text1 中显示。代码略
bottom = n : i = 1
Do While i <= bottom - 1
For j = bottom To i + 1 Step -1
If a(j) < a(i) Thent = a(j): a(j) = a(j - 1): a(j - 1) = t
ElseIf a(j) = a(j - 1) Then ' 相邻两个数据相等,进行剔除处理
a(bottom)=a(j)
bottom = bottom - 1
End If
Next j
i = i + 1
LoopText2.Text = " "
For i = 1 To bottom
Text2.Text = Text2.Text + Str(a(i))
Next iEnd Sub
17.
创作一个题为“关爱老人”的多媒体作品,首先使用Photoshop 软件制作一张片头图片,然后使用Flash 软件制作一个动画,该动画设计思路如下。请回答下列问题:

(1)如下面左图所示,若仅将“关爱老人”的“爱”字变更颜色,下列操作方法可行的有____________(



(2)“main”场景如上图所示,结合动画设计思路,发现第60帧开始右边多出一个女孩,若要该女孩在舞台中消失,正确的操作是____________。
(3)测试影片时,音乐自动延续到下一场景,“音乐”图层中的声音“同步”属性应为_______。(选填:事件 / 数据流)
(4)如图所示,在“老婆婆”图层第47 帧与第52 帧之间添加动画补间时,发现库中自动生成l“补间1”元件,可能的原因是____________。
(5)(选填:可以/不可以)____________删除女孩图层的第60到80帧。
(6)测试影片时,单击“下一幕”按钮,影片跳转到下一场景的第1 帧并停止播放,则“下一幕”按钮的动作脚本为____________。

(1)如下面左图所示,若仅将“关爱老人”的“爱”字变更颜色,下列操作方法可行的有____________(
A.用T 工具选择“爱”字,设置文本颜色 / | B.用“套索”选择“爱”字,油漆桶填充颜色 / | C.用T 工具选择“爱”字,设置图层样式“颜色叠加” / | D.栅格化文字,用“魔棒”选择“爱”字,前景色填充颜色)。 |



(2)“main”场景如上图所示,结合动画设计思路,发现第60帧开始右边多出一个女孩,若要该女孩在舞台中消失,正确的操作是____________。
(3)测试影片时,音乐自动延续到下一场景,“音乐”图层中的声音“同步”属性应为_______。(选填:事件 / 数据流)
(4)如图所示,在“老婆婆”图层第47 帧与第52 帧之间添加动画补间时,发现库中自动生成l“补间1”元件,可能的原因是____________。
(5)(选填:可以/不可以)____________删除女孩图层的第60到80帧。
(6)测试影片时,单击“下一幕”按钮,影片跳转到下一场景的第1 帧并停止播放,则“下一幕”按钮的动作脚本为____________。
试卷分析
-
【1】题量占比
选择题:(12道)
填空题:(5道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:17