資源簡介

浙江省諸暨市2019-2020學年高二上學期信息技術期末考試試卷
一、選擇題（本大題共12小題，每小題2分，共24分。）
1．（2020高二上·諸暨期末）下列有關信息和信息技術的說法，正確的是（　?。?br/>A．用手機掃描二維碼，是對信息進行編碼的過程
B．信息必須依附于載體，故不可以脫離它所反映的事物被存儲和傳播
C．交警指揮交通必須采用規定的手勢，這是為了信息表達的規范化
D．電影技術、電視技術、廣播技術、計算機技術等均屬于現代信息技術
2．（2020高二上·諸暨期末）使用Word軟件編輯某文檔，部分界面如圖所示。
下列說法正確的是（　?。?br/>A．文中共使用了2處批注，添加批注的用戶名為“A”
B．實現圖中的圖文環繞效果可以采用“嵌入型”環繞方式
C．刪除圖中批注后，批注對象和批注內容同時被刪除
D．拒絕對文檔的所有修訂后，文字“既”被保留
3．（2020高二上·諸暨期末）使用Access軟件打開數據庫，部分界面如圖所示。
下列操作可行的是（　?。?br/>A．選中當前記錄的“書籍編號”字段值，將“4”修改為“7”
B．選中視圖中的表名稱“表1”，將其重命名為“高一藏書”
C．在“書名”和“作者”字段之間添加一個新字段“出版社”
D．輸入文字“是”作為新記錄中“借出”的有效字段值
4．（2020高二上·諸暨期末）使用GoldWave軟件編輯某音頻文件，部分界面如圖所示。
下列說法正確的是（　?。?br/>A．該音頻文件為mp3格式，采樣頻率為44100Hz
B．當前狀態下，執行“刪除”操作，音頻文件將變為單聲道
C．當前狀態下，執行“插入靜音”添加1秒靜音后，右聲道時長不變
D．當前狀態下，先執行“復制”，再執行“粘貼”，音頻時長將變成8秒
5．（2020高二上·諸暨期末）使用UltraEdit軟件觀察字符內碼，部分界面如圖所示。已知漢字內碼是由區位碼（十六進制）中每個字節的數值加A0H組成，則漢字“對”的區位碼（十進制）為（　?。?br/>A．B6 D4 B．16 34 C．22 52 D．27 16
6．（2020高二上·諸暨期末）一段時長為10秒、1024×800像素、32位色、PAL制式（25幀/秒）的未經壓縮AVI格式無聲視頻，其文件存儲容量約為（　?。?br/>A．23MB B．70 MB C．781 MB D．2250 MB
7．（2020高二上·諸暨期末）某算法的部分流程圖如圖所示。下列說法正確的是（　?。?br/>A．該流程執行后，變量s的值是 -1
B．該流程執行后，變量k的值是10
C．該流程完整執行1次，“s←s-k”共執行了4次
D．該流程完整執行1次，“s≥0 ”共執行了4次
8．（2020高二上·諸暨期末）以下選項中，表達式的值最大的是（　　）
A．Sqr(50) B．28 \ 3 Mod 10
C．Val(Mid("202007", 6, 1)) D．Abs(Int(-7．1))
9．（2020高二上·諸暨期末）有如下VB程序段：
Dim a(1 To 10) As Integer
s = "8+9+10=": n = 1
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
a(n) = a(n) * 10 + Val(ch)
Else
If a(n) > 0 Then n = n + 1
End If
Next i
Text1.Text = Str(n)
數組a各元素的初始值都為0，若執行該程序后，在文本框Text1中顯示的值為（　　）
A．2 B．3 C．4 D．5
10．（2020高二上·諸暨期末）有如下VB程序段：
Dim t(0 To 9) As Integer
n = Val(Text1.Text)
For i = 10 To 30
a = i Mod 10
b = i \ 10
If a = n Or b = n Then t(n) = t(n) + 1
Next i
Label1.Caption = Str(t(n))
數組t中各個元素初值均為0，在文本框Text1中分別輸入2時，執行該程序后，Label1中顯示的內容為（　?。?br/>A．2 B．10 C．11 D．12
11．（2020高二上·諸暨期末）某算法的VB程序段如下：
a(1) = 12: a(2) = 44: a(3) = 65: a(4) = 36: a(5) = 58
x = 0: y = 0
For i = 1 To 4
k = i
For j = i + 1 To 5
If a(j) > a(k) Then
k = j
x = x + 1
End If
Next j
If k <> i Then
t = a(i): a(i) = a(k): a(k) = t
y = y + 1
End If
Next i
Text1.Text = Str(x) + Str(y)
執行該程序段后，文本框Text1中顯示的內容是（　?。?br/>A．5 3 B．5 5 C．10 3 D．10 5
12．（2020高二上·諸暨期末）數組a為一組已按降序排序的正整數，依據對分查找思想：設計一個在數組a中查找數據Key的程序。實現該功能的VB程序段如下：
Dim a(1 To 6) As Integer
Const n = 6
a(1) = 98: a(2) = 96: a(3) = 95
a(4) = 90: a(5) = 87: a(6) = 81
i = 1: j = n
Key = Val(Text1.Text)
f = False
Do While And f = False
m = (i + j) \ 2
If a(m) = Key Then
Text1.Text = "已找到": f = True
ElseIf a(m) > Key Then
Else
End If
Loop
上述程序中方框處語句依次為（　?。?br/>A．i <= j i = m + 1 j = m - 1
B．i <= j j = m - 1 i = m + 1
C．i < j j = m - 1 i = m + 1
D．i < j i = m + 1 j = m - 1
二、非選擇題（本大題共4小題，4+8+7+7，共26分）
13．（2020高二上·諸暨期末）小華使用Excel軟件對2018年浙江省各市各類學校在校學生數進行處理，如圖a
所示。
圖a
（1）區域F3:F13的數據是通過公式計算得到的：在F3單元格中輸入公式　 　,再利用自動填充功能完成區域F4:F13的計算。
（2）已知B14單元格的數據是通過SUM函數計算求得，若修改B4單元格中的數值為159804，則顯示在F3單元中的數據將　 　(選填：變大 / 變小 /不變）。
（3）根據圖a中相關數據制作圖表,如圖b所示，創建該圖表的數據區域是　 　。
圖b
（4）將區域A2:F13的數據復制到新工作表，設置“中等職業 學校（人）”和“普通中學（萬人）”的篩選方式分別如圖c和圖d所示，則篩選出的城市為　 　（填城市名稱）。
14．（2020高二上·諸暨期末）使用多媒體編輯軟件創作“旋轉的風車”多媒體作品。
圖a
（1）Photoshop部分編輯界面如圖a所示，下列說法正確的是　 ?。啥噙x，填字母：A ．用移動工具移動“右坡”圖層中的圖像位置，“左坡”圖層中的圖像位置隨之改變 /B ．選中“白云”圖層，添加“鏡頭光暈”的濾鏡效果/C ．選中“背景”圖層，設置“外發光”的圖層樣式 /D ．另存為BMP文件，“文字”圖層的圖層樣式不可視）
（2）觀察圖b，“聲音”圖層中添加了聲音素材“配音．mp3”，測試場景時在“白云”圖層動畫開始播放時聲音還在繼續播放，則聲音“同步”方式為　 ?。ㄟx填：數據流 / 事件）。
圖b
（3）觀察圖b，測試該場景時，“背景”圖層內容在播放完第20幀后消失，為了使該圖層內容一直延續至本場景結束，可行的操作是　 　。
（4）觀察圖b，圖中“白云”圖層創建了“白云”實例從左側舞臺外運動至右側舞臺外的動畫，該圖層中補間動畫的類型是　 ?。ㄟx填：動畫補間/形狀補間）；該圖層第20幀中“白云”實例的位置坐標最有可能為　 　（單選，填字母A .(342,80)/ B .(670, -170)/ C .(-80,-170)/D .(-342,96) )
（5）觀察圖b，測試影片時，單擊該場景的“范例”按鈕，實現在瀏覽器中顯示位于同一文件夾下“fanli.txt”文件的內容，并停止當前動畫的播放。則在該按鈕上添加的動作腳本是　 　。
15．（2020高二上·諸暨期末）對數組a中的n個元素進行排序，生成左右交替上升的數據序列，結果如下表所示：
a（1） a（2） a（3） …… a（n-2） a（n-1） a（n）
27 35 39 …… 49 39 33
小華由此設計一個VB程序，功能如下：單擊“排序”按鈕Command1，隨機生成10個兩位奇數，將隨機生成的數據序列顯示在文本框Text1中，在文本框Text2中顯示完成排序后的數據序列，運行結果如圖所示。
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Randomize
Const n = 10
For i = 1 To n
a(i) = ①
Text1.Text = Text1.Text + Str(a(i))
Next i
For i = 1 To n \ 2
For j = n - i + 1 To i + 1 Step -1
If a(j) < a(j - 1) Then
t = a(j - 1)
②
a(j) = t
End If
Next j
For j = i + 1 To n - i
If Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
For i = 1 To n
Text2.Text = Text2.Text + Str(a(i))
Next i
End Sub
（1）代碼Command1_Click()中的Click屬于　 　（單選，填字母：A .對象名/B .事件名/C .方法名/D .事件處理過程名）。
（2）程序中①處的代碼可能是 （單選，填字母）。
A．Int(Rnd * 88) + 11 B．Int(Rnd * 89) + 11
C．Int(Rnd * 44) * 2 + 11 D．Int(Rnd * 45) * 2 + 11
（3）程序中②處填入合適的代碼　 　
（4）程序代碼中，加框處語句有錯，請改正。
16．（2020高二上·諸暨期末）某數據加密方法描述如下：
1）以字節為單位進行加密處理；
2）將1個字節的8位二進制數分割成前4位與后4位兩個二進制數；
3）分別將上述兩個4位二進制數轉換成十進制數；
4）將每個十進制數轉換為1個加密字符，對應的“密碼表”如下：
值（十進制） 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 o s t c a r d
小華按照上述方法，設計了一個字符串（僅包含ASCII字符）解密的VB程序，功能如下：在文本框Text1中輸入一串密文，單擊“解密”按鈕Command1，在文本框Text2中顯示解密結果。
下表顯示了字符串中一個字符的加密過程：
m ←轉換前字符m
109 ←字符m的ASCII碼十進制值
0 1 1 0 1 1 0 1 ←對應的二進制數
6 13 ←分割、轉換后的十進制數
H a ←對應的加密字符
　 　 　 　 　 　 　 　 　
程序運行效果如圖所示。
（1）若上述程序運行時在文本框Text1中輸入“HrHd”，在文本框Text2中顯示　 　。
（2）請在劃線處填入合適的代碼。
Private Sub
Command1_Click()
Dim
a(1 To 100) As Integer
Dim
s1 As String, s2 As String, c As String
Dim x
As Integer, k As Integer, i As Integer, j As Integer
Const
code = "IlikeCHNpostcard"
n = Len(code)
s1 =
Text1.Text
x =
0: k = 0
For i
= 1 To Len(s1)
c
= Mid(s1, i, 1)
For j
= 1 To n
If 　 　 Then
pos = j - 1
x
= x * 16 + pos
Exit For
'退出當前For循環
End If
Next j
If i
Mod 2 = 0 Then
　 　
a(k) = x
x = 0
End If
Next
i
For i
= 1 To k
　 　
Next i
Text2.Text = s2
End Sub
答案解析部分
1．【答案】C
【知識點】信息及其特征；信息技術的概念與關鍵技術
2．【答案】D
【知識點】文本的基本編輯；文本的圖片與表格處理
3．【答案】C
【知識點】數據表、字段、記錄的編輯
4．【答案】D
【知識點】聲音素材的基本處理
5．【答案】C
【知識點】字符編碼
6．【答案】C
【知識點】聲音、圖像、視頻編碼
7．【答案】C
【知識點】流程圖識讀
8．【答案】B
【知識點】運算符、基本運算與表達式；常用標準函數
9．【答案】C
【知識點】循環結構語句及程序實現；常用標準函數
10．【答案】C
【知識點】循環結構語句及程序實現
11．【答案】A
【知識點】常見數據類型、數組；循環結構語句及程序實現
12．【答案】A
【知識點】查找算法及程序實現
13．【答案】（1）=B3/$B$14*100
（2）變小
（3）A2:A5,D2:E5
（4）杭州市
【知識點】表格數據的處理與計算；表格數據的圖表呈現
14．【答案】（1）AD
（2）事件
（3）“背景”圖層第21幀清除關鍵幀?；颉氨尘啊眻D層第1幀復制幀，第21幀粘貼幀?；蚱渌葍r方法。
（4）動畫補間；D
（5）on (press) { getURL("fanli.txt"); stop();} 或on (release) { getURL("fanli.txt"); stop(); }
【知識點】圖片加工常用工具的使用；時間軸、幀、圖層、庫的概念及基本操作；二維動畫實例屬性的設置；常用影片控制函數的應用；聲音同步屬性設置
15．【答案】（1）B
（2）D
（3）a(j - 1)=a(j)
（4）a(j) < a(j + 1)
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；排序算法及程序實現；常用標準函數
16．【答案】（1）no
（2）c = Mid(code,j,1)；k=k+1；s2=s2+Chr(a(i))
【知識點】加密與解密算法
1 / 1浙江省諸暨市2019-2020學年高二上學期信息技術期末考試試卷
一、選擇題（本大題共12小題，每小題2分，共24分。）
1．（2020高二上·諸暨期末）下列有關信息和信息技術的說法，正確的是（　?。?br/>A．用手機掃描二維碼，是對信息進行編碼的過程
B．信息必須依附于載體，故不可以脫離它所反映的事物被存儲和傳播
C．交警指揮交通必須采用規定的手勢，這是為了信息表達的規范化
D．電影技術、電視技術、廣播技術、計算機技術等均屬于現代信息技術
【答案】C
【知識點】信息及其特征；信息技術的概念與關鍵技術
2．（2020高二上·諸暨期末）使用Word軟件編輯某文檔，部分界面如圖所示。
下列說法正確的是（　?。?br/>A．文中共使用了2處批注，添加批注的用戶名為“A”
B．實現圖中的圖文環繞效果可以采用“嵌入型”環繞方式
C．刪除圖中批注后，批注對象和批注內容同時被刪除
D．拒絕對文檔的所有修訂后，文字“既”被保留
【答案】D
【知識點】文本的基本編輯；文本的圖片與表格處理
3．（2020高二上·諸暨期末）使用Access軟件打開數據庫，部分界面如圖所示。
下列操作可行的是（　?。?br/>A．選中當前記錄的“書籍編號”字段值，將“4”修改為“7”
B．選中視圖中的表名稱“表1”，將其重命名為“高一藏書”
C．在“書名”和“作者”字段之間添加一個新字段“出版社”
D．輸入文字“是”作為新記錄中“借出”的有效字段值
【答案】C
【知識點】數據表、字段、記錄的編輯
4．（2020高二上·諸暨期末）使用GoldWave軟件編輯某音頻文件，部分界面如圖所示。
下列說法正確的是（　?。?br/>A．該音頻文件為mp3格式，采樣頻率為44100Hz
B．當前狀態下，執行“刪除”操作，音頻文件將變為單聲道
C．當前狀態下，執行“插入靜音”添加1秒靜音后，右聲道時長不變
D．當前狀態下，先執行“復制”，再執行“粘貼”，音頻時長將變成8秒
【答案】D
【知識點】聲音素材的基本處理
5．（2020高二上·諸暨期末）使用UltraEdit軟件觀察字符內碼，部分界面如圖所示。已知漢字內碼是由區位碼（十六進制）中每個字節的數值加A0H組成，則漢字“對”的區位碼（十進制）為（　?。?br/>A．B6 D4 B．16 34 C．22 52 D．27 16
【答案】C
【知識點】字符編碼
6．（2020高二上·諸暨期末）一段時長為10秒、1024×800像素、32位色、PAL制式（25幀/秒）的未經壓縮AVI格式無聲視頻，其文件存儲容量約為（　　）
A．23MB B．70 MB C．781 MB D．2250 MB
【答案】C
【知識點】聲音、圖像、視頻編碼
7．（2020高二上·諸暨期末）某算法的部分流程圖如圖所示。下列說法正確的是（　　）
A．該流程執行后，變量s的值是 -1
B．該流程執行后，變量k的值是10
C．該流程完整執行1次，“s←s-k”共執行了4次
D．該流程完整執行1次，“s≥0 ”共執行了4次
【答案】C
【知識點】流程圖識讀
8．（2020高二上·諸暨期末）以下選項中，表達式的值最大的是（　?。?br/>A．Sqr(50) B．28 \ 3 Mod 10
C．Val(Mid("202007", 6, 1)) D．Abs(Int(-7．1))
【答案】B
【知識點】運算符、基本運算與表達式；常用標準函數
9．（2020高二上·諸暨期末）有如下VB程序段：
Dim a(1 To 10) As Integer
s = "8+9+10=": n = 1
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
a(n) = a(n) * 10 + Val(ch)
Else
If a(n) > 0 Then n = n + 1
End If
Next i
Text1.Text = Str(n)
數組a各元素的初始值都為0，若執行該程序后，在文本框Text1中顯示的值為（　?。?br/>A．2 B．3 C．4 D．5
【答案】C
【知識點】循環結構語句及程序實現；常用標準函數
10．（2020高二上·諸暨期末）有如下VB程序段：
Dim t(0 To 9) As Integer
n = Val(Text1.Text)
For i = 10 To 30
a = i Mod 10
b = i \ 10
If a = n Or b = n Then t(n) = t(n) + 1
Next i
Label1.Caption = Str(t(n))
數組t中各個元素初值均為0，在文本框Text1中分別輸入2時，執行該程序后，Label1中顯示的內容為（　?。?br/>A．2 B．10 C．11 D．12
【答案】C
【知識點】循環結構語句及程序實現
11．（2020高二上·諸暨期末）某算法的VB程序段如下：
a(1) = 12: a(2) = 44: a(3) = 65: a(4) = 36: a(5) = 58
x = 0: y = 0
For i = 1 To 4
k = i
For j = i + 1 To 5
If a(j) > a(k) Then
k = j
x = x + 1
End If
Next j
If k <> i Then
t = a(i): a(i) = a(k): a(k) = t
y = y + 1
End If
Next i
Text1.Text = Str(x) + Str(y)
執行該程序段后，文本框Text1中顯示的內容是（　?。?br/>A．5 3 B．5 5 C．10 3 D．10 5
【答案】A
【知識點】常見數據類型、數組；循環結構語句及程序實現
12．（2020高二上·諸暨期末）數組a為一組已按降序排序的正整數，依據對分查找思想：設計一個在數組a中查找數據Key的程序。實現該功能的VB程序段如下：
Dim a(1 To 6) As Integer
Const n = 6
a(1) = 98: a(2) = 96: a(3) = 95
a(4) = 90: a(5) = 87: a(6) = 81
i = 1: j = n
Key = Val(Text1.Text)
f = False
Do While And f = False
m = (i + j) \ 2
If a(m) = Key Then
Text1.Text = "已找到": f = True
ElseIf a(m) > Key Then
Else
End If
Loop
上述程序中方框處語句依次為（　?。?br/>A．i <= j i = m + 1 j = m - 1
B．i <= j j = m - 1 i = m + 1
C．i < j j = m - 1 i = m + 1
D．i < j i = m + 1 j = m - 1
【答案】A
【知識點】查找算法及程序實現
二、非選擇題（本大題共4小題，4+8+7+7，共26分）
13．（2020高二上·諸暨期末）小華使用Excel軟件對2018年浙江省各市各類學校在校學生數進行處理，如圖a
所示。
圖a
（1）區域F3:F13的數據是通過公式計算得到的：在F3單元格中輸入公式　 　,再利用自動填充功能完成區域F4:F13的計算。
（2）已知B14單元格的數據是通過SUM函數計算求得，若修改B4單元格中的數值為159804，則顯示在F3單元中的數據將　 　(選填：變大 / 變小 /不變）。
（3）根據圖a中相關數據制作圖表,如圖b所示，創建該圖表的數據區域是　 　。
圖b
（4）將區域A2:F13的數據復制到新工作表，設置“中等職業 學校（人）”和“普通中學（萬人）”的篩選方式分別如圖c和圖d所示，則篩選出的城市為　 ?。ㄌ畛鞘忻Q）。
【答案】（1）=B3/$B$14*100
（2）變小
（3）A2:A5,D2:E5
（4）杭州市
【知識點】表格數據的處理與計算；表格數據的圖表呈現
14．（2020高二上·諸暨期末）使用多媒體編輯軟件創作“旋轉的風車”多媒體作品。
圖a
（1）Photoshop部分編輯界面如圖a所示，下列說法正確的是　 ?。啥噙x，填字母：A ．用移動工具移動“右坡”圖層中的圖像位置，“左坡”圖層中的圖像位置隨之改變 /B ．選中“白云”圖層，添加“鏡頭光暈”的濾鏡效果/C ．選中“背景”圖層，設置“外發光”的圖層樣式 /D ．另存為BMP文件，“文字”圖層的圖層樣式不可視）
（2）觀察圖b，“聲音”圖層中添加了聲音素材“配音．mp3”，測試場景時在“白云”圖層動畫開始播放時聲音還在繼續播放，則聲音“同步”方式為　 ?。ㄟx填：數據流 / 事件）。
圖b
（3）觀察圖b，測試該場景時，“背景”圖層內容在播放完第20幀后消失，為了使該圖層內容一直延續至本場景結束，可行的操作是　 　。
（4）觀察圖b，圖中“白云”圖層創建了“白云”實例從左側舞臺外運動至右側舞臺外的動畫，該圖層中補間動畫的類型是　 ?。ㄟx填：動畫補間/形狀補間）；該圖層第20幀中“白云”實例的位置坐標最有可能為　 　（單選，填字母A .(342,80)/ B .(670, -170)/ C .(-80,-170)/D .(-342,96) )
（5）觀察圖b，測試影片時，單擊該場景的“范例”按鈕，實現在瀏覽器中顯示位于同一文件夾下“fanli.txt”文件的內容，并停止當前動畫的播放。則在該按鈕上添加的動作腳本是　 　。
【答案】（1）AD
（2）事件
（3）“背景”圖層第21幀清除關鍵幀。或“背景”圖層第1幀復制幀，第21幀粘貼幀。或其他等價方法。
（4）動畫補間；D
（5）on (press) { getURL("fanli.txt"); stop();} 或on (release) { getURL("fanli.txt"); stop(); }
【知識點】圖片加工常用工具的使用；時間軸、幀、圖層、庫的概念及基本操作；二維動畫實例屬性的設置；常用影片控制函數的應用；聲音同步屬性設置
15．（2020高二上·諸暨期末）對數組a中的n個元素進行排序，生成左右交替上升的數據序列，結果如下表所示：
a（1） a（2） a（3） …… a（n-2） a（n-1） a（n）
27 35 39 …… 49 39 33
小華由此設計一個VB程序，功能如下：單擊“排序”按鈕Command1，隨機生成10個兩位奇數，將隨機生成的數據序列顯示在文本框Text1中，在文本框Text2中顯示完成排序后的數據序列，運行結果如圖所示。
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Randomize
Const n = 10
For i = 1 To n
a(i) = ①
Text1.Text = Text1.Text + Str(a(i))
Next i
For i = 1 To n \ 2
For j = n - i + 1 To i + 1 Step -1
If a(j) < a(j - 1) Then
t = a(j - 1)
②
a(j) = t
End If
Next j
For j = i + 1 To n - i
If Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
For i = 1 To n
Text2.Text = Text2.Text + Str(a(i))
Next i
End Sub
（1）代碼Command1_Click()中的Click屬于　 　（單選，填字母：A .對象名/B .事件名/C .方法名/D .事件處理過程名）。
（2）程序中①處的代碼可能是 （單選，填字母）。
A．Int(Rnd * 88) + 11 B．Int(Rnd * 89) + 11
C．Int(Rnd * 44) * 2 + 11 D．Int(Rnd * 45) * 2 + 11
（3）程序中②處填入合適的代碼　 　
（4）程序代碼中，加框處語句有錯，請改正。
【答案】（1）B
（2）D
（3）a(j - 1)=a(j)
（4）a(j) < a(j + 1)
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；排序算法及程序實現；常用標準函數
16．（2020高二上·諸暨期末）某數據加密方法描述如下：
1）以字節為單位進行加密處理；
2）將1個字節的8位二進制數分割成前4位與后4位兩個二進制數；
3）分別將上述兩個4位二進制數轉換成十進制數；
4）將每個十進制數轉換為1個加密字符，對應的“密碼表”如下：
值（十進制） 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 o s t c a r d
小華按照上述方法，設計了一個字符串（僅包含ASCII字符）解密的VB程序，功能如下：在文本框Text1中輸入一串密文，單擊“解密”按鈕Command1，在文本框Text2中顯示解密結果。
下表顯示了字符串中一個字符的加密過程：
m ←轉換前字符m
109 ←字符m的ASCII碼十進制值
0 1 1 0 1 1 0 1 ←對應的二進制數
6 13 ←分割、轉換后的十進制數
H a ←對應的加密字符
　 　 　 　 　 　 　 　 　
程序運行效果如圖所示。
（1）若上述程序運行時在文本框Text1中輸入“HrHd”，在文本框Text2中顯示　 　。
（2）請在劃線處填入合適的代碼。
Private Sub
Command1_Click()
Dim
a(1 To 100) As Integer
Dim
s1 As String, s2 As String, c As String
Dim x
As Integer, k As Integer, i As Integer, j As Integer
Const
code = "IlikeCHNpostcard"
n = Len(code)
s1 =
Text1.Text
x =
0: k = 0
For i
= 1 To Len(s1)
c
= Mid(s1, i, 1)
For j
= 1 To n
If 　 　 Then
pos = j - 1
x
= x * 16 + pos
Exit For
'退出當前For循環
End If
Next j
If i
Mod 2 = 0 Then
　 　
a(k) = x
x = 0
End If
Next
i
For i
= 1 To k
　 　
Next i
Text2.Text = s2
End Sub
【答案】（1）no
（2）c = Mid(code,j,1)；k=k+1；s2=s2+Chr(a(i))
【知識點】加密與解密算法
1 / 1

展開更多......

收起↑