20xx年10月浙江省高中技術(shù)選考試題及答案word版(編輯修改稿)
2024-11-17 21:47 本頁面
【文章內(nèi)容簡介】 應(yīng)改變。 （ 2） 6 如第 15 題 2 圖所示，測試 Main 場景時，動畫播放到第 45 幀自動停止。則“控制”第 7 頁 共 18 頁 圖層第 45 幀的幀動作腳本是 。 16.【加試題】 n 個數(shù)據(jù)的冒泡排序需要經(jīng)過 n1 遍加工，每一遍加工自下而上比較相鄰兩個數(shù)據(jù)，把較小者交換到上面。小劉發(fā)現(xiàn)：當(dāng)某一遍加工過程中沒有數(shù)據(jù)交換，說明數(shù)據(jù)已經(jīng)有序，無需進(jìn)一步加工。為此，小劉對算法進(jìn)行優(yōu)化，編寫了一個 VB 程序，功能如下：運(yùn)行程序時，在列表框 List1 中顯示排序前數(shù)據(jù)，單擊“ 排序”按鈕 Commaiid1，在列表框List2 中顯示這些數(shù)據(jù)按升序排序后的結(jié)果，在標(biāo)簽 Label3 中顯示排序過程的加工遍數(shù)。運(yùn)行效果如第 16 題圖所示。 第 16 題圖 實(shí)現(xiàn)上述功能的 VB 代碼如下，但加框處代碼有錯，請改正。 Dim a(1 To 8) As Integer Dim n As Integer Private Sub Form_Load() 39。n=8， 排序前數(shù)據(jù)存儲在數(shù)組 a 中，并在列表框 Listl 中顯示 39。代碼略 End Sub Private Sub Command1_Click() Dim flag As Boolean 39。flag 值為 True 表示一遍加工中發(fā)生過交換 i = 1 flag = True Do While 39。（ 1） flag = False For j = n To i + 1 Step 1 If a(j) a(j 1) Then k = a(j): a(j) = a(j 1): a(j 1) = k flag = True End If Next j i = i + 1 Loop = 排序過程的加工遍數(shù)為 + 39。（ 2） For i = 1 To n i = n 1 Or flag = True Str(i) 第 8 頁 共 18 頁 Str(a(i)) Next i End Sub 編輯：浙江省桐鄉(xiāng)第一中學(xué) 杜宗飛 17.【加試題】某數(shù)據(jù)加密方法描述如下： (1)以字節(jié)為單位進(jìn)行加密處理； (2)將 1 個字節(jié)的 8 位二進(jìn)制數(shù)分割成前 4 位與后 4位兩個二進(jìn)制數(shù)； (3)分別將上述兩個 4 位二進(jìn)制數(shù)轉(zhuǎn)換為十進(jìn)制數(shù)； (4)將每個十進(jìn)制數(shù)轉(zhuǎn)換為 1 個加密字符，對應(yīng)的“密碼表”如下： 值 (十進(jìn)制 ) 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 加密字符 I l i k e C H N P 0 s t c a r d 小明按照上述方法，設(shè)計(jì)了一個字符串（僅包含 ASCII 字符）加密的 VB 程序，功能如下 :單擊“加密”按鈕 Commandl,程序依次將文本框 Textl 中每個字符的 ASCII 碼值作為 1 個字節(jié)轉(zhuǎn)換為兩個加密字符，連接這些加密字符，最后在文本框 Text2 中輸出加密結(jié)果。下表顯示了字符串中一個字符的加密過程： 程序運(yùn)行效果如第 17 題圖所示。 實(shí)現(xiàn)上述功能的 VB 程序如下： （ 1）請?jiān)趧澗€處填入合適代碼。 Private Sub Command1_Click() Dim n As Integer, s As String, i As Integer, ss As String Dim a As Integer 39。存儲加密前字符的 ASCII 碼 Dim b1 As Integer, b2 As Integer 39。分別存儲分割、轉(zhuǎn)換后的兩個十進(jìn)制 數(shù) s = ① For i = 1 To n a = Asc(Mid(s, i, 1)) b1 = a \ 16 b2 = a Mod 16 ss = ss + Code2Char(b1) + Code2Char(b2) = ss 第 9 頁 共 18 頁 Next i End Sub 39。十進(jìn)制值轉(zhuǎn)換為加密字符的函數(shù) Function Code2Char(c As Integer) As String Dim s As String s = IlikeCHNpostcard Code2Char = ② End Function (2)若將“密碼表”中值為“ 0”對應(yīng)的加密字符“ I”改成“ i”，加密后的密文可能無法解密，原因是 。 編輯：浙江省桐鄉(xiāng)第一中學(xué) 杜宗飛 第 10 頁 共 18 頁 第二部分通用技術(shù)
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1