1.选择题- (共12题)
1.
编辑Access数据表“精品书籍表”(如图a所示),将Excel表(如图b所示)A2:F9区域数据复制到“精品书籍表”中,则正确的是( )




A.“出借否”字段打“√”记录有4条 | B.“书籍编号”字段的值不能修改 |
C.《小妇人》所在记录的书籍编号为1 | D.存储“出借否”字段数据类型需要1字节 |
2.
如图所示为使用IE浏览器浏览某网页的部分截图,则下列说法不正确的是


A.http://news.qq.com/a/20160531/048095.htm是一个网址 |
B.http是超文本传输协议,输入的时候可省略 |
C.单击按钮![]() |
D.单击按钮![]() |
3.
小明请王老师帮忙修改他们小组的研究性学习报告(DOCX格式),部分界面如图所示:

以下说法中正确的是?

以下说法中正确的是?
A.当前图片的环绕方式是上下型 |
B.该处文档中添加了2个批注 |
C.批注内容的字体和字号是不可以设置的 |
D.只有文字才能添加批注,图片是不能添加批注的 |
4.
下列有关信息和信息技术的说法中,不正确的是
A.为了保证计算机中信息的安全,需要定期的对计算机进行格式化 |
B.数据库在我们生活中有广泛的应用,包括搜索引擎的使用、校园一卡通系统等 |
C.计算机是一种信息处理工具,它能帮助我们更加高效地处理和加工信息的前提是信息的数字化 |
D.小明把资料保存在U盘中,U盘的意外损坏导致存储的信息全部丢失,这说明信息的储存必须依附于某种载体 |
6.
某排序程序的主要代码如下所示:
n=5
For i = 1 To n-1
For j =n-1 To i step -1
If d(j) < d(j+1) Then k = d(j): d(j) = d(j + 1): d(j + 1) = k
Next j
Next i
在排序过程中,某一遍排序后的结果是81,77,1,76,70,则下一遍排序后的结果应该是
n=5
For i = 1 To n-1
For j =n-1 To i step -1
If d(j) < d(j+1) Then k = d(j): d(j) = d(j + 1): d(j + 1) = k
Next j
Next i
在排序过程中,某一遍排序后的结果是81,77,1,76,70,则下一遍排序后的结果应该是
A.81,76,1,77,70 | B.81,77,76,1,70 |
C.81,77,76,70,1 | D.1,70,76,77,80 |
7.
某VB程序段如下所示:
Dim x As String
Private Sub Form_Load()
x = ""
End Sub
Private Sub Text1_Change()
Dim s As String, k As String
Dim i As Integer
s = "0123456789ABCDEF"
k = Text1.Text
For i = 1 To Len(s)
If Mid(s, i, 1) = k Then x = x + k
Next i
If x = "" Then x = "没有找到!"
Label1.Caption = x
End Sub
若在文本框Text1中依次输入“2”和“9”,则Label1上显示的内容为
Dim x As String
Private Sub Form_Load()
x = ""
End Sub
Private Sub Text1_Change()
Dim s As String, k As String
Dim i As Integer
s = "0123456789ABCDEF"
k = Text1.Text
For i = 1 To Len(s)
If Mid(s, i, 1) = k Then x = x + k
Next i
If x = "" Then x = "没有找到!"
Label1.Caption = x
End Sub
若在文本框Text1中依次输入“2”和“9”,则Label1上显示的内容为
A.11 | B.2 | C.9 | D.29 |
8.
用flash软件制作动画作品,其中一个场景的时间轴界面如下图6所示。下列说法不正确的是


A.音乐图层中音频时长为8s,测试影片时,音乐与动画同时停止,则同步属性为“数据流” |
B.若仅减慢走路速度,可将帧频调低 |
C.该作品每个场景的动画播放速度均为24fps |
D.“文字”图层中的文字不能修改 |
9.
用GoldWave软件编辑“天空之城.wav”音频文件,当前操作界面如图所示: 
则下列说法正确的是

则下列说法正确的是
A.降低音频音量,音频存储容量也变小 |
B.若点击![]() |
C.若点击![]() |
D.若将该音频另存为mp3格式,音频存储容量不变 |
11.
使用Photoshop软件制作“海贼王”作品,部分界面如图所示。下列说法不正确的是 

A.“路飞”图层不透明度设置成100%后,“路飞”图层中的图像内容将可见 |
B.“乔巴”图层与“背景”图层进行交换后,“乔巴”图层中的图像内容将可见 |
C.“ONE PIECE”图层使用了滤镜效果 |
D.“ONE PIECE”图层设置了图层样式 |
12.
小敏想制作一个多媒体作品来宣传G20杭州峰会,多媒体作品的媒体元素分解表如下:
已获取的素材文件分别填入相应表格中,其中有错误的一项是(选对应序号)
序号 | 元素类型 | 元素内容 | 获取方法 | 文件 |
1 | 文本 | G20杭州峰会简介 | 大会官网 | jj.doc |
2 | 声音 | 背景音乐 | 音乐网站中下载,GoldWave处理 | bj.mp3 |
3 | 图片 | 举办地杭州 | 网上获取,Photoshop处理 | wz.jpg |
4 | 动画 | G20欢迎你 | 自己创作,会声会影处理 | hy.swf |
已获取的素材文件分别填入相应表格中,其中有错误的一项是(选对应序号)
A.1 | B.2 | C.3 | D.4 |
2.填空题- (共4题)
13.
张真同学对数字系统很感兴趣,他已经学会了整数十进制转换为二进制的方法:"除2取余,逆序排列"法。通过查找资料得知,十进制小数转换成二进制小数采用"乘2取整,顺序排列"法。具体做法是:用2乘十进制小数部分,得到积,将积的整数部分取出,再用2乘余下的小数部分,又得到一个积,再将积的整数部分取出,如此进行,直到积中的小数部分为零,或者达到所要求的精度为止。张真同学编写了VB程序如第17题图:程序运行时,在文本框Text1中输入一个带小数的正十进制数(小于32767),点击“进制转换”按钮Command1,在文本框Text2中输出转化后的带小数的二进制数,精确到4位小数。
实现上述功能的VB程序如下,请回答下列问题:

(1)按照本程序的功能,在Text1中输入数据4.125,点击“进制转换”按钮Command1,在Text2中输出 。
(2)请在画线处填入合适的代码:
Private Sub Command1_Click()
Dim k As Integer, i As Integer, pos As Integer, temp As Integer
Dim s As String, c As String, result As String
Dim s1 As Integer,s2 As Single
result = "":i = 1
s = Text1.Text
c = Mid(s, i, 1)
Do While c <> "."
i = i + 1
c = Mid(s, i, 1)
Loop
pos = i
1
s2 = Val("0." + Mid(s, pos + 1,len(s)-pos))
'整数部分s1转化为二进制
temp = s1 Mod 2
result = str(temp) & result
s1 = s1 \ 2
Do While s1 <> 0
temp = s1 Mod 2
result = str(temp) & result
s1 = s1 \ 2
Loop
result = result & "."
'小数部分s2转化为二进制,最多保留4位小数
k = 1
Do While ②
temp = Int(s2 * 2)
result = result & str(temp)
3
k = k + 1
Loop
Text2.Text = result
End Sub
实现上述功能的VB程序如下,请回答下列问题:

(1)按照本程序的功能,在Text1中输入数据4.125,点击“进制转换”按钮Command1,在Text2中输出 。
(2)请在画线处填入合适的代码:
Private Sub Command1_Click()
Dim k As Integer, i As Integer, pos As Integer, temp As Integer
Dim s As String, c As String, result As String
Dim s1 As Integer,s2 As Single
result = "":i = 1
s = Text1.Text
c = Mid(s, i, 1)
Do While c <> "."
i = i + 1
c = Mid(s, i, 1)
Loop
pos = i
1
s2 = Val("0." + Mid(s, pos + 1,len(s)-pos))
'整数部分s1转化为二进制
temp = s1 Mod 2
result = str(temp) & result
s1 = s1 \ 2
Do While s1 <> 0
temp = s1 Mod 2
result = str(temp) & result
s1 = s1 \ 2
Loop
result = result & "."
'小数部分s2转化为二进制,最多保留4位小数
k = 1
Do While ②
temp = Int(s2 * 2)
result = result & str(temp)
3
k = k + 1
Loop
Text2.Text = result
End Sub
14.
扔球进袋游戏是一种体现人思维反应能力的游戏,其思想为将数量有限的桶进行编号,分别为1~n,另有乒乓球m个,乒乓球上可写上1~n之间任意随机数,该随机数存储在数据b(1)~b(m)内。参与者则将所有手中的乒乓球扔入相应编号的桶内,完成后,1~n号桶内的乒乓球数量分别为a(1)~a(n)个,用此方法可以得出原先乒乓球的编号,并以有序的形式呈现。实现上述功能的vb程序如下,请回答以下问题。
(1) 某同学随机抽取了两个乒乓球,发现其编号为1和100,那么数组a的数组范围有可能是
(2) 修改划线处处的代码
dim n as integer,m as integer
Dim a(1 to n) as integer, b(1 to m) as integer
Private sub command1_click()
n=val(text1.text)
m=val(text2.text)
For i=1 to m
b(i)=int(rnd*n)+1
List1.additem str(b(i))
Next i
End sub
Private sub command2_click()
For i=1 to n
a(b(i))= b(i)+1
Next i
For j=1 to m
Do while b(j)<>0
List2.additem str(j)
b(j)= 0
Loop
Next j
End sub
(1) 某同学随机抽取了两个乒乓球,发现其编号为1和100,那么数组a的数组范围有可能是
(2) 修改划线处处的代码
dim n as integer,m as integer
Dim a(1 to n) as integer, b(1 to m) as integer
Private sub command1_click()
n=val(text1.text)
m=val(text2.text)
For i=1 to m
b(i)=int(rnd*n)+1
List1.additem str(b(i))
Next i
End sub
Private sub command2_click()
For i=1 to n
a(b(i))= b(i)+1
Next i
For j=1 to m
Do while b(j)<>0
List2.additem str(j)
b(j)= 0
Loop
Next j
End sub
15.
小婷编写了一个VB程序,实现如下功能,在文本框text1中输入一个4位整数zs,单击解密按钮后,在list1列表框中显示当前zs值降序开始的10位相邻整数“解密前”和“解密后”的信息,运行界面如第图所示。
解密规则:将整数中各个位中的每一位值乘以5,然后除以8所得余数即为该位的值,然后将所得数的首末位进行交换。如数字9357,解密后的值为 3715。

(1)观察程序代码,可知“解密”按钮的对象名是 。
(单选,填字母:
(2)实现上述功能,请在划线处填入合适的代码。
Private Sub Decryp_Click( )
Dim zs As Long, g As Integer, s As Integer, b As Integer, q As Integer
Dim jmh As String, m As Integer
zs = Val(Text1.Text)
For m = zs To ①
q = (m \ 1000) * 5 Mod 8
b = ((m \ 100) Mod 10) * 5 Mod 8
s = ((m \ 10) Mod 10) * 5 Mod 8
g = (m Mod 10) * 5 Mod 8
jmh = ②
List1.AddItem Str(m) + " " + jmh
Next m
End Sub
(3)由上述算法可知,四位数“6124”对应的解密数值是 。
解密规则:将整数中各个位中的每一位值乘以5,然后除以8所得余数即为该位的值,然后将所得数的首末位进行交换。如数字9357,解密后的值为 3715。

(1)观察程序代码,可知“解密”按钮的对象名是 。
(单选,填字母:
A.Command1 | B.List1 | C.Decryp_Click( ) | D.Decryp | E.解密) |
Private Sub Decryp_Click( )
Dim zs As Long, g As Integer, s As Integer, b As Integer, q As Integer
Dim jmh As String, m As Integer
zs = Val(Text1.Text)
For m = zs To ①
q = (m \ 1000) * 5 Mod 8
b = ((m \ 100) Mod 10) * 5 Mod 8
s = ((m \ 10) Mod 10) * 5 Mod 8
g = (m Mod 10) * 5 Mod 8
jmh = ②
List1.AddItem Str(m) + " " + jmh
Next m
End Sub
(3)由上述算法可知,四位数“6124”对应的解密数值是 。
16.
小杜创作主题为“端午节”的多媒体作品。他首先使用Photoshop软件制作一张图片,然后使用Flash软件制作动画。请回答下列问题:

图a
(1)如图 a 所示,当前状态下,下列操作可行的是 (多选,填字母:

图b
(2)如图b所示,“粽子”图层从第1 帧到第45帧实现由 1个粽子逐渐变成 3 个粽子的动画过程,该动画类型属于 (选填:①逐帧动画/ ②动画补间/ ③形状补间)。
(3)如图b所示,测试场景时,发现“背景”图片一闪而过就消失了,若要使背景图片一直存在,对该图层进行的操作是 。
(4)库中的音频素材时长为 10 秒,如图 b 所示,测试场景时,大约 秒钟后会听到声音,本场景播放结束时,声音还在继续播放,声音“同步”属性为 。(事件/数据流)
(5)测试影片时,当前场景播放到 45 帧时停止播放,单击“重播”按钮,影片跳转到“Load”场景的第 1 帧并停止播放,动作图层的α的动作脚本为 。

图a
(1)如图 a 所示,当前状态下,下列操作可行的是 (多选,填字母:
A.修改“端午粽香”的字体类型/ | B.给“端午粽香”图层添加图层样式/ | C.将“端午粽香”从画布右侧移到左侧 / | D.调整图层顺序,将“端午粽香”图层移到“粽子”图层下方)。 |

图b
(2)如图b所示,“粽子”图层从第1 帧到第45帧实现由 1个粽子逐渐变成 3 个粽子的动画过程,该动画类型属于 (选填:①逐帧动画/ ②动画补间/ ③形状补间)。
(3)如图b所示,测试场景时,发现“背景”图片一闪而过就消失了,若要使背景图片一直存在,对该图层进行的操作是 。
(4)库中的音频素材时长为 10 秒,如图 b 所示,测试场景时,大约 秒钟后会听到声音,本场景播放结束时,声音还在继续播放,声音“同步”属性为 。(事件/数据流)
(5)测试影片时,当前场景播放到 45 帧时停止播放,单击“重播”按钮,影片跳转到“Load”场景的第 1 帧并停止播放,动作图层的α的动作脚本为 。
试卷分析
-
【1】题量占比
选择题:(12道)
填空题:(4道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:16