相关试卷
-
1、使用Goldwave软件编辑某音频时的部分界面截图如图所示：
下列说法正确的是（ ）
A、该声音文件为单声道文件，名为“致青春.mp3” B、该声音文件设置了淡入效果 C、执行“删除”操作后，该声音文件长度为35秒 D、执行“剪裁”操作后，被选中的部分音频将变成“静音” -
2、某数据加密方法描述如下：
⑴以字节为单位进行加密处理；
⑵将1个字节的8位二进制数分割成前4位与后4位两个二进制数；
⑶分别将上述两个4位二进制数转换为十进制数；
⑷将每个十进制数转换为1个加密字符，对应的“密码表”如下：
值(十进制)
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
加密字符
I
l
i
k
e
C
H
N
P
0
s
t
c
a
r
d
小明按照上述方法，设计了一个字符串（仅包含ASCII字符）加密的VB程序，功能如下:单击“加密”按钮Commandl,程序依次将文本框Textl中每个字符的ASCII码值作为1个字节转换为两个加密字符，连接这些加密字符，最后在文本框Text2中输出加密结果。下表显示了字符串中一个字符的加密过程：
程序运行效果如图所示。
实现上述功能的VB程序如下：
(1)、请在划线处填入合适代码。Private Sub Command1_Click()
Dim n As Integer, s As String, i As Integer, ss As String
Dim a As Integer '存储加密前字符的ASCII码
Dim b1 As Integer, b2 As Integer '分别存储分割、转换后的两个十进制数
s = Text1.Text
For i = 1 To n
a = Asc(Mid(s, i, 1))
b1 = a \ 16
b2 = a Mod 16
ss = ss + Code2Char(b1) + Code2Char(b2)
Text2.Text = ss
Next i
End Sub
'十进制值转换为加密字符的函数
Function Code2Char(c As Integer) As String
Dim s As String
s = "IlikeCHNpostcard"
Code2Char =
End Function
(2)、若将“密码表”中值为“0”对应的加密字符“I”改成“i”，加密后的密文可能无法解密，原因是 。 -
3、n个数据的冒泡排序需要经过n-1遍加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此，小刘对算法进行优化，编写了一个VB程序，功能如下：运行程序时，在列表框List1中显示排序前数据，单击“排序”按钮Commaiid1，在列表框List2 中显示这些数据按升序排序后的结果，在标签Label3中显示排序过程的加工遍数。运行效果如图所示。
实现上述功能的VB代码如下，但加框处代码有错，请改正。
Dim a(1 To 8) As Integer
Dim n As Integer
Private Sub Form_Load()
'n=8，排序前数据存储在数组a中，并在列表框Listl中显示
'代码略
End Sub
Private Sub Command1_Click()
Dim flag As Boolean 'flag值为True表示一遍加工中发生过交换
i = 1
flag = True
Do While
'（1） flag = False
For j = n To i + 1 Step -1
If a(j) < a(j - 1) Then
k = a(j): a(j) = a(j - 1): a(j - 1) = k
flag = True
End If
Next j
i = i + 1
Loop
Label3.Caption = "排序过程的加工遍数为+
" '（2）For i = 1 To n
List2.AddItem Str(a(i))
Next i
End Sub
⑴ ⑵
-
4、小吴创作“狐狸和乌鸦”故事的多媒体作品。她首先使用Photoshop软件制作一张背景图片，然后使用Flash软件制作动画。请回答下列问题
图1
图2(1)、如图1所示，Photoshop画布中的“背景”、“树”和“标题”3个元素分别放在不同的图层中，这种将组成作品的各元素分图层处理的手段有许多优点，其中包括: (多选，填字母。注：选对且选全得满分,不选或选错不得分,少选且选对得部分分。）A、方便设置各元素的大小和颜色 B、节约作品的存储空间 C、提高图像的分辨率 D、灵活调整各元素之间的位置关系/ E、独立设置各元素的滤镜效果(2)、按图1所示的图层设置，将作品存储为BMP格式的图像，该BMP图像中的文字 (选填:有/没有）投影效果。(3)、如图2所示，若将动画的帧频设置为6fps，则Main场景开始播放后，经过约秒，“狐狸声音”图层中的音频才开始播放。(4)、如图2所示，“背景”图层第1帧到第7帧的补间动画实现了“背景图片”实例从完全透明到完全显示，第1帧中“背景图片”实例的Alpha值是。(5)、如图2所示，舞台上“重播”字样的实例来源于库中“重播”按钮元件。改变该实例的宽度,库中“重播”按钮元件的宽度 (选填:会/不会)作相应改变。(6)、如图2所示，测试Main场景时，动画播放到第45帧自动停止。则“控制”图层第45帧的帧动作脚本是。 -
5、编写VB程序，实现如下功能:在文本框Textl和Text2中分别输入一个整数，单击命令按钮Command1,在列表框List1中显示结果，运行效果如图1所示。结果包含两列数据，第1列为两数之间的摄氏温度值（间隔1度、升序），第2列为对应的华氏温度值。
(1)、要使命令按钮Command1上显示的文本改为“转换”，可在其属性窗口（图2）中将属性的属性值修改为“转换”。(2)、为实现上述功能，请在划线处填入合适代码或选项。Private Sub Command1_Click()
Dim t1 As Integer, t2 As Integer
Dim i As Integer, t As Integer
Dim f As Single
List1.Clear
t1 = Val(Text1.Text)
t2 = Val(Text2.Text)
If ① Then '(选填字母,从下列A、B、C、D四个选项中选取一项）
t = t1: t1 = t2: t2 = t
End If
i = t1
Do While ② '(选填字母,从下列A、B、C、D四个选项中选取一项）
f = i * 9 / 5 + 32 '摄氏温度转换为华氏温度
List1.AddItem Str(i) + " " + Str(f)
③ '（填程序代码）
Loop
End Sub
划线①、②处的选项: A. i <= t2 B.f <= t2 C.t1 > t2 D. i < f
-
6、小张收集了某城市20种主要食品平均价格的数据，并用Excel软件进行数据处理，如图1所示。请回答下列问题：
图1
(1)、在图1所示工作表中，区域G4：G23中的数据是通过公式计算得到的：选择该区域中的一个单元格，输入公式，然后用自动填充功能完成其他单元格的计算。 G4单元格的公式是。(提示：涨跌幅（％) =(本期价格(元)-上期价格(元))/上期价格(元)×100)
(2)、为了更加直观地比较蔬菜类价格波动情况，小张制作了如图2所示的图表。 该图表的数据区域是B3,B18:B23,E3:F3,。
图2
(3)、若将F23单元格中的数据改为7.06，则图表中“豆角”的“本期价格（元）”对应的数据条将 (选填:升高/不变/降低）。
(4)、为了筛选出上期价格和本期价格相同的所有食品，应对列设置筛选条件。
-
7、有如下VB程序段：
Dim a(l To 5) As Integer, i As Integer, c As Integer
a(l) = 2 : a(2) = 1 : a(3) = 3 : a(4)=4 : a(5) = 5
c=0
For i = 3 To 5
If a(i - 2) + a(i - 1) = a(i) Then c = c + 1
Next i
Textl. Text = Str(c)
该程序段运行后，文本框Textl中显示的内容是（ ）
A、1 B、2 C、3 D、4 -
8、已知单调函数 在[0，1]区间存在一个 ，使 。现用对分查找法搜索 的值，开始搜索区间为[0，1]，若经过10次对分查找后还需继续搜索，则第11次搜索区间的长度为（ ）
A、1/2 B、1/10 C、 D、 -
9、将一个时长为1分钟、采样频率为44.1kHz、量化位数为16、双声道未经压缩的Wave格式音频文件压缩为MP3格式文件，压缩后的MP3格式文件大小为940KB，则其 压缩比约为（ ）A、11 : 1 B、11 : 2 C、11：4 D、88 : 1
-
10、某Flash作品的部分时间轴界面如图所示。
下列描述与图中信息不相符的是（ ）
A、“背景”图层中的内容从第1帧延续到第45帧 B、当前播放头位于第30帧 C、“声音”图层中的声音与“蜜蜂”图层中的动画同时开始播放 D、“蝴蝶”图层中的动画与“蜜蜂”图层中的动画持续帧数相同 -
11、小李想用Photoshop软件对图1所示的图像进行加工处理，得到如图2所示的效果。
则下列操作可行的是（ ）
A、水平翻转，并进行羽化处理 B、缩放图像，并进行描边处理 C、顺时针旋转90度，并设置图层样式为“投影” D、垂直翻转，并添加“镜头光晕”滤镜效果 -
12、用24位二进制数来表示的RGB颜色，将其每位二进制数取反（0改为1，1改为0),即变为 另一种颜色，这种操作称为颜色反相。若某RGB颜色值用十六进制表示为123456H,则其 反相后的颜色值用十六进制表示为（ ）
A、654321H B、987654H C、EDCBA9H D、FEDCBAH -
13、人类对图像的分辨能力约为26灰度等级，而图像量化一般采用28灰度等级，超出人类对图像的分辨能力，这种冗余属于（ ）A、结构冗余 B、视觉冗余 C、时间冗余 D、空间冗余
-
14、某算法的部分流程图如图所示。执行这部分流 程后，“x←x—2”被执行的次数为（ ）
A、0 B、1 C、2 D、3 -
15、对于数据库和数据表，下列说法正确的是（ ）A、数据库应用系统可以完全脱离数据库管理系统独立运行 B、一个数据库管理系统可以管理多个数据库 C、Access数据表由行和列构成，每一行称为一个字段，每一列称为一条记录 D、Access数据表同一列中各数据的类型可以不相同
-
16、下列应用中，使用了光学字符识别（OCR)技术的是（ ）
A、用视频监控系统监测景区内游客拥堵情况 B、在字处理软件中通过语音输人文字 C、某字典软件通过拍摄自动输人英语单词，并显示该单词的汉字解释及例句 D、用数码相机拍摄练习题并通过QQ以图片方式发送给同学，与同学交流解题技巧 -
17、小明用IE浏览一个图文并茂的网页，地址栏信息为“http://www.zjedu.gov.cn /default.html”。下列描述不正确的是（ ）
A、网页中图像的全部信息保存在default,html文件中 B、该网页的URL为“http://www.zjedu.gov.cn/default.html” C、网页内容是用HTML(超文本标记语言）描述的 D、HTTP协议用于浏览器与Web服务器之间的信息传输 -
18、下列有关信息的说法，正确的是（ ）A、用搜索引擎搜索到的信息都是可信的 B、信息的载体可以是文字，也可以是图像、声音等 C、青少年应拒绝浏览因特网上信息，以维护身心健康 D、电子邮件是一种常用的信息交流工具，邮件发送者不必拥有电子邮箱
-
19、下列VB程序的功能是：程序运行时，单击命令按钮Commandl后，产生10个[1，999]范围内互不相同的随机整数，依次显示在列表框List1中，然后将它们按从小到大的顺序排序，排序结果显示在列表框List2中。
数组a用于存储产生的10个随机整数，函数f(x)用于判断随机整数x与已生成的整数是否有重复，若有重复则返回True，否则返回False。
(1)、虚线框内程序段所采用的排序算法名称是。（填：冒泡排序/选择排序）(2)、在程序(1)和(2)划线处，填入适当的语句或表达式，把程序补充完整。Dim a(1 To 10) As Integer
Function f(x As Integer) As Boolean
′代码略
End Function
Private Sub Commandl_Click()
Dim n As Integer ′n用于统计已经产生的随机整数个数
Dim i As Integer.j As Integer
Dim x As Integer.k As Integer
Randomize ′初始化Rnd函数
n=0
List1.Clear ′清除列表框中内容
List2.Clear
Do While n<10
x=Int(Rnd*999)+1 ′产生[1，999]范围内的随机整数
If Not f(x) Then
n=n+1
a(n)=x
List1.AddItem Str()
End If
Loop
For i=1 To 9 ′进行排序
For j=10 To i+1
If a(j)<a(j-1) Then
k=a(j):a(j)=a(j-1):a(j-1)=k
End If
Next j
Next i
For i=1 To 10
List2.AddItem Str(a(i))
Next i
End Sub
-
20、输入一个三位数的整数，要求将此三位数的各位上的数字重新排列，组成一个尽可能大的三位数。例如：输入213，重新排列可得到尽可能大的三位数是321。
现要求编写VB程序（运行界面图所示），实现如下功能：在文本框Text1中输入一个三位数整数，单击“求解”按钮Command1，在文本框Text2中显示重新组合后的最大三位数整数。某同学按此要求编写的程序如下，其中函数max(x)用于求解最大三位数整数，但加框处代码有错，请改正。
① ②
Function max(x As Integer) As Integer
Dim a As Integer, b As Integer, c As Integer, t As Integer
a = x \ 100
b = (x \ 10) \ 10 ' ①
c = x mod 10
If a < b Then t = a: a = b: b = t
If a < c Then t = a: a = c: c = t
If b < c Then t = c: c = b: b = t
max = c* 100 + b * 10 + a ' ②
End Function
Private Sub Command1_Click()
Dim n As Integer, y As Integer
n = Val(Text1.Text)
y = max(n)
Text2.Text = Str(y)
End Sub
