20xx年4月浙江省技術(shù)選考試題及答案word版(編輯修改稿)
2025-06-26 18:11 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 放一遍。由此可知該聲音文件的大小約為 KB（保留整數(shù)位）。編輯：浙江省桐鄉(xiāng)第一中學(xué) 杜宗飛16.【加試題】某地19001999年的平均降水量數(shù)據(jù)保存在數(shù)據(jù)庫(kù)中。現(xiàn)要求找出相鄰兩年年平均降水量變化（即本年度與上年度“年平均降水量”差值的絕對(duì)值）最大的年份區(qū)間。如果多個(gè)符合要求的年份區(qū)間，只輸入距今最近的。小吳為此編寫了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 = 100Private Sub Form_Load()39。本過(guò)程從數(shù)據(jù)庫(kù)中按190001999年依次讀取年平均降水量數(shù)據(jù)，并存儲(chǔ)在數(shù)組w中39。代碼略End SubPrivate Sub Command1_Click()Dim i As Integer, imax As Integer1imax = For i = 3 To nAbs(w(i 1) w(i 2)) If Abs(w(i) w(i 1)) = Then imax = iNext i = 年平均降水量變化最大的年份區(qū)間是 + Str(imax + 1989) + + Str(imax + 1899)End Sub17.【加試題】某數(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小明編寫了一個(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ù)為100Dim b(1 To 1000) As Integer 39。存儲(chǔ)解壓縮數(shù)據(jù)，最大處理個(gè)數(shù)為1000Dim n As Integer 39。存儲(chǔ)壓縮數(shù)據(jù)的個(gè)數(shù)Private Sub Form_Load()39。壓縮數(shù)據(jù)由上述壓縮方法生成39。本過(guò)程用于讀取壓縮數(shù)據(jù)并存儲(chǔ)在數(shù)組a，壓縮數(shù)據(jù)個(gè)數(shù)存儲(chǔ)在變量n中39。代碼略End SubPrivate 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 Integerpa = 1: pb = 1Do While pa = n firstdata = a(pa) If firstdata 0 Then 39。示例1情況處理 b(pb) = firstdata pa = pa + 1: pb = pb + 1 Else
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1