資源簡介

浙江省溫州環大羅山聯盟2020-2021學年高二下學期信息技術期中聯考試卷
一、選擇題（本大題共12小題，每小題2分，共24分。在每小題給出的四個選項中，只有一個符合題目要求）
1．（2021高二下·溫州期中）下列有關信息與信息技術的說法，正確的是（　　）
A．計算機誕生之后才有了信息技術
B．古人結繩記事屬于信息的獲取
C．新聞有多種呈現方式，說明信息可以脫離載體而存在
D．計算機感知現實世界需要將感知信息數字化
【答案】D
【知識點】信息及其特征；信息技術的發展歷史
2．（2021高二下·溫州期中）關于瀏覽器和網頁的說法，下列選項中正確的是（　　）
A．瀏覽器可以編輯、解釋執行網頁中的HTML代碼
B．瀏覽器與Web服務器之間通過SMTP協議進行通信
C．網頁中的超鏈接只能實現該網站內部網頁間的跳轉
D．在瀏覽器中執行“添加到收藏夾”操作保存了網頁的URL
【答案】D
【知識點】網絡協議；瀏覽器；常用的網頁編輯與制作工具
3．（2021高二下·溫州期中）使用Access軟件創建的“student”數據表，其設計視圖部分界面如圖所示，下列說法不正確的是（　　）
A．一般也可以使用“身份證號”字段作為主鍵
B．字段“ID”之前不可以插入字段“家庭住址”
C．將該表格導出成Excel文件，“性別”字段所對應的值會顯示為“True”或“False”
D．在該視圖中，“班級”字段的數據類型也可改成“文本"
【答案】B
【知識點】數據表、字段、記錄的編輯；數據庫文件的導入與導出；數據表視圖與設計視圖
4．（2021高二下·溫州期中）使用 UltraEdit 軟件查看字符內碼，部分界面如圖所示。下列說法正確的是（　　）
A．圖中有2個字符采用ASCII編碼，6個字符采用漢字編碼
B．GB2312漢字編碼是較為常用的漢字機內碼
C．將內碼“39”修改為“3A”，字符“9”將自動改為“10”
D．根據上圖推斷可知，字符“E”的內碼為33H
【答案】A
【知識點】進制及數制轉換；字符編碼
5．（2021高二下·溫州期中）關于聲音處理軟件Goldwave，如圖所示，下面說法正確的是（　　）
A．執行“插入 10 秒靜音”操作后，音頻播放過程中會出現靜音部分
B．當前狀態，單擊“刪除”按鈕，左聲道未選中部分變靜音
C．選中左聲道，單擊“刪除”按鈕，按原參數保存，存儲容量變成原來的一半
D．當前狀態進行了“復制”、“粘貼”操作，保存后文件容量不變
【答案】A
【知識點】聲音素材的基本處理
6．（2021高二下·溫州期中）一段未經壓縮的NTSC制式的AVI格式無聲視頻，時長為10秒，每幀畫面為512×768像素，存儲容量約為225MB，則該視頻中圖像的每個像素所占的位數為（　　）
A．2 位 B．8 位 C．16 位 D．24 位
【答案】C
【知識點】聲音、圖像、視頻編碼
7．（2021高二下·溫州期中）下列關于表達式的描述正確的是（　　）
A．表達式（Int (Rnd-Rnd+1)/2) *100=0 的值為 True
B．表達式 1*2^5+1*2^2+1*2^0=37 的值為 True
C．表達式 1988 mod 1000\10/2=38 的值為True
D．表達式 Mid("3.1415926",6,2)=59 的值為 True
【答案】B
【知識點】運算符、基本運算與表達式
8．（2021高二下·溫州期中）某算法流程圖如圖所示，執行該算法，輸出結果為（　　）
A．s=10 B．i=4 s=10 C．i=11 D．i=11 s=55
【答案】A
【知識點】流程圖識讀
9．（2021高二下·溫州期中）有如下 VB 程序段：
s = 0 : x = "0123456789"
i = 1
Do While i <= Len(x)
t = Val(Mid(x, i, 2))
If t Mod 3 <> 0 Then s = s + t Else s = s - t
i = i + 1
Loop
執行該段程序后，s的值為（　　）
A．270 B．144 C．126 D．-126
【答案】C
【知識點】程序的調試及運行
10．（2021高二下·溫州期中）現有一個 VB 程序，用于讀取某數據庫中“book”數據表的數據，其中部分代碼如下：
Dim conn As ADODB.Connection
Dim rs As New ADODB.Recordset
Dim a(1 To 100) As String
conn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;data Source=" & App.Path & "\Mydata.accdb"
Set rs.ActiveConnection = conn
rs.Open "SELECT * FROM book"
n = 0
Do While Not
a(n) = rs.Fields("name")
Loop
上述程序段中方框處可選語句為：
①n = n + 1 ②rs.MoveNext ③rs.BOF ④rs.EOF
則方框處語句依次可為（　　）
A．③②① B．②①④ C．④②① D．④①②
【答案】D
【知識點】程序訪問數據庫；循環結構語句及程序實現
11．（2021高二下·溫州期中）某算法的 VB 程序段如下：
Const n = 5
Dim d(1 To n) As Integer
For i = 1 To n
d(i) = Int(Rnd * 10 + 1)
Next i
i = 1
Do While i <= n - 1
For j = n To i + 1 Step -1
If d(j) Mod 2 = d(j - 1) Mod 2 Then If d(j) < d(j - 1) Then
t = d(j): d(j) = d(j - 1): d(j - 1) = t
End If
ElseIf d(j) Mod 2 = 1 And d(j - 1) Mod 2 = 0 Then
t = d(j): d(j) = d(j - 1): d(j - 1) = t
End If
Next j
i = i + 1
Loop
執行該程序段后，數組元素 d(1)到d(n)的值不可能為（　　）
A．7 11 15 16 19 B．1 9 11 15 19
C．2 8 10 18 20 D．11 2 10 12 16
【答案】A
【知識點】排序算法及程序實現
12．（2021高二下·溫州期中）某對分查找算法的VB程序段如下：
L = 1 : R = 5 : c = 0
Key = Val(Text1.Text)
Do While L < R And Not f
m = (L + R) \ 2
c = c + 1
If d(m) = Key Then
f = True : Text2.Text = Str(m)
ElseIf d(m) < Key Then
L = m + 1
Else
R = m
End If
Loop
Label1.Caption = Str(c)
數組元素 a(1)到 a(5)的值依次為“19，28，37，46，55”。執行該程序段，下列說法錯誤的是（　　）
A．若 key=19，則 L=R-1 B．若 key=30，則 c=3
C．若 key=40，則 R=4 D．若 key=55，則 f=false
【答案】B
【知識點】查找算法及程序實現
二、非選擇題（本大題4小題，4+8+7+7，共26分）
13．（2021高二下·溫州期中）小王同學收集了某書店的優惠圖書信息，并使用Excel軟件進行了數據處理，如圖a所示。
圖 a
請回答下列問題：
（1）E4：E17單元格為 E3單元格自動填充得到，E3單元格的公式為　 　。（提示：折后價格=原價*折扣）
（2）若要對社科類圖書按照價格進行降序排序，選擇的數據區域為　 　。
（3）根據圖a中數據制作的圖表如圖b所示，創建該圖表的數據區域是　 　。
圖 b
（4）對折后價格列進行篩選，篩選條件如圖c所示，將篩選出　 　條記錄。
圖 c
【答案】（1）=C3*$G$4 或 =C3*$G4 或 =C3*0.7 或其他等效答案
（2）A11 : E17
（3）B2 : C2 , E2 , B6 : C10 , E6 : E10
（4）5
【知識點】表格數據的處理與計算
14．（2021高二下·溫州期中）小王創作了“藥物不良反應”的多媒體作品，首先使用Photoshop軟件處理圖像，然后使用Flash軟件制作動畫作品。請回答下列問題:
（1）處理圖像的部分界面如圖a所示。下列說法正確的有 （多選，填字母）。
圖 a
A．不能重命名的圖層有2個
B．可以使用文字工具將“藥物不良反應”圖層中的“藥物”兩個字改為紅色
C．刪除“藥片2”圖層，“藥片1”圖層也會被刪除
D．將“藥物不良反應.psd”文件存儲為bmp格式圖片，則bmp圖片不包含“小膠囊”圖層的內容
E．可以將“藥物不良反應”圖層中的圖層樣式拷貝到“陰影”圖層
（2）如圖b所示，測試該場景時，“文字”圖層內容直到45幀才出現，要使按鈕從第1幀就出現并延續到第45幀，下列操作可行的是 。（多選題,填字母）
圖 b
A．選中“文字”圖層第1幀執行“清除關鍵幀”操作
B．選中“文字”圖層第45幀執行“清除關鍵幀”操作
C．刪除“文字”圖層第1至44幀
D．選中“文字”圖層第45幀執行“復制幀”操作，在第1幀執行“粘貼幀”操作
E．選中“文字”圖層第45幀，并移動到第1幀
（3）“小膠囊”圖層中的對象在補間結束之后仍然在繼續張嘴和手部動作，實現該效果的對象類型是　 　（選填：影片剪輯 / 位圖 / 形狀）
（4）刪除“音效”圖層，第40幀到第45幀，對動畫整體音效　 　（有/無）影響。
（5）測試影片時，若要實現當前場景播放結束后跳轉到“主交互界面”場景的第1幀并停止播放，應執行的操作是　 　。
【答案】（1）B；D
（2）A；D；E
（3）影片剪輯
（4）無
（5）選擇“藥片”（或“文字”）圖層的第 45 幀，添加動作腳本 gotoandstop(“主交互界面”,1)
【知識點】圖層及圖層的基本操作；時間軸、幀、圖層、庫的概念及基本操作；元件的類型與應用；常用影片控制函數的應用
15．（2021高二下·溫州期中）如下圖所示，數組a中存儲了一組正整數，特征是：①以三個數為一組的話，每組中任意一個數都比前面一組中的任意一個數要大；②每組中三個數依次遞減；③數組a的元素總個數為3的倍數。
8 5 3 17 14 10 32 25 24 53 50 35 73 66 61
圖 a
依據對分查找思想，設計一個在數組a中查找數據key的程序。執行程序，在文本框Txt1中輸入key的值，在文本框Txt2中顯示查找結果。根據左右邊界，計算中位值，并在標簽L1中記錄歷次中位值的位置。
（1）程序代碼如下，請在劃線處填入合適的代碼。
Private Sub Command1_Click(　　)
Const n = 15
Dim a(1 To n) As Integer, search As Integer, key As Integer Dim i As
Integer, j As Integer, m As Integer
Dim s As String
' 讀取一組正整數，按上述規則存入數組，代碼略。
key =　 　
i = 1: j = n: search = 0
Do While i <= j
m = (i + j) \ 2
s = s + Str(m) + ","
If m Mod 3
<> 0 Then　 　 '把 m調整到三個一組的最后一個數的位置
If key = a(m) Then search = m:
Exit Do
ElseIf key < a(m) Then j =
m - 3
ElseIf　 　Then
i = m + 1
ElseIf key = a(m - 2) Then search = m - 2:
Exit Do
ElseIf key = a(m - 1) Then
search = m - 1: Exit Do
End If
Loop
If search <> 0 Then Txt2.Text = Str(search)
Else
Txt2.Text = "找不到" End If
L1.Caption = s
End Sub
（2）a數組數據如圖 a所示，如果key的值為 10，則L1上顯示的內容為　 　。
【答案】（1）Val（Txt1.Text）；m=m+1 或 m-m mod 3+3 或 3*(m\3+1)；key > a(m - 2)
（2）8，3，5，
【知識點】常見數據類型、數組；查找算法及程序實現
16．（2021高二下·溫州期中）一幅圖像的相鄰像素顏色之間往往存在著連貫性，現有幅256色位圖，第一行像素為100個，該行像素信息用十六進制可以描述為“FFFFFF……FF”，占100個字節。若用第一個字節表示數量，第二個字節表示顏色，用“64FF”2個字節即可表示該信息，但存儲空間只占原來的1/50。基于此思想，現在針對256色位圖的圖像信息設計壓縮算法，描述如下：
①將所有的小寫轉換為大寫，大小寫字母內碼差為32，例如：ASC(“a”)-ASC(“A”)=32
②對像素壓縮用兩個字節存儲，前一字節存儲連續相同像素的個數，用兩位十六進制表示；后一字節存儲顏色編碼。
③若連續像素個數超過255，用多段字節存儲該段連續像素。具體壓縮方法如下：
依據上述算法設計VB程序，程序運行界面如下圖所示：
請回答下列問題：
（1）若要將窗體的標題改為“圖像壓縮”，應該更改窗體的　 　屬性。
（2）請在劃線處填入合適的代碼。
Private Sub Command1_Click(　　)
Dim ans As String, s As
String, ch As String, key As String Dim i As Integer, pos As Integer
Dim count As Integer, count1
As Integer, count2 As Integer
s = Text1.Text
For i = 1 To Len(s)
ch
= Mid(s, i, 1)
If ch >= "a" And ch <=
"f" Then s =　 　
End
If
Next i
ans = ""
key = Mid(s, 1, 2)
pos = 3
Do While pos <= Len(s) + 1
count
= 1
Do While key = Mid(s, pos,
2)
count
= count + 1
pos = pos + 2
Loop
count1 = count \ 255
count2 = count Mod 255
For i = 1 To count1
ans = ans + "FF" + key
Next i
If count2 > 0 Then ans=　 　
End If
key = Mid(s, pos, 2)
pos = pos + 2
Loop
Text2.Text = ans
End Sub
Function DtoH(n As Integer) As String
temp = ""
Do While n <> 0 r = n Mod 16
n = n \ 16
If　 　Then
temp =
Chr(Asc("A") + r - 10) & temp
Else
temp = r & temp
End If
Loop
temp =
"0" + temp '加上前綴 0，保證轉換結果為兩位十六進制數
DtoH = Mid(temp, Len(temp) - 1, 2)
End Function
（3）如果某數據經過該程序壓縮后的數據是“02FF026401EE01EF”，那么原數據為　 　。
【答案】（1）Caption
（2）Mid(s, 1, i - 1) & Chr(Asc(ch) - 32) & Mid(s, i + 1, Len(s) - i)；ans + DtoH(count2) + key；r > 9
（3）FFFF6464EEEF
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；過程與自定義函數；循環結構語句及程序實現
1 / 1浙江省溫州環大羅山聯盟2020-2021學年高二下學期信息技術期中聯考試卷
一、選擇題（本大題共12小題，每小題2分，共24分。在每小題給出的四個選項中，只有一個符合題目要求）
1．（2021高二下·溫州期中）下列有關信息與信息技術的說法，正確的是（　　）
A．計算機誕生之后才有了信息技術
B．古人結繩記事屬于信息的獲取
C．新聞有多種呈現方式，說明信息可以脫離載體而存在
D．計算機感知現實世界需要將感知信息數字化
2．（2021高二下·溫州期中）關于瀏覽器和網頁的說法，下列選項中正確的是（　　）
A．瀏覽器可以編輯、解釋執行網頁中的HTML代碼
B．瀏覽器與Web服務器之間通過SMTP協議進行通信
C．網頁中的超鏈接只能實現該網站內部網頁間的跳轉
D．在瀏覽器中執行“添加到收藏夾”操作保存了網頁的URL
3．（2021高二下·溫州期中）使用Access軟件創建的“student”數據表，其設計視圖部分界面如圖所示，下列說法不正確的是（　　）
A．一般也可以使用“身份證號”字段作為主鍵
B．字段“ID”之前不可以插入字段“家庭住址”
C．將該表格導出成Excel文件，“性別”字段所對應的值會顯示為“True”或“False”
D．在該視圖中，“班級”字段的數據類型也可改成“文本"
4．（2021高二下·溫州期中）使用 UltraEdit 軟件查看字符內碼，部分界面如圖所示。下列說法正確的是（　　）
A．圖中有2個字符采用ASCII編碼，6個字符采用漢字編碼
B．GB2312漢字編碼是較為常用的漢字機內碼
C．將內碼“39”修改為“3A”，字符“9”將自動改為“10”
D．根據上圖推斷可知，字符“E”的內碼為33H
5．（2021高二下·溫州期中）關于聲音處理軟件Goldwave，如圖所示，下面說法正確的是（　　）
A．執行“插入 10 秒靜音”操作后，音頻播放過程中會出現靜音部分
B．當前狀態，單擊“刪除”按鈕，左聲道未選中部分變靜音
C．選中左聲道，單擊“刪除”按鈕，按原參數保存，存儲容量變成原來的一半
D．當前狀態進行了“復制”、“粘貼”操作，保存后文件容量不變
6．（2021高二下·溫州期中）一段未經壓縮的NTSC制式的AVI格式無聲視頻，時長為10秒，每幀畫面為512×768像素，存儲容量約為225MB，則該視頻中圖像的每個像素所占的位數為（　　）
A．2 位 B．8 位 C．16 位 D．24 位
7．（2021高二下·溫州期中）下列關于表達式的描述正確的是（　　）
A．表達式（Int (Rnd-Rnd+1)/2) *100=0 的值為 True
B．表達式 1*2^5+1*2^2+1*2^0=37 的值為 True
C．表達式 1988 mod 1000\10/2=38 的值為True
D．表達式 Mid("3.1415926",6,2)=59 的值為 True
8．（2021高二下·溫州期中）某算法流程圖如圖所示，執行該算法，輸出結果為（　　）
A．s=10 B．i=4 s=10 C．i=11 D．i=11 s=55
9．（2021高二下·溫州期中）有如下 VB 程序段：
s = 0 : x = "0123456789"
i = 1
Do While i <= Len(x)
t = Val(Mid(x, i, 2))
If t Mod 3 <> 0 Then s = s + t Else s = s - t
i = i + 1
Loop
執行該段程序后，s的值為（　　）
A．270 B．144 C．126 D．-126
10．（2021高二下·溫州期中）現有一個 VB 程序，用于讀取某數據庫中“book”數據表的數據，其中部分代碼如下：
Dim conn As ADODB.Connection
Dim rs As New ADODB.Recordset
Dim a(1 To 100) As String
conn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;data Source=" & App.Path & "\Mydata.accdb"
Set rs.ActiveConnection = conn
rs.Open "SELECT * FROM book"
n = 0
Do While Not
a(n) = rs.Fields("name")
Loop
上述程序段中方框處可選語句為：
①n = n + 1 ②rs.MoveNext ③rs.BOF ④rs.EOF
則方框處語句依次可為（　　）
A．③②① B．②①④ C．④②① D．④①②
11．（2021高二下·溫州期中）某算法的 VB 程序段如下：
Const n = 5
Dim d(1 To n) As Integer
For i = 1 To n
d(i) = Int(Rnd * 10 + 1)
Next i
i = 1
Do While i <= n - 1
For j = n To i + 1 Step -1
If d(j) Mod 2 = d(j - 1) Mod 2 Then If d(j) < d(j - 1) Then
t = d(j): d(j) = d(j - 1): d(j - 1) = t
End If
ElseIf d(j) Mod 2 = 1 And d(j - 1) Mod 2 = 0 Then
t = d(j): d(j) = d(j - 1): d(j - 1) = t
End If
Next j
i = i + 1
Loop
執行該程序段后，數組元素 d(1)到d(n)的值不可能為（　　）
A．7 11 15 16 19 B．1 9 11 15 19
C．2 8 10 18 20 D．11 2 10 12 16
12．（2021高二下·溫州期中）某對分查找算法的VB程序段如下：
L = 1 : R = 5 : c = 0
Key = Val(Text1.Text)
Do While L < R And Not f
m = (L + R) \ 2
c = c + 1
If d(m) = Key Then
f = True : Text2.Text = Str(m)
ElseIf d(m) < Key Then
L = m + 1
Else
R = m
End If
Loop
Label1.Caption = Str(c)
數組元素 a(1)到 a(5)的值依次為“19，28，37，46，55”。執行該程序段，下列說法錯誤的是（　　）
A．若 key=19，則 L=R-1 B．若 key=30，則 c=3
C．若 key=40，則 R=4 D．若 key=55，則 f=false
二、非選擇題（本大題4小題，4+8+7+7，共26分）
13．（2021高二下·溫州期中）小王同學收集了某書店的優惠圖書信息，并使用Excel軟件進行了數據處理，如圖a所示。
圖 a
請回答下列問題：
（1）E4：E17單元格為 E3單元格自動填充得到，E3單元格的公式為　 　。（提示：折后價格=原價*折扣）
（2）若要對社科類圖書按照價格進行降序排序，選擇的數據區域為　 　。
（3）根據圖a中數據制作的圖表如圖b所示，創建該圖表的數據區域是　 　。
圖 b
（4）對折后價格列進行篩選，篩選條件如圖c所示，將篩選出　 　條記錄。
圖 c
14．（2021高二下·溫州期中）小王創作了“藥物不良反應”的多媒體作品，首先使用Photoshop軟件處理圖像，然后使用Flash軟件制作動畫作品。請回答下列問題:
（1）處理圖像的部分界面如圖a所示。下列說法正確的有 （多選，填字母）。
圖 a
A．不能重命名的圖層有2個
B．可以使用文字工具將“藥物不良反應”圖層中的“藥物”兩個字改為紅色
C．刪除“藥片2”圖層，“藥片1”圖層也會被刪除
D．將“藥物不良反應.psd”文件存儲為bmp格式圖片，則bmp圖片不包含“小膠囊”圖層的內容
E．可以將“藥物不良反應”圖層中的圖層樣式拷貝到“陰影”圖層
（2）如圖b所示，測試該場景時，“文字”圖層內容直到45幀才出現，要使按鈕從第1幀就出現并延續到第45幀，下列操作可行的是 。（多選題,填字母）
圖 b
A．選中“文字”圖層第1幀執行“清除關鍵幀”操作
B．選中“文字”圖層第45幀執行“清除關鍵幀”操作
C．刪除“文字”圖層第1至44幀
D．選中“文字”圖層第45幀執行“復制幀”操作，在第1幀執行“粘貼幀”操作
E．選中“文字”圖層第45幀，并移動到第1幀
（3）“小膠囊”圖層中的對象在補間結束之后仍然在繼續張嘴和手部動作，實現該效果的對象類型是　 　（選填：影片剪輯 / 位圖 / 形狀）
（4）刪除“音效”圖層，第40幀到第45幀，對動畫整體音效　 　（有/無）影響。
（5）測試影片時，若要實現當前場景播放結束后跳轉到“主交互界面”場景的第1幀并停止播放，應執行的操作是　 　。
15．（2021高二下·溫州期中）如下圖所示，數組a中存儲了一組正整數，特征是：①以三個數為一組的話，每組中任意一個數都比前面一組中的任意一個數要大；②每組中三個數依次遞減；③數組a的元素總個數為3的倍數。
8 5 3 17 14 10 32 25 24 53 50 35 73 66 61
圖 a
依據對分查找思想，設計一個在數組a中查找數據key的程序。執行程序，在文本框Txt1中輸入key的值，在文本框Txt2中顯示查找結果。根據左右邊界，計算中位值，并在標簽L1中記錄歷次中位值的位置。
（1）程序代碼如下，請在劃線處填入合適的代碼。
Private Sub Command1_Click(　　)
Const n = 15
Dim a(1 To n) As Integer, search As Integer, key As Integer Dim i As
Integer, j As Integer, m As Integer
Dim s As String
' 讀取一組正整數，按上述規則存入數組，代碼略。
key =　 　
i = 1: j = n: search = 0
Do While i <= j
m = (i + j) \ 2
s = s + Str(m) + ","
If m Mod 3
<> 0 Then　 　 '把 m調整到三個一組的最后一個數的位置
If key = a(m) Then search = m:
Exit Do
ElseIf key < a(m) Then j =
m - 3
ElseIf　 　Then
i = m + 1
ElseIf key = a(m - 2) Then search = m - 2:
Exit Do
ElseIf key = a(m - 1) Then
search = m - 1: Exit Do
End If
Loop
If search <> 0 Then Txt2.Text = Str(search)
Else
Txt2.Text = "找不到" End If
L1.Caption = s
End Sub
（2）a數組數據如圖 a所示，如果key的值為 10，則L1上顯示的內容為　 　。
16．（2021高二下·溫州期中）一幅圖像的相鄰像素顏色之間往往存在著連貫性，現有幅256色位圖，第一行像素為100個，該行像素信息用十六進制可以描述為“FFFFFF……FF”，占100個字節。若用第一個字節表示數量，第二個字節表示顏色，用“64FF”2個字節即可表示該信息，但存儲空間只占原來的1/50。基于此思想，現在針對256色位圖的圖像信息設計壓縮算法，描述如下：
①將所有的小寫轉換為大寫，大小寫字母內碼差為32，例如：ASC(“a”)-ASC(“A”)=32
②對像素壓縮用兩個字節存儲，前一字節存儲連續相同像素的個數，用兩位十六進制表示；后一字節存儲顏色編碼。
③若連續像素個數超過255，用多段字節存儲該段連續像素。具體壓縮方法如下：
依據上述算法設計VB程序，程序運行界面如下圖所示：
請回答下列問題：
（1）若要將窗體的標題改為“圖像壓縮”，應該更改窗體的　 　屬性。
（2）請在劃線處填入合適的代碼。
Private Sub Command1_Click(　　)
Dim ans As String, s As
String, ch As String, key As String Dim i As Integer, pos As Integer
Dim count As Integer, count1
As Integer, count2 As Integer
s = Text1.Text
For i = 1 To Len(s)
ch
= Mid(s, i, 1)
If ch >= "a" And ch <=
"f" Then s =　 　
End
If
Next i
ans = ""
key = Mid(s, 1, 2)
pos = 3
Do While pos <= Len(s) + 1
count
= 1
Do While key = Mid(s, pos,
2)
count
= count + 1
pos = pos + 2
Loop
count1 = count \ 255
count2 = count Mod 255
For i = 1 To count1
ans = ans + "FF" + key
Next i
If count2 > 0 Then ans=　 　
End If
key = Mid(s, pos, 2)
pos = pos + 2
Loop
Text2.Text = ans
End Sub
Function DtoH(n As Integer) As String
temp = ""
Do While n <> 0 r = n Mod 16
n = n \ 16
If　 　Then
temp =
Chr(Asc("A") + r - 10) & temp
Else
temp = r & temp
End If
Loop
temp =
"0" + temp '加上前綴 0，保證轉換結果為兩位十六進制數
DtoH = Mid(temp, Len(temp) - 1, 2)
End Function
（3）如果某數據經過該程序壓縮后的數據是“02FF026401EE01EF”，那么原數據為　 　。
答案解析部分
1．【答案】D
【知識點】信息及其特征；信息技術的發展歷史
2．【答案】D
【知識點】網絡協議；瀏覽器；常用的網頁編輯與制作工具
3．【答案】B
【知識點】數據表、字段、記錄的編輯；數據庫文件的導入與導出；數據表視圖與設計視圖
4．【答案】A
【知識點】進制及數制轉換；字符編碼
5．【答案】A
【知識點】聲音素材的基本處理
6．【答案】C
【知識點】聲音、圖像、視頻編碼
7．【答案】B
【知識點】運算符、基本運算與表達式
8．【答案】A
【知識點】流程圖識讀
9．【答案】C
【知識點】程序的調試及運行
10．【答案】D
【知識點】程序訪問數據庫；循環結構語句及程序實現
11．【答案】A
【知識點】排序算法及程序實現
12．【答案】B
【知識點】查找算法及程序實現
13．【答案】（1）=C3*$G$4 或 =C3*$G4 或 =C3*0.7 或其他等效答案
（2）A11 : E17
（3）B2 : C2 , E2 , B6 : C10 , E6 : E10
（4）5
【知識點】表格數據的處理與計算
14．【答案】（1）B；D
（2）A；D；E
（3）影片剪輯
（4）無
（5）選擇“藥片”（或“文字”）圖層的第 45 幀，添加動作腳本 gotoandstop(“主交互界面”,1)
【知識點】圖層及圖層的基本操作；時間軸、幀、圖層、庫的概念及基本操作；元件的類型與應用；常用影片控制函數的應用
15．【答案】（1）Val（Txt1.Text）；m=m+1 或 m-m mod 3+3 或 3*(m\3+1)；key > a(m - 2)
（2）8，3，5，
【知識點】常見數據類型、數組；查找算法及程序實現
16．【答案】（1）Caption
（2）Mid(s, 1, i - 1) & Chr(Asc(ch) - 32) & Mid(s, i + 1, Len(s) - i)；ans + DtoH(count2) + key；r > 9
（3）FFFF6464EEEF
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；過程與自定義函數；循環結構語句及程序實現
1 / 1

展開更多......

收起↑