图b
14.编写VB程序，实现如下功能：在文本框Text1中输入某一年份，单击“天干地支与生肖”按钮Command1，在列表框List1中输出该年份开始的12个年份及对应的“天干地支”与“生肖”，运行界面如图所示，程序代码如下。
（1）代码“Private Sub Command1_Click()”中的Click是 。（单选，填字母：A.对象名/B.属性名/C.事件名）
（2）为实现上述功能，请在划线处填入合适的代码。 Private Sub Command1_Click() Dim a As Integer, b As Integer Dim i As Integer, n As Integer Dim c1 As String, s1 As String Dim c2 As String, s2 As String Dim c3 As String, s3 As String List1.Clear
s1 = \甲乙丙丁戊己庚辛壬癸\s2 = \子丑寅卯辰巳午未申酉戌亥\s3 = \鼠牛虎兔龙蛇马羊猴鸡狗猪\n = Val(Text1.Text) For i = n To ① a = (i + 6) Mod 10 b = (i + 8) Mod 12 c1 = Mid(s1, a + 1, 1) c2 = Mid(s2, b + 1, 1) c3 = Mid(s3, b + 1, 1)
List1.AddItem ② + \年\
第 5 页 共 15 页
Next i End Sub
（3）由上述算法可知，2024年对应的“天干地支”为 。
15.小杨使用Flash软件创作“按图索骥”成语故事的多媒体作品。请回答下列问题：
图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代码如下，但加框处代码有错，请改正。
第 6 页 共 15 页
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”，则解压缩数据的个数是 。
第 7 页 共 15 页
（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
编辑：浙江省桐乡第一中学 杜宗飞
第 8 页 共 15 页
