相关试卷
-
1、小明制作主题为“父亲节”的多媒体作品，首先使用 Photoshop软件处理图片，然后使用 Flash软件制作动画。请回答下列问题：(1)、如图a所示，当前状态下，下列操作可行的是（多选，填字母：A .拷贝“感”图层的图层样式粘贴到“恩”图层/B .选中“背景”图层后，调整其不透明度/C .对“感”图层直接添加滤镜效果/D .选中“父亲节”图层后，对其内容进行填充）。
图a
(2)、如图b所示，“文字”图层第20帧到第35帧的动画实现了由“成长有你关怀”字样变为“生活有你呵护”字样的动画效果，该动画类型为（填：动画补间/形状补间/逐帧动画）。
图b
(3)、测试“主界面”场景时，“小鸟1”和“小鸟2”动画同时出现并向舞台左侧飞去，为了使“小鸟2”比“小鸟1”晚1秒出现，应做的调整是。(4)、“退出”按钮元件的部分编辑界面如图c所示。测试影片时发现该按钮无响应区域，为使按钮有效，下列操作不正确的是（单选，填字母：A .选中“按下”帧，执行“插入关键帧”命令/B .复制“弹起”帧，粘贴至“点击”帧/C .选中“点击”帧执行“清除关键帧”命令/D .选中“点击”帧，执行“删除帧”命令）。
图c
(5)、测试影片时，单击“主界面”场景中“退出”按钮，影片跳转到“片尾”场景的第1帧并开始播放，则“退出”按钮的动作脚本为。 -
2、小张收集了2016年浙江省各地级市GDP的数据，并使用 Excel软件进行数据处理，如图a所示。
图a
请回答下列问题：
(1)、区域E3：E14的数据是通过公式计算得到的，并用自动填充功能完成区域E4：E14的计算，则E3单元格中的公式是。(2)、小张操作时不小心删除了D3单元格的内容，则E3显示的内容是（填A . #DIV/0！/B . #VALUE！/C . #REF！）。(3)、根据图a中数据，小张制作了一张图表，如图b所示，创建该图表的数据区域是。
图b
(4)、将区域A2：G14的数据复制到新工作表，在新工作表中相关数据进行筛选操作，筛选设置如图c所示，则按此设置筛选出的城市有个。
图c
-
3、已知一无序数组a中的元素为“90，15，40，72，65，32，81，6”，通过引入数组b存储数组a元素按升序排列时的下标，b数组元素为“8，2，4，6，5，3，7，1”，使得a(b(1)≤a(b(2))≤a(b(3))≤......≤a(b(n))，从而对a数组中的数据进行对分查找。部分程序如下：
i=1: j=8: c=0
key= Val(Textl. Text)
Do While i<=j
m=Int((i+j)/2)
t=b(m)
c=c+1
If a(t)=key Then p=t:Exit Do
If a(t)<key Then
i=m+1
Else
j=m-1
End If
Loop
当文本框 Text1中输入的值为32时，程序运行结束后变量c的值为（ ）
A、1 B、2 C、3 D、4 -
4、有如下VB程序段：
a(1)=91: a(2)=5: a(3)=65: a(4)=8: a(5)=78: a(6)=13: a(7)=29: a(8)=18
For i=2 To 5
tmp= a(i)
L=1
R=i-1
Do While l<= R
M= Fix(L+ R)/2)
If tmp <=a(M) Then R= M-1 Else L= M+1
Loop
j=i-1
Do While j＞=L
a(j+1)=a(j)
j=j-1
Loop
a (L)= tmp
Next i
执行上述代码后，数组a中的元素分别是（ ）
A、5 8 13 18 29 65 78 91 B、5 8 65 78 91 13 29 18 C、91 78 65 29 18 13 8 5 D、91 78 65 8 5 13 29 18 -
5、有如下VB程序段：
a=1: b=1: n=12
f(1)=a: f(2)=b
For i=3 To n
c=a+b
f(i)=c Mod 4
a=b
b=c
Next i
执行该 段程序后,数组元素f(12)的值为（ ）
A、0 B、1 C、2 D、3 -
6、有如下ⅤB程序段：
For i=1 To 10
b(a(i) Mod 10)= b(a(i) Mod 10)+1
b(a(i)\10)=b(a(i)\10)+1
Next i
num=0
For i=0 To 9
If b(i>num Then num b(i)
Next i
数组b各元素初始值为0，数组元素a(1)到a(10)的值依次为“68，17，24，30，36，40，55，58，61，66”，执行该程序段，num的值为（ ）
A、2 B、3 C、4 D、5 -
7、使用 Photoshop软件对“明信片.psd”进行编辑，界面如图所示。
下列说法正确的是（ ）
A、可将“背景”图层的不透明度设置为“0%”，使该图层内容不可见 B、当前状态下使用“向下合并”命令，可得到一个名为“边框2”的图层 C、可以用橡皮擦工具擦去“鱼跃龙门”图层里的“鱼”字 D、将文件保存为“明信片.jpg"，“金鸡”图层的“投影”效果不显示 -
8、使用Goldwave软件编辑某音频时的部分界面截图如下图所示。下列说法正确的是（ ）
A、执行插入1秒“静音”后，左声道10秒位置开始出现1秒静音 B、执行“剪裁”操作后，整个音频只剩下当前选中部分 C、在当前状态下执行“删除”操作与执行“静音”操作效果相同 D、执行“静音”操作后，按原参数进行保存，该音频的存储容量将变小 -
9、某健身中心使用Access件进行会员信息管理。已有“会员信息”表结构及表数据如图所示，下列操作能实现的是（ ）
A、在“会员号”字段中输入“09805” B、在“出生日期”字段中输入“1992/2/30” C、在“联系方式”字段中输入“0571-10106688” D、在“性别”字段中输入“男” -
10、如图所示，以下关于该网页描述正确的是（ ）
A、网页的文件名为“ index.htm” B、网页的标题是“北大简介” C、网页默认的协议是html D、该网页不具备交互性 -
11、物品装袋问题。现有n物品（不超过20个），及一个能装体积不超过y的袋子，分别给出各物品的体积及价值，求装入袋子里的物品价值总和的最大值。请编写VB程序，实现如下功能：在文本框Text1中输入袋子的体积，单击“就算”按钮Command1，在文本框Text2中输出装如袋子里的物品价值总和的最大值，运行效果如图所示。
算法设计：为了使装入袋子的价值总和最大，首先应该把单位价值（该物品的价值÷体积）最大的物品全部放入袋子（如果袋子当前剩余的容量不小于该物品的体积），然后再放单位价值第二的物品，如此往复。当袋子剩余的容量装不下一个完整的物品时，可以将这个物品的部分（若干个单位体积）装入袋子，直到袋子装满。实现上述功能的VB程序如下，请回答下列问题：
物品编号
体积
价值
1
26
19
2
7
14
3
22
11
4
10
22
(1)、根据题意与算法描述，现有4个物品，其对应的体积和价值如表所示，若袋子的体积为30，则装入袋子里的物品最大价值为（四舍五入保留1位小数）。(2)、请在画线处填入合适的代码。Dim v(1 To 20)As Integer '依次存储每个物品的体积
Dim w(1 To 20)As Integer '依次存储每个物品的价
Dim pw(1 To 20)As Double '依次存储每个物品的单位价值
Dim n As Integer '存储物品的总个数
Private Sub Form_Load()
'初始化操作，并将每个物品的体积和价值依次显示在列表框List1中（代码略）
'将物品的个数存入变量n中
'将每个物品的体积依次存入数组v(1)到v(n)中
'将每个物品的价值依次存入数组w(1)到w(n)中
End Sub
Sub sort() '根据每个物品的单位价值进行降序排序
For i=1 To n-1
k=i
For j=i+1 To n
If Then k=j
Next j
If k < >i Then
t=v(i): v(i)=v(k): v(k)=t
t=w(i): w(i)=w(k): w(k)=t
p=pw(i): pw(i)=pw(k): pw(k)=p
End If
Next i
End sub
Private Sub Command1_Click()
Dim i As Integer, k As Integer, t As Integer
Dim p as Double
Dim bw As Integer
Dim tot As Double
bw= Val(Text1.Text)
For i=1 To n
pw(i)=w(i)/v(i)
Next i
For i=1 To n
If bw＞=v(i) Then
tot=tot+w(i)
bw=bw-v(i)
Else
Exit for
End If
Next i
Text2.Text=Str(tot)
End Sub
-
12、数据的有损压缩：对多媒体数据进行有损压缩时，以少量数据丢失作为代价的，比如对某8 bit量化缩为6 bit量化，其算法可简单表示为：逐一删除各个字节的后2 bit，将删除后的6 bit数据首尾相连，然后重新按照8 bit一组构建字节，以十六进制显示。
例如，压缩前的原始数据为：
11111100 010111010 10110000可表示为十六进制：FC 5A B0
删除每字节的后2 bit：
111111 00 010110 10 101100 00
首尾相连构建新的数据：
11 11110101 10101100表示为十六进制：…F5 AC
自此，原数据进行了有损压缩。程序运行界面如下所示，
实现上述算法的VB程序如下，但程序中加框处有误，请改正。
Dim a(1 To 100) As Integer
Const code="0123456789ABCDEF"
Const n=100
Private Sub Form_Load() '以随机数模拟读取原始数据
s=""
Randomize
For i=1 To n
a(i)=Int (Rnd()*16)
Text1.Text=Text1.Text+
'①Next i
End sub
Private Sub Command1_Click()
For i=1 To n
t=t+HtoB(a(i))
Next i
For j=1 To n* 4 Step 8 '每8位一组每8位一组，取前6个字符
s=s+Mid(t, j, 6)
Next j
For i=1 To 4 *(n-1) Step 4 '每4位一组转为十六进制显示
Text2.Text= Text2.Text +BtoH (Mid(s, 1, 4))
Next i
End sub
Function HtoB (x As Integer) As String '十六进十六进制转为二进制函数
t=""
m=0
Do While
'②r=x Mod 2
m=m+1
t= Trim(r)+t 'trim()用于删除前导空格
x=x\2
Loop
HtoB=Mid("0000", 1, 4-m)+t
End Function
Function BtoH (y As String) As String '二进制转为十六进制函数
t1=Val(Mid(y, 4, 1))
t2=Val(Mid(y, 3, 1))
t3=Val(Mid(y, 2, 1))
t4=Val(Mid(y, 1, 1))
s=t1+t2*+t3*4+t4*8
BtoH= Mid(code,s+1,1)
End Function
(1)、①处加框代码应改为。(2)、②处加框代码应改为。 -
13、小张制作主题为“端午节”的多媒体作品。他使用PhotoShop软件制作一张背景图片，然后使用Flash软件制作动画。请回答下列问题：
(1)、如图a所示，当前状态下，下列说法正确的是（多选，填字母：A .“端午情”图层不能直接添加滤镜/B .“菖蒲”图层的各图层效果均可见/C .“粽子”图层不能直接添加图层样式D .“背景”图层可以直接删除）。(2)、如图b所示，“爱心”图层的补间动画持续时间是秒（保留整数），该动画类型是（填：形状补间/动画补间）。
(3)、测试影片时，发现动画播放过程中背景图突然消失，现在要求背景图一直出现在舞台上，请写出正确的操作方法。(4)、测试影片时，单击“按钮”图层最后一帧的“退出”按钮，实现跳转到“片尾”场景的第1帧并停止播放动画，则该按钮的动作脚本是。 -
14、某同学收集了浙江省2017年第一季度消费者信心指数的统计数据，并使用Excel软件进行数据处理，如下图表格所示。
请回答下列问题：
(1)、要计算各地就业信心指数与全省的差距，可先在F2单元格中输入公式，再用自动填充功能完成区域F3:F12的计算，则F2单元格中的公式是（提示：各地就业信心指数与省差距=各城市就业信心指数-全省就业信心指数），若将C2单元格的小数位数设置为1位，则F2单元格内的数值会（填变大/不变/变小）。(2)、若要制作一张图表来反映各城市的消费者信心总指数情况，则应选择的数据区域是。(3)、将区域A1:F12的数据复制到新工作表，在新工作表中对“收入信心指数”和“消费意愿指数”进行筛选操作，筛选设置均如下图所示，则按此设置给指出的城市为（填城市名称）。
-
15、小张编写程序，实现把数据temp插入到升序序列中，得到一个新的升序序列，原升序序列各元素已依次存放在数组元素a(1),a(2),a(3),……,a(n)中。他编写的VB程序段如下：
If temp>=a(n) Then
a(n+1)=temp
Else
j=n
Do While j>=l And temp<a(j)
j=j-1
Loop
End If
要使程序实现上述功能，则方框①②中的语句分别是（ ）
A、a(j+1)=a(j)a(j+1)=temp B、a(j)=a(j-1)a(j+1)=temp C、a(j+1)=a(j)a(j)=temp D、a(j)=a(j-1)a(j)=temp -
16、编写VB程序，实现如下功能：在文本框Text1中输入一个大于1000的正整数，单击按钮Command1后会去除其中3个数字，保证余下的数字在不改变顺序的情况下其数值最大，然后在文本框Text2中输出该数。
Private Sub Command1_Click()
Dim s As string
Dim n As Integer, w As Integer
s=Text1.Text
For i=1 To 3
n=Len(s):w=1
For j=2 To n
If ________ Then w=j Else Exit For
Next j
s=Mid(s,1,w-1)+Mid(s, w+l, n-w)
Next i
Text2.Text=s
End Sub
画线处的正确代码为（ ）
A、Val(Mid(s,w,1))<=Val(Mid(s,j,1)) B、Val(Mid(s,j,1))<=Val(Mid(s,j+1,1)) C、Val(Mid(s,w,1))>=Val(Mid(s,j,1)) D、Val(Mid(s,j,1))>=Val(Mid(s,j+1,1)) -
17、某对分查找算法的VB程序如下：
c=0: i=1: j=8
key=Val(Text1.Text)
f= False
Do While i<=j And Not f
m=Fix((i+j)/2+0.5)
c=c+1
If key=d(m) Then
f= True
Else If key>d(m) Then
j=m-1
Else
i=m+1
End If
Loop
数组元素d(1)到d(8)的值依次为“97，79，68，48，35，23，18，10”，若运行该程序段后，c的值为2，则文本框Text1中输入的值是（ ）
A、68或18 B、68或23 C、79或23 D、79或18 -
18、已知数组a(1)到a(6)的原始数据为“118”，“36”，“98”，“15”，“88”，“2”，对该数组进行排序操作，某同学编写了以下VB程序：
For i=1 To 3
For j=6 To i+1 Step-1
If a(j)<a(j-1) Then
t=a(j):a(j)=a(j-1):a(j-1)=t
End if
Next j
Next i
则程序运行之后，数组a(1)到a(6)的值依次为（ ）
A、“118”，“15”，“2”，“36”，“88”，“98” B、“118”，“15”，“36”，“88”，“98”，“2” C、“2”，“15”，“36”，“118”，“88”，“98” D、“2”，“15”，“36”，“88”，“98”，“118” -
19、使用Photoshop软件制作“香港回归20周年”作品，部分界面如图所示
下列说法正确的是
A、“1997年-2017年”图层中使用了滤镜效果 B、“紫荆花”图层可以拖动到“1997年-2017年”图层的上方 C、“背景”图层可以使用“自由变换”命令将其缩小 D、将作品存储为JPEG格式文件，会呈现“香港回归20周年”图层中的3种图层样式效果 -
20、下图所示是Access数据库中的student数据表，以下说法正确的是（ ）
A、当前状态下执行“新记录（W）”命令，则新添加的记录位于第3行位置 B、当前为数据视图，无法将“性别”字段修改为文本类型 C、新建记录时，无法在“出生日期”字段输入“一九九六年六月一日” D、存储“性别”字段的值，需要的存储空间为1 bit