学进去

小杨使用Flash软件创作“三打白骨精”故事的多媒体作品。片头场景的制作脚本如下表，时间轴和舞台界面如图a所示。请回答下列问题。

场景名：片头	类别编号：1-1
进入方式：播放动画时，直接进入 场景界面元素：黑色的舞台背景；文字“西游记”，图片，文字“三”，文字“打白骨精”，背景音乐，“进入”按钮。
呈现方式： ①   “西游记”图层的文字在舞台中间，前1秒实现从小到大变化效果，后1秒现从有到无的淡出效果。 ②   “图片”图层的图片铺满整个舞台，实现从无到有的淡入动画效果，持续2秒。 ③   “三”图层的文字在舞台的左侧，实现顺时针旋转2圈的动画，并静止到最后。 ④   “打白骨精”图层的文字直接出现在舞台的左下部。 ⑤   单击右下角的“进入”按钮，停止背景音乐，并开始播放“故事”场景。	呈现顺序说明： 一开始就出现“西游记”的动画，2秒后，文字消失；动画播放到1秒时响起背景音乐，同时出现“图片”动画；2秒时，出现“三”的动画，同时出现“打白骨精”；最后，出现“进入”按钮，并停止播放动画。 解说词：无

 

图a
（1）已知“三”图层中文字的实例属性在起、止关键帧中一致，结合图a及制作脚本，“三”字的动画应为：_______（A、动画补间  B、形状补间 C、两者均可），“三”字在舞台呈现的时间为________秒。
（2）图a中时间轴面板各图层对象的呈现顺序，与脚本要求不相符的是_____________图层。
（3）图a库面板“片头”文件夹中共有__________个图形元件。
（4）根据脚本要求，“进入”按钮上添加的动作脚本为______________________________。
（5）测试影片时，鼠标移到“进入”按钮上时指针未变成小手形状。该按钮元件的编辑界面如图b所示，为解决该问题，可采取的的操作有__________________（多选，填字母：A．对“文字”图层的指针经过关键帧进行清除关键帧操作；B．对“文字”图层点击关键帧进行删除帧操作；C．在“文字”图层点击关键帧中绘制一个较大的矩形；D．对“背景”图层点击帧进行删除帧操作；E．对“背景”图层按下关键帧进行清除关键帧操作）。

图b

用Flash软件打开“全民抗疫.fla”文件,编辑界面如图所示。

请回答下列问题:
(1)根据多媒体作品的设计流程,下列操作应在“制定脚本大纲”环节之后的是______(多选,填字母:A.确定该作品的适用人群/B.编写该作品的文字脚本/C.根据需求确定该作品的结构类型/D.将该作品所涉及的媒体元素逐一列出/E.确定该作品通过光盘和网络发布)。 
(注:全部选对的得2分,选对但不全的得1分,不选或错选的得0分)
(2)图中“万众一心”图层第13帧到第40帧实现了文字实例“万众一心抗击疫情”由小到大且由透明到完全显示的变化效果,则该动画的类型是______(选填:逐帧动画/动画补间/形状补间)。 
(3)“音乐”图层添加了一段时长为20秒的音频文件,小姜发现动画结束后声音仍在播放,由此可判断当前音频的同步方式为______。 
(4)为使“抗疫医生2”图层中的实例在“抗疫医生1”图层中的实例出现1秒后再出现,应进行的操作是____________________________。 
(5)为使在“片头”场景播放完后跳转到“篇章一”场景第一帧开始播放,可在____图层第70帧添加帧动作命令_______________。

四则混合运算是指加法、减法、乘法和除法四种混合运算。现有一程序可计算不带括号的“＋”、“－”、“*”三则混合运算。在文本框Text 1中输入表达式（保证符合数学规范），单击“=”按钮Command 1后，在标签Label l中输出运算结果，程序界面如图所示。

（1）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command l_Click（）

Dims As String，ch As String

Dim i As Integer，t As Integer

Di mans As Long，px As Long

s=Text l.Text

ans=0：t=0：px= 1

For i=1 To Len（s）

ch=Mid（s，i，1）

If_______Then

t=t*10+Val（ch）

Else
px=px*t

If ch="+"Then ans=ans+px px=1 End If

If ch="_"Then
_______
px=-1
End If
t=0
End If
Next i
Label 1.Caption=Str（ans+_______）
End Sub
（2）若删除加框处代码，在文本框Text l中输入表达式“3-2+2*3”，程序运行结束时标签Label l中显示的内容为______。

小张基于冒泡排序算法编写了一个VB程序，功能如下：在Text1中输入不超过100个英文字母的字符串，单击“输出”按钮Command1，在Text2中将显示按升序排列后的结果（字母相同时，小写字母在前）。程序运行界面如下图所示。

（1）在Text1中输入Excel，则Text2中输出结果为______。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_ Click（）
Dim a（1 To 100） As Integer '记录输入字符的ASCII码值
Dim b（1 To 100） As Boolean '记录字母大小写情况
Dim a_t As String, b_t As Boolean, i As Integer, j As Integer, n As Integer
n = Len（Text1.Text）
For i = 1 To n
a（i） = _________
If a（i） >= Asc（"a"） And a（i） <= Asc（"z"） Then
a（i） = a（i） - 32
__________
Else
b（i） = False
End If
Next i
For i = 1 To n - 1

For j = n To i + 1 Step -1

If a（j） < a（j - 1） Or __________Then

a_t = a（j）: a（j） = a（j - 1）: a（j - 1） = a_t
b_t = b（j）: b（j） = b（j - 1）: b（j - 1） = b_t
End If
Next j
Next i
Text2.Text = ""
For i = 1 To n
If b（i） = True Then
Text2.Text = Text2.Text + Chr（a（i） + 32）
Else
Text2.Text = Text2.Text + Chr（a（i））

End If

Next i
End Sub

小李编写了“数字游戏”的 VB 程序，功能是查找符合下列条件的3 个三位数：
①3 个数中包含 1-9 的全部数字，且不重复；
②3 个数的大小之比为 1：2：3。
如“192、384、576”是符合规则的一种组合。
现编写程序功能如下：单击“计算”按钮 Command1，在列表框 List1 中输出符合条件的数字组合，在标签 Label1 中输出组合数量。程序运行界面如图所示。

（1）上图程序运行界面中，有 Caption 属性的对象共_______ （填数字）类。
（2）实现程序功能的 VB 代码如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim f(0 To 9) As Integer
Dim i As Long, j As Integer, s As Integer
Dim tmp As Long, t As Integer, count As Integer
count = 0
For i = 123 To 333
For j =①______ 
f(j) = 0
Next j
tmp = i + 2 * i * 1000 + 3 * i * 1000000
Do While tmp > 0
t =②_____ 
tmp = tmp \ 10
f(t) = 1
Loop
s = 1
For j = 1 To 9
s = s * f(j)
Next j
If③______ Then
List1.AddItem Str(i) + Str(2 * i) + Str(3 * i)
count = count + 1
End If
Label1.Caption = "共有" + Str(count) + "种组合"
Next i
End Sub

给定一个字符串（由字母、空格、句末点号组成，单词中不出现其它符号），你需要反转字符串中每个单词的字符顺序且输出均为大写字母，同时仍保留单词的初始顺序、空格和句末点号。小李同学编写的“字符反转”VB程序如下，文本框Text1中输入的是反转前字符串，单击“反转”按钮后，在文本Text2中输出字符串反转结果，程序运行界面如图所示。

（1）请在划线处填入合适的代码。
（2）观察程序运行界面和阅读下面程序可知，原字符串输入“ShanShui LianMeng”单击“反转”按钮的则反转结果输出____________
Private Sub Command1_Click（）
Dim a（1 To 20）As String
Dim n，m，i，j As Integer
Dims，s1，s2 As String
s1=Textl. Text：n=Len（sl）
m=0：s=""
For i=1 To n
If Mid（s1，i，1）="" Or Mid（s1，i，1）="." Then
m=m+1
a（m）=s
s=""
Else
________________________________
End If
Next i
For j=1 To m
n=Len（a（j））
For k=1 To n
_______________________________
If t﹥="a" And t<="z" Then
____________________________
s2=s2+t
Else
s2=s2+t
End If
Next k
Text2. Text=Text2. Text+s2
s2=" "
Next j
Text2. Text=Text2. Text & "."
End Sub

小李编写VB程序，实现如下功能：在文本框Text1中输入一个“十六进制数”（注：包含小数），例如：在文本框Text1中输入A2.4，单击“转换”按钮Command1，在文本框Text2中输出该十六进制对应的十进制数，运行界面如图所示。

（1）为实现上述功能，请在划线处填入合适的代码，使程序正常运行。
Private Sub Command1_Click()
Dim i As Integer, x As String, n As Integer, m As Integer

Dim y As Integer, s As Single, r As String

    x = Text1.Text   
n = Len(x)               '求长度
m = InStr(x, ".")        '找小数点的位置
s = 0
For i = 1 To n
r = Mid(x, i, 1)
If r >= "0" And r <= "9" Then  y = Val(r)
If r >= "A" And r <= "F" Then  y = _______
If i < m Then  s =___________             '整数部分
If i > m Then  s = s + y * 16 ^ (m - i)  '小数部分
Next i
Text2.Text = _______ + "D"
End Sub
（2）在文本框Text1中输入“A.8”，则在文本框Text2中输出结果是______。

小李编写了一个实现矩阵行列转换功能的VB程序，运行界面如图所示。程序运行时，生成数组a的值并在列表框List1中显示，在文本框Text1中输入要转换的行列序号（相同），单击“转换”按钮Command1后，在列表框List2中显示转换后的矩阵。

实现上述功能的VB程序如下，请回答下列问题:
（1）要让窗体左上角显示“矩阵转换”文字，应该通过修改该窗体的______（单选，填字母:A．Font/B．Caption/C．Text）属性
（2）请在划线处填入合适的代码。
Const k＝5
Dim a（1 To k * k）As Integer
Private Sub Form_Load（）
‘生成数组a并以矩阵形式显示在列表框list1中
End Sub
Private Sub Commandl_Click（）
Dim b（1 Tok，k * k）As Integer
Dim n As Integer
Dim row As Integer，col As Integer
Dim s As String
s＝＂＂
n＝Val（Text1．Text）
For i＝1 To k * k
row＝（i－1）\k＋1
__________
If row＝n Then
b（i）＝a（（col－1）*k＋n）
ElseIf col＝n Then
______________
Else
b（i）＝a（i）
End If
s＝s＋Str（b（i））
If_________Then
List2．AddItem s
s＝＂＂
End If
Next i
End Sub

使用 Flash 软件创作“垃圾分类宣传”作品，其中“主界面”场景的制作脚本如下图所示：

（1）有关多媒体作品设计和本作品的制作脚本，下列说法正确的是____(多选，填字母)。
A.根据创作方法和特点划分，Flash软件属于以时间序列为基础的多媒体创作工具。
B.要了解整个作品的组成部分、工作流程和主要界面，可查阅其应用需求分析报告。
C.制作脚本不是多媒体作品制作的直接依据
D.在片头场景，至少存在一个按钮
E.脚本中描述的“垃圾”文字和“分类”文字的动画效果，都可以用动画补间来实现。

（2）如上图所示，“从我做起”图层已经被隐藏，则导出“.swf”动画后该图层内容是否可见______（选填：是/否）。
（3）根据测试动画时发现，垃圾图层中的“垃圾”文字的动画效果未符合制作脚本中出现时间的要求，需进行修改，则下列操作可行的有____（多选，填字母）

A.选择“垃圾”图层第1帧执行“清除关键帧”操作，然后将第20帧移动到第10帧

B.选择“垃圾”图层第11帧移动到第1帧，然后将第20帧移动到第10帧

C.选择“垃圾”图层第20帧执行“剪切帧”，选择该图层1帧执行粘贴帧操作

D.选择“垃圾”图层第11帧至第20帧，移动至第1帧

E.选择“垃圾”图层第11帧执行“清除帧”操作，然后将第20帧移动到第10帧

（4）该场景播放至最后一帧，动画停止播放，音乐继续播放，并且出现“垃圾危害”按钮，则音乐的同步属性为：_____（填：数据流/事件）。单击该按钮，实现音乐停止播放并且场景跳转至下一场景第一帧停止播放，在该按钮上添加的动作脚是___。

在平面直角坐标系中，给定一个矩形左下和右上2个坐标点即可确定该矩形，例如左下（1，1）、右上（5，4），则矩形如图a所示。

图a
现给定若干个小矩形的坐标点，要求判断能否构建出一个新的大矩形，在大矩形中，各构成的小矩形无重叠，无空白。
例1：给定的5个小矩形能够精确构建一个坐标为（1，1）、（5，4）的大矩形。

小矩形左下，右上坐标如下：	5个小矩形精确构建一个大矩形：
矩形1：（1，1），（3，3） 矩形2：（3，1），（4，3） 矩形3：（4，1），（5，3） 矩形4：（1，3），（4，4） 矩形5：（4，3），（5，4）

 
例2：给定的3个小矩形，有相交区域，有空白区域，不能精确构建成一个大矩形。

矩形1：（1，1），（3，3） 矩形2：（2，2），（4，3） 矩形3：（4，1），（5，3）

在任何两个小矩形坐标不完全相同的情况下，判定能否精确构建大矩形的算法如下：
构成的大矩形面积等于每个小矩形的面积之和；
获取每个小矩形的所有坐标点，有且仅有四个点只出现一次，其他坐标点成对出现。
（1）给定3个矩形左下和右上坐标依次为[2，4] ，[5，5]，[3，2] ，[4，4]，[4，2] ，[5，4]，请你再添加一个矩形坐标，使4个矩形精准构建一个大矩形，则添加矩形左下和右上坐标依次为_____。 
（2）根据上述算法描述，用VB程序实现代码如下，请在画线处填入合适的代码。
Const n = 5'常量n存储小矩形个数
Dim a(1 To 2 * n)As Integer '存储每个小矩形给定X轴坐标
Dim b(1 To 2 * n)As Integer '存储每个小矩形给定Y轴坐标
Private Sub Form_Load()
'本过程读取每个小矩形X轴坐标存储在数组a中、每个小矩形Y轴坐标存储在数组b中,并在List1中显示.代码略
End Sub
Private Sub Command1_Click()
Dim c(1 To 4 * n)As Integer '存储每个小矩形所有X轴坐标,1~2 * n存左下和右上,2 * n+1~4 * n存左上和右下
Dim d(1 To 4 * n)As Integer '存储每个小矩形所有Y轴坐标,1~2 * n存左下和右上,2 * n+1~4 * n存左上和右下
Dim mc(1 To 4 * n)As Integer '记录所有坐标是否成对重复,不重复为1,重复为0
Dim temp As Integer
Dim i As Integer, j As Integer, f As Integer
Dim sum As Integer, sumt As Integer, count As Integer
For i = 1 To 2 * n Step 2
　　sum = sum + (a(i + 1)- a(i))* (b(i + 1)- b(i))
Next i
f = 1
For i = 1 To 2 * n
　　c(i)= a(i)
　　c(n * 2 + i)= a(i)
　　d(i)= b(i)
　　d(n * 2 + i)= b(i + f)
　　①___
Next i
For i = 1 To 4 * n - 1
　　For j = 1 To 4 * n - i
　　　　If c(j)> c(j + 1)Or c(j)= c(j + 1)And d(j)> d(j + 1)Then
　　　　　temp = c(j): c(j)= c(j + 1): c(j + 1)= temp
　　　　　temp = d(j): d(j)= d(j + 1): d(j + 1)= temp
　　　　End If
　　　Next j
Next i
sumt =②___
If sum <> sumt Then
　　Label1.Caption = "不能精确构建"
　　Exit Sub '结束当前过程,不再执行后续程序
Else
　　For i = 1 To 4 * n
　　　　mc(i)= 1
　　Next i
　　i = 1
　　Do While i < 4 * n
　　　　If c(i)= c(i + 1)And d(i)= d(i + 1)Then
　　　　　　mc(i)= 0: mc(i + 1)= 0
　　　　　　i = i + 2
　　　　Else
　　　　i = i + 1
　　End If
Loop
count = 0
For i = 1 To 4 * n
　　③___
Next i
If count =4 Then Label1.Caption = "能精确构建" Else Label1.Caption = "不能精确构建"
End If
End Sub