20xx年4月浙江省普通高中技术选考试题word版

20xx年4月浙江省普通高中技术选考试题word版内容摘要：

16 bit， 44100HZ，单声”。 该场景动画 播放到第 45 帧结束时，声音刚好完整播放一遍。 由此可知该声音文件的大小约为 KB（保留整数位）。 16.【加试题】某地 19001999 年的平均降水量数据保存在数据库中。 现要求找出相邻两年年平均降水量变化（即本年度与上年度“年平均降水量”差值的绝对值）最大的年份区间。 如果多个符合要求的年份区间，只输入距今最近的。 小吴为此编写了 VB 程序，程序运行时，单击按钮 Command1 后，在文本框 Text1 中输出运行结果。 实现上述功能的 VB 代码如下，但加框处代码有错，请改正。 Dim w(1 To 100) As Single 39。 依次存储 19001999 年的年平均降水量数据 Const n = 100 Private Sub Form_Load() 39。 本过程从数据库中按 190001999 年依次读取年平均降水量数据，并存储在数组 w 中 39。 代码略 End Sub Private Sub Command1_Click() Dim i As Integer, imax As Integer imax = For i = 3 To n If Abs(w(i) w(i 1)) = Then imax = i Next i = 年平均降水量变化最大的年份区间是 + Str(imax + 1989) + + 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 39。 存储压缩数据，最大处理个数为 100 Dim b(1 To 1000) As Integer 39。 存储解压缩数据，最大处理个数为 1000 Dim n As Integer 39。 存储压缩数据的个数 Private Sub Form_Load() 1 Abs(w(i 1) w(i 2)) 39。 压缩数据由上述压缩方法生成 39。 本过程用于 读取压缩数据并存储在数组 a，压缩数据个数存储在变量 n 中 39。 代码略 End Sub Private Sub Command1_Click() Dim pa As Integer 39。 存储压缩数组当前处理位置 Dim pb As Integer 39。 存储解压缩数组当前处理位置 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 39。 示例 1 情况处理 b(pb) = firstdata pa = pa + 1: pb = pb + 1 Else count = a(pa + 1) If count = 0 Then 39。 示例 2 情况处理。