图a
（1）作品的部分系统结构流程图如图a所示，将相马经、索骥、成语释义三个模块及主交互界面、片尾都设计成独立场景，各场景之间通过按钮实现跳转。则“主交互界面”场景至少需要 个按钮。
（2）制作“返回”按钮元件，使“指针经过”帧上有“千里马奔跑”的动画效果，实现该特效的对象类型是 。（单选，填字母：A.位图/B.影片剪辑/C.形状） （3）小杨制作了45帧的“相马经”场景动画，部分时间轴如图b所示。在“按钮”图层的第1帧应用了“返回”按钮元件，要使该按钮一直在场景中表现，应实行的操作是 。
图b
（4）要想通过单击“相马经”场景的“返回”按钮，使动画跳转到“主交互界面”场景第1帧并停止播放。则在该按钮上添加的动作脚本是 。
（5）如图b所示，“声音”图层第16帧的声音来自文件“sound.wav”，其相关信息为“Wave PCM signed 16 bit，44100HZ，单声”。该场景动画播放到第45帧结束时，声音刚好完整播放一遍。由此可知该声音文件的大小约为 KB（保留整数位）。
16.【加试题】某地1900-1999年的平均降水量数据保存有数据库中。现要求找出相邻两年年平均降水量变化（即本年度与上年度“年平均降水量”差值的绝对值）最大的年份区间。如果多个符合要求的年份区间，只输入距今最近的。小吴为此编写了VB程序，程序运行时，单击按钮Command1后，在文本框Text1中输出运行结果。实现上述功能的VB代码如下，但加框处代码有错，请改正。
Dim w(1 To 100) As Single '依次存储1900-1999年的年平均降水量数据 Const n = 100
Private Sub Form_Load()
'本过程从数据库中按19000-1999年依次读取年平均降水量数据，并存储在数组w中 '代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, imax As Integer imax = 1 For i = 3 To n
If Abs(w(i) - w(i - 1)) >= Then imax = i Abs(w(i - 1) - w(i - 2)) Next i
Text1.Text = \年平均降水量变化最大的年份区间是\+ Str(imax + 1889) + \+ Str(imax + 1899) End Sub
17.【加试题】某数据压缩方法描述如下：
1）原始数据中，某数不为0且相邻无重复，压缩数据用该数据表示； 2）原始数据中，某数为0且相邻无重复，压缩数据用两个数表示，第1个位0，第2个为0； 3）原始数据中，某数据相邻有重复，压缩数据用3个数表示：第1个位0，第2个为重复数的个数，第3个为该数本身；
根据上述压缩方法，对应的解压缩方法示例如图a所示。
图a
小明编写了一个解压送VB程序，功能如下：窗体加载时，自动读取压缩数据，依次存储在数组元素a(1)、a(2)、a(3)……中，压缩数据的个数存储在变量n中，压缩数据显示咋文本框Text1中。单击“解压缩”按钮Command1，程序对压缩数据依次实行解压缩处理，解压缩数据显示在文本框Text2中。程序运行界面如图b所示。
图b
（1）如果压缩数据为“23,0,21,66,0,0,77,0,5,0”，则解压缩数据的个数是 。 （2）实现上述功能的VB程序如下。请在划线处填入合适代码。 Dim a(1 To 100) As Integer '存储压缩数据，最大处理个数为100 Dim b(1 To 1000) As Integer '存储解压缩数据，最大处理个数为1000 Dim n As Integer '存储压缩数据的个数 Private Sub Form_Load()
'压缩数据由上述压缩方法生成
'本过程用于读取压缩数据并存储在数组a，压缩数据个数存储在变量n中 '代码略 End Sub
Private Sub Command1_Click()
Dim pa As Integer '存储压缩数组当前处理位置 Dim pb As Integer '存储解压缩数组当前处理位置
Dim firstdata As Integer, count As Integer, i As Integer pa = 1： pb = 1 Do While pa <= n firstdata = a(pa)
If firstdata <> 0 Then '示例1情况处理 b(pb) = firstdata
pa = pa + 1： pb = pb + 1 Else
count = a(pa + 1)
If count = 0 Then '示例2情况处理 b(pb) = 0
pa = ① ： pb = pb + 1
Else '示例3情况处理 For i = 1 To count ② Next i
pa = pa + 3： pb = pb + count End If End If Loop
Text2.Text = Str(b(1)) For i = 2 To ③
Text2.Text = Text2.Text + \Next i End Sub