20xx年4月浙江省普通高中技術(shù)選考試題word版(編輯修改稿)
2024-11-18 15:31 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 16 bit， 44100HZ，單聲”。該場(chǎng)景動(dòng)畫(huà) 播放到第 45 幀結(jié)束時(shí)，聲音剛好完整播放一遍。由此可知該聲音文件的大小約為 KB（保留整數(shù)位）。 16.【加試題】某地 19001999 年的平均降水量數(shù)據(jù)保存在數(shù)據(jù)庫(kù)中?，F(xiàn)要求找出相鄰兩年年平均降水量變化（即本年度與上年度“年平均降水量”差值的絕對(duì)值）最大的年份區(qū)間。如果多個(gè)符合要求的年份區(qū)間，只輸入距今最近的。小吳為此編寫(xiě)了 VB 程序，程序運(yùn)行時(shí)，單擊按鈕 Command1 后，在文本框 Text1 中輸出運(yùn)行結(jié)果。實(shí)現(xiàn)上述功能的 VB 代碼如下，但加框處代碼有錯(cuò)，請(qǐng)改正。 Dim w(1 To 100) As Single 39。依次存儲(chǔ) 19001999 年的年平均降水量數(shù)據(jù) Const n = 100 Private Sub Form_Load() 39。本過(guò)程從數(shù)據(jù)庫(kù)中按 190001999 年依次讀取年平均降水量數(shù)據(jù)，并存儲(chǔ)在數(shù)組 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.【加試題】某數(shù)據(jù)壓縮方法描述如下： 1）原始數(shù)據(jù)中，某數(shù)不為 0 且相鄰無(wú)重復(fù)，壓縮數(shù)據(jù)用該數(shù)據(jù)表示； 2）原始數(shù)據(jù)中，某數(shù)為 0 且相鄰無(wú)重復(fù)，壓縮數(shù)據(jù)用兩個(gè)數(shù)表示，第 1 個(gè)位 0，第 2 個(gè)為 0； 3）原始數(shù)據(jù)中，某數(shù)據(jù)相鄰有重復(fù)，壓縮數(shù)據(jù)用 3 個(gè)數(shù)表示：第 1 個(gè)位 0，第 2 個(gè)為重復(fù)數(shù)的個(gè)數(shù)，第 3 個(gè)為該數(shù)本身； 根據(jù)上述壓縮方法，對(duì)應(yīng)的解壓縮方法示例如圖 a 所示。 圖 a 小明編寫(xiě)了一個(gè)解壓送 VB 程序，功能如下：窗體加載時(shí)，自動(dòng)讀取壓縮數(shù)據(jù)，依次存儲(chǔ)在數(shù)組元素 a(1)、 a(2)、 a(3)??中，壓縮數(shù)據(jù)的個(gè)數(shù)存儲(chǔ)在變量 n 中，壓縮數(shù)據(jù)顯示咋文本框 Text1 中。單擊“解壓縮”按鈕 Command1，程序?qū)嚎s數(shù)據(jù)依次進(jìn)行解壓縮處理，解壓縮數(shù)據(jù)顯示在文本框 Text2 中。程序運(yùn)行界面如圖 b 所示。 圖 b （ 1）如果壓縮數(shù)據(jù)為“ 23,0,21,66,0,0,77,0,5,0”，則解壓縮數(shù)據(jù)的個(gè)數(shù)是 。 （ 2）實(shí)現(xiàn)上述功能的 VB 程序如下。請(qǐng)?jiān)趧澗€處填入合適代碼。 Dim a(1 To 100) As Integer 39。存儲(chǔ)壓縮數(shù)據(jù)，最大處理個(gè)數(shù)為 100 Dim b(1 To 1000) As Integer 39。存儲(chǔ)解壓縮數(shù)據(jù)，最大處理個(gè)數(shù)為 1000 Dim n As Integer 39。存儲(chǔ)壓縮數(shù)據(jù)的個(gè)數(shù) Private Sub Form_Load() 1 Abs(w(i 1) w(i 2)) 39。壓縮數(shù)據(jù)由上述壓縮方法生成 39。本過(guò)程用于 讀取壓縮數(shù)據(jù)并存儲(chǔ)在數(shù)組 a，壓縮數(shù)據(jù)個(gè)數(shù)存儲(chǔ)在變量 n 中 39。代碼略 End Sub Private Sub Command1_Click() Dim pa As Integer 39。存儲(chǔ)壓縮數(shù)組當(dāng)前處理位置 Dim pb As Integer 39。存儲(chǔ)解壓縮數(shù)組當(dāng)前處理位置 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 情況處理
法律信息相關(guān)推薦
鄂ICP備17016276號(hào)-1