1.简答题- (共1题)
1.
条形码是按照一定编码规则排列的图形标识符。如右图所示,条形码下方数字左边12位代表信息,最右边一位是校验码。校验码产生方法如下:

①把条形码下方数字从右往左依次编序号为“1,2,3,4……”;
②从序号2开始把所有偶数序号位上的数相加求和,并乘以3;
③从序号3开始把所有奇数序号上的数相加求和;
④把第②和第③步结果相加求和;
⑤10减去第④步结果的个位数,得出校验码(如果差值为10,则校验码为0);
如条形码的数字为:977167121601X(X为校验码),则校验码主要产生步骤如下:
1) (1+6+2+7+1+7)×3=72
2) 0+1+1+6+7+9=24
3) 72+24=96
4) 10-6=4
所以最后校验码X=4,此条形码数字为9771671216014。
小何为此编写了VB程序,用以验证条形码输入正确与否。程序运行时,从文本框Text1获取条形码数字部分,单击按钮Command1后,在列表框List1中输出结果。实现上述功能的VB代码如下,但加框处代码有错,请改正。
Private Sub Command1_Click()
Dim i As Integer, b As String, Lb As Integer
Dim s1 As Integer, s2 As Integer, tmp As Integer
Dim c As String
Dim d(1 To 13) As Integer '存储数据
Dim res As String '存储结果
b =" Text1.Text" '输入
Lb = Len(b)
s1 =" 0" : s2 = 0
flag = True
res = "输入错误!"
If Lb =" 13" Then
For i =" 1" To 13
c =" Mid(b," Lb - i + 1, 1)
If c >= "0" And c <= "9" Then
d(i) =" Val(c)" '输入转换
Else
flag =" False" : Exit For
End If
Next i
If flag Then
For i =" 2" To Lb Step 2
s1 = s1 + d(i) '参数计算1
s2 =s2 + d(i) '参数计算2 ①
Next i
tmp =" s1" * 3 + s2
If tmp Mod 10 Then res = "输入正确!" ②
End If
End If
List1.AddItem res
End Sub

①把条形码下方数字从右往左依次编序号为“1,2,3,4……”;
②从序号2开始把所有偶数序号位上的数相加求和,并乘以3;
③从序号3开始把所有奇数序号上的数相加求和;
④把第②和第③步结果相加求和;
⑤10减去第④步结果的个位数,得出校验码(如果差值为10,则校验码为0);
如条形码的数字为:977167121601X(X为校验码),则校验码主要产生步骤如下:
1) (1+6+2+7+1+7)×3=72
2) 0+1+1+6+7+9=24
3) 72+24=96
4) 10-6=4
所以最后校验码X=4,此条形码数字为9771671216014。
小何为此编写了VB程序,用以验证条形码输入正确与否。程序运行时,从文本框Text1获取条形码数字部分,单击按钮Command1后,在列表框List1中输出结果。实现上述功能的VB代码如下,但加框处代码有错,请改正。
Private Sub Command1_Click()
Dim i As Integer, b As String, Lb As Integer
Dim s1 As Integer, s2 As Integer, tmp As Integer
Dim c As String
Dim d(1 To 13) As Integer '存储数据
Dim res As String '存储结果
b =" Text1.Text" '输入
Lb = Len(b)
s1 =" 0" : s2 = 0
flag = True
res = "输入错误!"
If Lb =" 13" Then
For i =" 1" To 13
c =" Mid(b," Lb - i + 1, 1)
If c >= "0" And c <= "9" Then
d(i) =" Val(c)" '输入转换
Else
flag =" False" : Exit For
End If
Next i
If flag Then
For i =" 2" To Lb Step 2
s1 = s1 + d(i) '参数计算1
s2 =s2 + d(i) '参数计算2 ①
Next i
tmp =" s1" * 3 + s2
If tmp Mod 10 Then res = "输入正确!" ②
End If
End If
List1.AddItem res
End Sub
2.选择题- (共12题)
2.
关于数据库和数据表,下列说法不正确的是
A.数据库是与应用程序能彼此独立的一组相关联的数据集合 |
B.用户使用数据库是为了组织数据,不能从数据库中检索数据 |
C.Access数据表由行和列构成,其基本操作包括浏览、添加、删除、修改等 |
D.Access数据表可以导出为.xlsx格式的文件 |
3.
下列有关信息的说法,不正确的是
A.信息本身是看不见摸不着的,但是它可以用一定的方式表现出来 |
B.信息不可以脱离它所反映的事物被存储、保存和传播 |
C.经专家或核心刊物评价的因特网信息具有较高的参考价值 |
D.为了信息安全,一般不用单词作为上网密码 |
4.
某算法的部分流程图如图所示,若n输入的值为1,则变量s的值是多少?如将循环体“s=s+n和n=n+2”交换顺序,则s值又是多少?


A.25、26 |
B.26、25 |
C.36、36 |
D.26、36 |
5.
有如下部分程序段:
a(1) = "20": a(2) = "16": a(3) = "12": a(4) = "o": a(5) = "k"
For i =" 1" To 4
For j =" 5" To i + 1 Step -1
If a(j) >a(j - 1) Then t =" a(j):" a(j) =" a(j" - 1): a(j - 1) = t
Next j
List1.Additem a(i)
Next i
程序运行后列表框中显示的结果是
a(1) = "20": a(2) = "16": a(3) = "12": a(4) = "o": a(5) = "k"
For i =" 1" To 4
For j =" 5" To i + 1 Step -1
If a(j) >a(j - 1) Then t =" a(j):" a(j) =" a(j" - 1): a(j - 1) = t
Next j
List1.Additem a(i)
Next i
程序运行后列表框中显示的结果是
A.12,16,20,o,k | B.o,k,20,16 |
C.o,k,20,16,12 | D.20,16,12 |
7.
马老师想开一节“遇见青春的自己”为主题的班会,决定安装相关多媒体软件来制作演示型课件,这些准备属于多媒体作品设计的哪个阶段
A.应用需求分析 | B.创作需求分析 |
C.系统结构设计 | D.媒体元素分解 |
10.
在Photoshop中,当RGB设置为(0,255,0)时下方自动显示为#00ff00,如下图所示,则当RGB设置为(255,64,100),下方显示为


A.#ff6440 | B.#ff4000 | C.#0064ff | D.#ff4064 |
11.
使用Photoshop软件对“舞者.psd”进行处理,编辑界面如下图所示。

下列说法正确的是

下列说法正确的是
A.利用自由变换改变女舞者的大小,男舞者不会随之改变 |
B.删除“女舞者”图层,“男舞者”图层也随之消失 |
C.文字图层被设置了变形文字,因而不能再编辑其中的文字 |
D.“背景”图层可以设置滤镜效果 |
12.
用Flash软件制作闪烁效果的星星,部分时间轴界面如下图所示。下列描述正确的是


A.“闪烁”图层被锁定,因而舞台上的星星无法被选中 |
B.图层锁定后不能使用清除帧的操作 |
C.帧频由12改为6,闪烁速度快一倍 |
D.“闪亮的星”元件在场景中只能用一次 |
13.
搜索引擎是常用信息检索工具,如百度(Baidu)。下列与其功能相似的是
A.BBS、E-mail | B.FrontPage、Bing |
C.Google、Yahoo | D.Youdao、WPS |
3.填空题- (共4题)
14.
编写VB程序,实现如下功能:在文本框Text1中输入十六进制数,单击“转换”按钮Command1,在列表框List1中输出对应的十进制数,运行界面如图所示,程序代码如下。

(1)要调整Label1中的字体大小,可选择在属性面板中设置Label1的 。(单选,填字母:A.Caption / B.Font /
(2)为实现上述功能,请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, c As String, t As String
Dim i As Integer, b As Integer, ans As Long
Dim flag As Boolean
s = ①
b = Len(s)
flag = True
ans = 0
For i =" 1" To b
c =" Mid(s," i, 1)
If c >= "0" And c <= "9" Then
ans =" ans" * 16 + Asc(c) - Asc("0")
ElseIf c >= "A" And c <= "F" Then
ans =" ans" * 16 + ②
Else
③ '输入情况有误
Exit For
End If
Next i
If flag Then t =" Str(ans)" Else t ="输入有误!"
List1.AddItem s + "-->" + t
End Sub
(3)由上述算法可知,运行时在Text1框中输入“d8”,列表框List1中添加的条目为 。(单选,填字母:A. d8-->216/ B. d8-->输入有误!)

(1)要调整Label1中的字体大小,可选择在属性面板中设置Label1的 。(单选,填字母:A.Caption / B.Font /
A.Height) |
Private Sub Command1_Click()
Dim s As String, c As String, t As String
Dim i As Integer, b As Integer, ans As Long
Dim flag As Boolean
s = ①
b = Len(s)
flag = True
ans = 0
For i =" 1" To b
c =" Mid(s," i, 1)
If c >= "0" And c <= "9" Then
ans =" ans" * 16 + Asc(c) - Asc("0")
ElseIf c >= "A" And c <= "F" Then
ans =" ans" * 16 + ②
Else
③ '输入情况有误
Exit For
End If
Next i
If flag Then t =" Str(ans)" Else t ="输入有误!"
List1.AddItem s + "-->" + t
End Sub
(3)由上述算法可知,运行时在Text1框中输入“d8”,列表框List1中添加的条目为 。(单选,填字母:A. d8-->216/ B. d8-->输入有误!)
15.
已知方程“x^2+sin(x)-1=0”在区间[0,1]之间单调上升且有唯一解,可用对分思想不断缩小正解所在区间,找出其近似解(要求:误差小于0.001,结果截取3位小数)。单击“求解”按钮Command1,方程近似解显示在文本框Text1中。程序运行界面如下所示:

实现上述功能的VB程序如下,请在划线处填入合适代码。
Private Function fun(x As Single) As Single
fun =" x" ^ 2 + Sin(x) - 1
End Function
Private Sub Command1_Click()
Dim i As Integer
Dim x1 As Single, x2 As Single, y As Single, y1 As Single, y2 As Single
Dim mid As Single
x1 = 0
x2 = 1
y1 =" fun(x1)" '小于0
y2 =" fun(x2)" '大于0
For i =" 1" To ① '确定合适终值,使最终结果恰好小于0.001
mid =" (x1" + x2) / 2
y = fun(mid)
If y < 0 Then
x1 = mid
ElseIf y > 0 The
② [来源:Z*xx*k.Com]
Else
Exit For
End If
Next i
'结果截取3位小数
'CStr(Format(0.63756, "0.000"))返回“0.638”
Text1.Text = CStr(Format( ③ , "0.000"))
End Sub

实现上述功能的VB程序如下,请在划线处填入合适代码。
Private Function fun(x As Single) As Single
fun =" x" ^ 2 + Sin(x) - 1
End Function
Private Sub Command1_Click()
Dim i As Integer
Dim x1 As Single, x2 As Single, y As Single, y1 As Single, y2 As Single
Dim mid As Single
x1 = 0
x2 = 1
y1 =" fun(x1)" '小于0
y2 =" fun(x2)" '大于0
For i =" 1" To ① '确定合适终值,使最终结果恰好小于0.001
mid =" (x1" + x2) / 2
y = fun(mid)
If y < 0 Then
x1 = mid
ElseIf y > 0 The
② [来源:Z*xx*k.Com]
Else
Exit For
End If
Next i
'结果截取3位小数
'CStr(Format(0.63756, "0.000"))返回“0.638”
Text1.Text = CStr(Format( ③ , "0.000"))
End Sub
16.
小明收集了2007—2015年中国网民规模的数据,并用Excel软件进行数据处理,如图a所示。请回答下列问题:

图a
(1)区域F3:F11的数据是通过公式计算得到的,在F3单元格输入公式并用自动填充功能完成区域F4:F11的计算,则F3单元格中的公式是 。
(2)为了更加直观地比较手机网民所占比例,小明制作了如图b所示的图表。
该图表的数据区域是 。

图b
(3)由于智能手机的普及,结合图b可知, 年的手机网民增长速度最快。
(4)小明在统计网民总计时,采用的方法是:选中B12单元格,然后输入公式“=sum(B3:B11)”,确定后发现该单元格的内容依然是“=sum(B3:B11)”,请分析可能原因是 。

图a
(1)区域F3:F11的数据是通过公式计算得到的,在F3单元格输入公式并用自动填充功能完成区域F4:F11的计算,则F3单元格中的公式是 。
(2)为了更加直观地比较手机网民所占比例,小明制作了如图b所示的图表。
该图表的数据区域是 。

图b
(3)由于智能手机的普及,结合图b可知, 年的手机网民增长速度最快。
(4)小明在统计网民总计时,采用的方法是:选中B12单元格,然后输入公式“=sum(B3:B11)”,确定后发现该单元格的内容依然是“=sum(B3:B11)”,请分析可能原因是 。
17.
小吴创作“秋”的多媒体作品。首先使用Goldwave软件剪辑背景音乐,然后使用Flash软件制作动画。请回答下列问题:

图 a
(1)删掉从1分17秒至2分14秒之间的部分音频片段。如图a所示,在Goldwave中可先通过 功能键精确选取,然后通过 功能键完成剪辑。(请填写相应编号)
(2)作品“main”场景如图b所示。要使背景音乐在动画播放时播放,动画停止时音乐停止,可将“背景音乐”图层中的声音“同步”属性设置为______(选填:事件/数据流)。
(3)“文字1”图层中,小吴利用实例颜色属性中的alpha值设置“淡入”效果,由此可知该动画的类型为_______(单选,填字母:A.动画补间动画 / B.形状补间动画 / C.逐帧动画)。

图b
(4)测试“main”场景时,当动画播放至最后一帧停止时发现“蜻蜓”的翅膀仍在摆动。由此可知“蜻蜓”元件的类型为 。
(5)如图b所示,动画要实现单击“退出”按钮,关闭放映文件,则“退出”按钮的动作脚本 。

图 a
(1)删掉从1分17秒至2分14秒之间的部分音频片段。如图a所示,在Goldwave中可先通过 功能键精确选取,然后通过 功能键完成剪辑。(请填写相应编号)
(2)作品“main”场景如图b所示。要使背景音乐在动画播放时播放,动画停止时音乐停止,可将“背景音乐”图层中的声音“同步”属性设置为______(选填:事件/数据流)。
(3)“文字1”图层中,小吴利用实例颜色属性中的alpha值设置“淡入”效果,由此可知该动画的类型为_______(单选,填字母:A.动画补间动画 / B.形状补间动画 / C.逐帧动画)。

图b
(4)测试“main”场景时,当动画播放至最后一帧停止时发现“蜻蜓”的翅膀仍在摆动。由此可知“蜻蜓”元件的类型为 。
(5)如图b所示,动画要实现单击“退出”按钮,关闭放映文件,则“退出”按钮的动作脚本 。
试卷分析
-
【1】题量占比
简答题:(1道)
选择题:(12道)
填空题:(4道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:17