寞寞 沉沉 寞寞 沉沉

15．小明要创作雅加达亚运会的多媒体作品，他首先使用Photoshop软件处理图片，然后使用Flash制作动画，请回答下列问题：

第15题 图a

（1）如图a所示，要将乒乓球拍之外的背景区域去除，并保存成透明背景，导入到flash后，不会遮挡其他内容，下列操作行的是 (多选，填字母：A．将“背景”图层用颜色值RGB(255,0,0)填充，再将文件另存为PNG格式/ B．删除“背景”图层，再将文件另存为GIF格式/ C．去掉“背景”图层前的眼睛，再将文件另存为JPG格式/ D．直接调整“背景”图层的不透明度为0，再将文件另存为GIF格式/ E．去掉“背景”图层前的眼睛，再将文件另存为GIF格式/ F．将文件直接“另存为”PNG格式)。 (注：全部选对的得2分，选对但不全的得1分，不选或有选错的得0分）

第15题 图b

（2）若要使“背景”图层第20帧的画面一直持续到本场景动画结束，应进行的操作是： 。

·9·

第15题 图c

（3）按钮“Exit”制作界面如图c所示，则“Exit”按钮 （填：能/不能）响应鼠标事件；测试影片时，单击“Exit”按钮跳转到“片尾”场景第1帧开始播放并停止音乐，则“Exit”按钮的脚本命令为 。 （4）测试场景时，Flash会导出一个名为 的文件。

16.小明编写了一个字符串加密程序，运行界面如图所示。功能如下：在文本框Text1中输入明文，在文本框Text2中输入密钥（密钥值在1到25之间），单击“加密”按钮Command1后，在标签Label1中输出密文。加密算法如下：

（1）若是字母，则将其变为按字母顺序往后数密钥个数的字母，若字母超过“Z”或“z”，则将其顺延到“A”或“a”后，大小写保持不变；若为其他字符，则保持不变，例如： 明文 密钥 密文 C k h q Z h e n 3 _ K d l _ H a i （2）在步骤（1）的基础上，奇数位置的字符保持不变，偶数位置的字符逆序排列。 密文 C l h K _ q d k 实现上述功能的VB程序如下，加框处有错误，请改正。 Private Sub Command1_Click() Dim a(1 To 100) As String Dim s As String, i As Integer Dim j As Integer, n As Integer Label4.Caption = \s = Text1.Text n = Val(Text2.Text)

·10·

i = 1

Do While i <= Len(s) c = Mid(s, i, 1)

If c >= \

a(i) = Chr((Asc(c) - Asc(\ ElseIf c >= \

a(i) = Chr((Asc(c) - Asc(\ Else a(i) = c End If i = i + 1 Loop

j = Len (s) ‘① For i = 2 To Len(s) \\ 2 Step 2 t = a(i): a(i) = a(j): a(j) = t

j = j – 1 ‘② Next i

For i = 1 To Len(s)

Label4.Caption = Label4.Caption + a(i) Next i End Sub

17.某数据压缩方法描述如下：

1）原始数据中，某数不为0且相邻无重复，压缩数据用该数据表示： 2）原始数据中，某数为0且相邻无重复，压缩数据用两个数表示，均为0；

3）原始数据中，某数据相邻有重复，压缩数据用3个数表示：第1个为0，第2个为重复数的个数，

·11·

第3个数为该数本身。

原始数据：25 0 78 78 78 78 78 78

压缩数据：25 0 0 0 6 78

程序运行界面如下图所示：

根据上述算法，小明编写如下VB程序。

（1）若文本框Text1中输入数据为“0,25,0,78,78,0,0”（不含引号），点击“压缩”命令按钮，在文本框Text2输出数据里有 个0。

（2）实现上述功能的VB程序如下。请在划线处填入合适代码。

Dim a(1 To 100) As Integer, b(1 To 100) As Integer, c(1 To 100) As Integer Dim n As Integer, num As Integer Private Sub Init1()

Dim s1 As String, c1 As String

Dim i As Integer, t As Integer, len1 As Integer n = 0: t = 0: s1 = Text1.Text

·12·