20xx年4月浙江省普通高中技術選考試題word版(編輯修改稿)
2024-11-18 15:31 本頁面
【文章內容簡介】 16 bit， 44100HZ，單聲”。該場景動畫 播放到第 45 幀結束時，聲音剛好完整播放一遍。由此可知該聲音文件的大小約為 KB（保留整數位）。 16.【加試題】某地 19001999 年的平均降水量數據保存在數據庫中?，F要求找出相鄰兩年年平均降水量變化（即本年度與上年度“年平均降水量”差值的絕對值）最大的年份區(qū)間。如果多個符合要求的年份區(qū)間，只輸入距今最近的。小吳為此編寫了 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 = 年平均降水量變化最大的年份區(qū)間是 + 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 情況處理
法律信息相關推薦
鄂ICP備17016276號-1