資源簡介

浙江省瑞安市上海新紀元高級中學2019-2020學年高二下學期信息技術期末考試試卷
一、選擇題(本大題共12小題，每小題2分，共24分。每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分)
1．（2020高二下·上海期末）關于信息和信息處理，下列描述錯誤的是（　　）
A．人的大腦是信息的載體
B．信息在傳輸過程中不會發生信息丟失
C．計算機處理信息的優勢之一是計算速度快
D．計算機錄音過程中涉及對聲音信息的加工處理
【答案】B
【知識點】信息及其特征
2．（2020高二下·上海期末）關于信息的表達與交流，下列描述正確的是（　　）
A．在某購物網站按商品類別進行查詢信息屬于主題目錄檢索
B．網頁中的超鏈接只能鏈接到網頁，不能指向圖片、文件等
C．SMTP 協議的功能是讓收件人從郵件服務器中將郵件讀到本地計算機
D．在瀏覽器中執行“另存為”操作保存網頁內容的同時，也保存了該網頁的URL
【答案】A
【知識點】電子郵件，電子公告板等信息交流方式；網絡資源的類型、下載與保存；網絡資源的檢索；網頁的交互設計
3．（2020高二下·上海期末）某學生選課系統采用數據庫來管理相關信息，其數據庫部分界面如圖所示。下列說法正確的是（　　）
A．該數據庫不能存儲圖像
B．當前數據表中可以有兩條相同“學號”的記錄
C．用戶發出刪除記錄等操作指令，不需要數據庫管理系統去實現
D．選課系統的各用戶可以同時訪問數據庫，體現了數據庫的共享性
【答案】D
【知識點】數據庫、數據庫系統及其特征；數據表、字段、記錄的概念
4．（2020高二下·上海期末）關于信息編碼，下列描述正確的是（　　）
A．GB2312漢字編碼屬于機內碼
B．掃描條形碼是信息的編碼過程
C．可以使用十六進制數對信息進行編碼
D．使用4位二進制數可以實現對某班40個學號進行編碼
【答案】C
【知識點】信息的編碼
5．（2020高二下·上海期末）使用Photoshop 軟件制作“漁舟唱晚”作品，部分界面如圖所示。下列說法正確的是（　　）
A．“古詩”圖層可以直接設置“風”濾鏡
B．可以在“小舟”圖層用仿制圖章工具進行仿制圖像
C．交換“小舟”與“山脈”圖層的順序，不影響作品的呈現效果
D．將文檔儲存為 JPEG 格式文件，“白鷺”圖層中的圖像內容可見
【答案】C
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作
6．（2020高二下·上海期末）用 GoldWave 軟件制作一段音頻，部分界面如圖所示。若在當前狀態下插入10秒靜音，按原參數保存，則聲音文件儲容量約為（　　）
A． 6.73MB B．8.41MB C．16.82MB D．26.91MB
【答案】B
【知識點】聲音、圖像、視頻編碼
7．（2020高二下·上海期末）下列 VB表達式中，計算結果與其他不同的選項是（　　）
A．2 Mod 8 + 1 B．Len("2") + 1
C．Sqr(Abs(23-32)) D．27 Mod 8 \ 2
【答案】B
【知識點】運算符、基本運算與表達式
8．（2020高二下·上海期末）某算法的部分流程圖如圖所示。執行這部分流程，若輸入n的值為501，則輸出i的值為（　　）
A． 3 B． 4 C． 5 D． 60
【答案】A
【知識點】流程圖識讀
9．（2020高二下·上海期末）有如下 VB 程序段：
s = 0: k = 0
For i = 1 To 4
t = a(i)
a(i) = k + t
k = t
s = s + a(i)
Next i
Text1.Text = Str(s)
數組元素a(1)至a(4)的值依次為“1，3，2，0”，執行該程序段后，文本框Text1中顯示的是（　　）
A．9 B．10 C．11 D．12
【答案】D
【知識點】常見數據類型、數組；循環結構語句及程序實現
10．（2020高二下·上海期末）已知一個含有 n 個不重復整數的數組 a，i 和 j 表示數組下標（iPrivate Sub Command1_Click()
Dim s As Integer, b As Integer
s = 0: b = a(1) + 1
For i = 2 To n
Next i
Label1.Caption = Str(s)
End Sub
Function max(x As Integer, y As Integer)
If x > y Then Else
End Function
方框中的代碼由以下四部分組成:
①max = y ②max = x ③b = max(b, a(i) + i) ④s = max(s, a(i) - i + b)
代碼順序正確的是（　　）
A．④③①② B．③④②① C．③④①② D．④③②①
【答案】D
【知識點】常量、變量及變量的賦值
11．（2020高二下·上海期末）有如下 VB 程序段：
m = Int(Rnd * 4 + 2)
For i = 1 To 6 - m
For j = 1 To 6 - i
If a(j) - a(j + 1) < 0 Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
數組元素a(1)到 a(6)的值依次為“49，45，5，61，42，71”，執行該程序段后，a(1)～a(6)各元素值不可能的是（ ）
A． 61,49,71,45,42,5 B．49,45,61,42,71,5
C．49,61,45,71,42,5 D．71,61,49,45,42,5
【答案】D
【知識點】常見數據類型、數組；運算符、基本運算與表達式；分支結構語句及程序實現；循環結構語句及程序實現
12．（2020高二下·上海期末）有如下 VB 程序段：
Key = Val(Text1.Text)
i = 1: j = 10: c = 0
Do While i <= j
m = (i + j) \ 2
c = c + 1
If a(m) >= Key Then j = m – 1 Else i = m + 1
Loop
Text2.Text = Str(c) + Str(i) + Str(j) + Str(m)
數組元素a(1)至a(10)的值依次為“8，10，12，15，15，15，21，34，45，66”。在文本框Text1中輸入數值15，執行該程序段后，文本框Text2中顯示的內容是（ ）
A． 3 3 2 3 B． 4 4 3 4 C． 4 7 6 7 D． 3 4 3 3
【答案】B
【知識點】常見數據類型、數組；分支結構語句及程序實現；循環結構語句及程序實現
二、非選擇題（本大題共4小題，4+8+7+7，共26分）
13．（2020高二下·上海期末）使用Excel軟件處理浙江省行政區域相關數據，部分數據如圖a所示。
請回答下列問題：
（1）區域J3:J13的數據是通過公式計算得到的：在J3單元格中輸入公式　 　，再利用自動填充功能完成區域J4:J13的計算。（提示：COUNTIF 函數用于統計某個區域滿足條件的單元格個數。例如：=COUNTIF(H3:H13,B3）表示在數據區域 H3:H13 中統計數值等于 B3 單元格值的個數。）
（2）對圖a中的數據區域A2:F92按圖b所示的條件進行排序(文本按字母排序)，結合“各地級市相關數據統計表”分析,則排序后湖州市面積最小的縣級行政區的行號為　 　。
（3）縣級行政區的代碼前4位與該縣級行政區所在地級市代碼的前4位是相同的。現將圖a中A1:F92的數據復制至新工作表中，若要篩選出衢州市各縣級行政區域相關信息，下列篩選方式可行的是 (多選，填字母)
A．
B．
C．
D．
【答案】（1）=COUNTIF(B$3:B$92,H3)或=COUNTIF($B$3:$B$92,H3)或=COUNTIF(B$3:B$92,$H3)或=COUNTIF($B$3:$B$92,$H3)
（2）20
（3）A；B；D
【知識點】表格數據的基本操作；表格數據的處理與計算
14．（2020高二下·上海期末）用 Flash 軟件打開制作“致敬逆行者.fla”文件，編輯界面如下圖所示。
請回答下列問題:
（1）下學列屬于創作需求分析的是　 　(多選，填字母:A .將作品定位為演示型/ B .設計作品的主要界面/ C .作品將以SWF格式在網絡上發布/
D .確定制作該作品所需軟件和硬件/E . 分析作品主網要面向的用戶)。
（2）不改變動畫幀數，若要使當前場景動畫播放時長調整為5秒，則需設置Flash文檔幀頻為　 　fps。
（3）在當前狀態下，下列說法不正確的是　 　（單選，填字母：A .庫中至少有5個元件/B .可以將“音樂”圖層移至“背景”圖層下方/ C .可以將“人物”圖層第1幀對象的Alpha值修改為 50%/ D .“文字”圖層第1幀至第40幀的動畫類型是逐幀動畫）
（4）若要使“音樂”圖層的聲音與“人物”圖層動畫同時開始播放，并在該場景動畫結束后聲音繼續播放，正確的操作是　 　。
（5）測試影片時，單擊“進入”按鈕，停止當前聲音的播放，然后跳轉到“戰斗”場景第1幀繼續播放，則該“進入”按鈕的動作腳本是 on(press){　 　}。
【答案】（1）ACD
（2）8
（3）C
（4）將“音樂”圖層第10幀移至第1幀，并將聲音同步方式修改為事件或在音樂圖層的第一幀執行“清除關鍵幀”命令，并將聲音同步方式修改為事件
（5）stopAllSounds(); gotoAndPlay(“戰斗”,1);或 stopAllSounds();play()
【知識點】多媒體作品的規劃和設計；時間軸、幀、圖層、庫的概念及基本操作；元件的類型與應用
15．（2020高二下·上海期末）IPV4點分十進制IP地址可轉換為十進制數字形式。編寫“模擬IP過濾器”程序，程序功能如下:程序運行時，在列表框List1中顯示能通過過濾的IP區間（IP區間按起始端點升序排序），在文本框Text1中輸入需要判斷的IP地址，單擊“驗證”按鈕Cmd1，若IP區間有重疊區間則作合并處理，并顯示在列表框List2中，然后對輸入的IP地址進行判斷，判斷結果顯示在標簽Label4中。程序運行界面如圖所示：
（1）Cmd1對象 屬于　 　類（單選，填字母 ：A . Form/ B . Label/ C . TextBox /mandButton）。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Dim a(1 To 100) As Integer, n As Integer
Private Sub Form_Load()
'本過程從數據庫中讀取n個IP地址區間數據，并依次存入數組a(1)、…、a(2*n)中
'對能通過過濾的IP區間按區間起始端點升序排序
'代碼略
End Sub
Private Sub Cmd1_Click()
Dim ip As Integer, L As Integer, R As Integer
Dim i As Integer, pos As Integer, f As Boolean
ip = Val(Text1.Text)
L = a(1): R = a(2): i = 3: pos = 1 ‘合并重疊區間
Do While i <= 2 * n - 1
If 　 　Then
If a(i + 1) > R Then R = a(i + 1)
Else
a(2 * pos - 1) = L：a(2 * pos) = R
pos = pos + 1
L = a(i)
R = a(i + 1)
End If
　 　
Loop
a(2 * pos - 1) = L: a(2 * pos) = R '依次輸出排序合并后的區間數據，代碼略
If Then '判斷請求的 IP 地址
Label4.Caption = "IP 需過濾"
Else
i = 1: f = False
Do While i <= pos And Not f
If 　 　 Then
i = i + 1
Else
Label4.Caption = "IP 不需過濾" f = True
End If
Loop
If f = False Then Label4.Caption = "IP 需過濾"
End If
End Sub
（3）程序中加框處代碼有錯，請改正。
【答案】（1）D
（2）a(i)<=R；i=i+2；Not(ip>=a(2*i-1) And ip<=a(2*i))或a(2 * i - 1) > ip Or a(2 * i) < ip
（3）ip < a(1) Or ip > a(2 * pos)
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；運算符、基本運算與表達式
16．（2020高二下·上海期末）某小賣部商品相關數據分別存放在相應的數據表中，如圖a和圖b所示。
編寫“商品銷售統計”程序功能如下：窗體加載時從數據庫中讀取商品的相關數據，對各商品類別總銷量及名次進行統計，結果在列表框List1中顯示；單擊“查詢”按鈕Command1，按商品類別編號從小到大排列，同一類別商品按銷量從大到小排序，在列表框List2中顯示。程序運行界面如圖c所示。
（1）閱讀程序可知，gtype(b(3))的初始值為　 　。
（2）請在劃線處填入合適的代碼。
Dim a(1 To 2000) As Integer, b(1 To 2000) As Integer, s(1 To 2000) As Integer
Dim gid(1 To 100) As Integer, t(1 To 2000) As Integer
Dim c(1 To 2000) As String, gtype(1 To 100) As String
Dim ts(1 To 100) As Integer '數組 ts 存儲每個類別商品總銷量
Dim k(1 To 2000) As Integer '數組 k 存儲每個類別商品總數
Dim m As Integer, n As Integer
Private Sub Form_Load()
'從數據庫讀取 m 條記錄中類別編號、商品類別數據分別存儲在數組 gid、gtype 中
'從數據庫讀取n 條記錄中類別編號、商品名稱、商品銷量數據分別存儲在數組 b、c、s中，代碼略
For i = 1 To n '統計各類別商品總銷量及商品總數
　 　
k(b(i)) = k(b(i)) + 1
Next i
For i = 1 To m '計算各類別商品總銷量的名次
p = 0
For j = 1 To m
If ts(i) < ts(j) Then p = p + 1
mc(i) = p + 1
Next j
Next i
List1.AddItem "類別 銷量 名次"
For i = 1 To m
List1.AddItem gtype(i) + " " + Str(ts(i)) + " " + Str(mc(i))
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, pos As Integer, tmp As Integer, p As Integer
p = 1
For i = 1 To m
a(i) = p
p = p + k(i)
Next i
For i = 1 To n
p = b(i)
t(a(p)) = i
a(p) = a(p) + 1
Next i
pos = 1
For i = 1 To m '對各類別商品按商品銷量進行排序
For j = pos To pos + k(i) - 2
　 　
tmp =t(j): t(j) = t(p): t(p) = tmp
Next j
pos = pos + k(i)
Next i
List2.AddItem "類別 商品 商品銷量"
For i = 1 To n
List2.AddItem 　 　 + " " + geshi(c(t(i))) + " " +Str(s(t(i)))
Next i
End Sub
Function f(head As Integer, tail As Integer) As Integer
Dim i As Integer, p As Integer
p = head - 1
For i = head To tail
If s(t(i)) > s(t(p)) Then p = i
Next i
f = p
End Function
Function geshi(s As String) As String '格式輸出，代碼略
End Function
【答案】（1）“餅干”
（2）ts(b(i)) = ts(b(i)) + s(i)；p = f(j + 1, pos + k(i) - 1)；gtype(b(t(i)))
【知識點】常見數據類型、數組；過程與自定義函數；排序算法及程序實現；循環結構語句及程序實現
1 / 1浙江省瑞安市上海新紀元高級中學2019-2020學年高二下學期信息技術期末考試試卷
一、選擇題(本大題共12小題，每小題2分，共24分。每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分)
1．（2020高二下·上海期末）關于信息和信息處理，下列描述錯誤的是（　　）
A．人的大腦是信息的載體
B．信息在傳輸過程中不會發生信息丟失
C．計算機處理信息的優勢之一是計算速度快
D．計算機錄音過程中涉及對聲音信息的加工處理
2．（2020高二下·上海期末）關于信息的表達與交流，下列描述正確的是（　　）
A．在某購物網站按商品類別進行查詢信息屬于主題目錄檢索
B．網頁中的超鏈接只能鏈接到網頁，不能指向圖片、文件等
C．SMTP 協議的功能是讓收件人從郵件服務器中將郵件讀到本地計算機
D．在瀏覽器中執行“另存為”操作保存網頁內容的同時，也保存了該網頁的URL
3．（2020高二下·上海期末）某學生選課系統采用數據庫來管理相關信息，其數據庫部分界面如圖所示。下列說法正確的是（　　）
A．該數據庫不能存儲圖像
B．當前數據表中可以有兩條相同“學號”的記錄
C．用戶發出刪除記錄等操作指令，不需要數據庫管理系統去實現
D．選課系統的各用戶可以同時訪問數據庫，體現了數據庫的共享性
4．（2020高二下·上海期末）關于信息編碼，下列描述正確的是（　　）
A．GB2312漢字編碼屬于機內碼
B．掃描條形碼是信息的編碼過程
C．可以使用十六進制數對信息進行編碼
D．使用4位二進制數可以實現對某班40個學號進行編碼
5．（2020高二下·上海期末）使用Photoshop 軟件制作“漁舟唱晚”作品，部分界面如圖所示。下列說法正確的是（　　）
A．“古詩”圖層可以直接設置“風”濾鏡
B．可以在“小舟”圖層用仿制圖章工具進行仿制圖像
C．交換“小舟”與“山脈”圖層的順序，不影響作品的呈現效果
D．將文檔儲存為 JPEG 格式文件，“白鷺”圖層中的圖像內容可見
6．（2020高二下·上海期末）用 GoldWave 軟件制作一段音頻，部分界面如圖所示。若在當前狀態下插入10秒靜音，按原參數保存，則聲音文件儲容量約為（　　）
A． 6.73MB B．8.41MB C．16.82MB D．26.91MB
7．（2020高二下·上海期末）下列 VB表達式中，計算結果與其他不同的選項是（　　）
A．2 Mod 8 + 1 B．Len("2") + 1
C．Sqr(Abs(23-32)) D．27 Mod 8 \ 2
8．（2020高二下·上海期末）某算法的部分流程圖如圖所示。執行這部分流程，若輸入n的值為501，則輸出i的值為（　　）
A． 3 B． 4 C． 5 D． 60
9．（2020高二下·上海期末）有如下 VB 程序段：
s = 0: k = 0
For i = 1 To 4
t = a(i)
a(i) = k + t
k = t
s = s + a(i)
Next i
Text1.Text = Str(s)
數組元素a(1)至a(4)的值依次為“1，3，2，0”，執行該程序段后，文本框Text1中顯示的是（　　）
A．9 B．10 C．11 D．12
10．（2020高二下·上海期末）已知一個含有 n 個不重復整數的數組 a，i 和 j 表示數組下標（iPrivate Sub Command1_Click()
Dim s As Integer, b As Integer
s = 0: b = a(1) + 1
For i = 2 To n
Next i
Label1.Caption = Str(s)
End Sub
Function max(x As Integer, y As Integer)
If x > y Then Else
End Function
方框中的代碼由以下四部分組成:
①max = y ②max = x ③b = max(b, a(i) + i) ④s = max(s, a(i) - i + b)
代碼順序正確的是（　　）
A．④③①② B．③④②① C．③④①② D．④③②①
11．（2020高二下·上海期末）有如下 VB 程序段：
m = Int(Rnd * 4 + 2)
For i = 1 To 6 - m
For j = 1 To 6 - i
If a(j) - a(j + 1) < 0 Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
數組元素a(1)到 a(6)的值依次為“49，45，5，61，42，71”，執行該程序段后，a(1)～a(6)各元素值不可能的是（ ）
A． 61,49,71,45,42,5 B．49,45,61,42,71,5
C．49,61,45,71,42,5 D．71,61,49,45,42,5
12．（2020高二下·上海期末）有如下 VB 程序段：
Key = Val(Text1.Text)
i = 1: j = 10: c = 0
Do While i <= j
m = (i + j) \ 2
c = c + 1
If a(m) >= Key Then j = m – 1 Else i = m + 1
Loop
Text2.Text = Str(c) + Str(i) + Str(j) + Str(m)
數組元素a(1)至a(10)的值依次為“8，10，12，15，15，15，21，34，45，66”。在文本框Text1中輸入數值15，執行該程序段后，文本框Text2中顯示的內容是（ ）
A． 3 3 2 3 B． 4 4 3 4 C． 4 7 6 7 D． 3 4 3 3
二、非選擇題（本大題共4小題，4+8+7+7，共26分）
13．（2020高二下·上海期末）使用Excel軟件處理浙江省行政區域相關數據，部分數據如圖a所示。
請回答下列問題：
（1）區域J3:J13的數據是通過公式計算得到的：在J3單元格中輸入公式　 　，再利用自動填充功能完成區域J4:J13的計算。（提示：COUNTIF 函數用于統計某個區域滿足條件的單元格個數。例如：=COUNTIF(H3:H13,B3）表示在數據區域 H3:H13 中統計數值等于 B3 單元格值的個數。）
（2）對圖a中的數據區域A2:F92按圖b所示的條件進行排序(文本按字母排序)，結合“各地級市相關數據統計表”分析,則排序后湖州市面積最小的縣級行政區的行號為　 　。
（3）縣級行政區的代碼前4位與該縣級行政區所在地級市代碼的前4位是相同的。現將圖a中A1:F92的數據復制至新工作表中，若要篩選出衢州市各縣級行政區域相關信息，下列篩選方式可行的是 (多選，填字母)
A．
B．
C．
D．
14．（2020高二下·上海期末）用 Flash 軟件打開制作“致敬逆行者.fla”文件，編輯界面如下圖所示。
請回答下列問題:
（1）下學列屬于創作需求分析的是　 　(多選，填字母:A .將作品定位為演示型/ B .設計作品的主要界面/ C .作品將以SWF格式在網絡上發布/
D .確定制作該作品所需軟件和硬件/E . 分析作品主網要面向的用戶)。
（2）不改變動畫幀數，若要使當前場景動畫播放時長調整為5秒，則需設置Flash文檔幀頻為　 　fps。
（3）在當前狀態下，下列說法不正確的是　 　（單選，填字母：A .庫中至少有5個元件/B .可以將“音樂”圖層移至“背景”圖層下方/ C .可以將“人物”圖層第1幀對象的Alpha值修改為 50%/ D .“文字”圖層第1幀至第40幀的動畫類型是逐幀動畫）
（4）若要使“音樂”圖層的聲音與“人物”圖層動畫同時開始播放，并在該場景動畫結束后聲音繼續播放，正確的操作是　 　。
（5）測試影片時，單擊“進入”按鈕，停止當前聲音的播放，然后跳轉到“戰斗”場景第1幀繼續播放，則該“進入”按鈕的動作腳本是 on(press){　 　}。
15．（2020高二下·上海期末）IPV4點分十進制IP地址可轉換為十進制數字形式。編寫“模擬IP過濾器”程序，程序功能如下:程序運行時，在列表框List1中顯示能通過過濾的IP區間（IP區間按起始端點升序排序），在文本框Text1中輸入需要判斷的IP地址，單擊“驗證”按鈕Cmd1，若IP區間有重疊區間則作合并處理，并顯示在列表框List2中，然后對輸入的IP地址進行判斷，判斷結果顯示在標簽Label4中。程序運行界面如圖所示：
（1）Cmd1對象 屬于　 　類（單選，填字母 ：A . Form/ B . Label/ C . TextBox /mandButton）。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Dim a(1 To 100) As Integer, n As Integer
Private Sub Form_Load()
'本過程從數據庫中讀取n個IP地址區間數據，并依次存入數組a(1)、…、a(2*n)中
'對能通過過濾的IP區間按區間起始端點升序排序
'代碼略
End Sub
Private Sub Cmd1_Click()
Dim ip As Integer, L As Integer, R As Integer
Dim i As Integer, pos As Integer, f As Boolean
ip = Val(Text1.Text)
L = a(1): R = a(2): i = 3: pos = 1 ‘合并重疊區間
Do While i <= 2 * n - 1
If 　 　Then
If a(i + 1) > R Then R = a(i + 1)
Else
a(2 * pos - 1) = L：a(2 * pos) = R
pos = pos + 1
L = a(i)
R = a(i + 1)
End If
　 　
Loop
a(2 * pos - 1) = L: a(2 * pos) = R '依次輸出排序合并后的區間數據，代碼略
If Then '判斷請求的 IP 地址
Label4.Caption = "IP 需過濾"
Else
i = 1: f = False
Do While i <= pos And Not f
If 　 　 Then
i = i + 1
Else
Label4.Caption = "IP 不需過濾" f = True
End If
Loop
If f = False Then Label4.Caption = "IP 需過濾"
End If
End Sub
（3）程序中加框處代碼有錯，請改正。
16．（2020高二下·上海期末）某小賣部商品相關數據分別存放在相應的數據表中，如圖a和圖b所示。
編寫“商品銷售統計”程序功能如下：窗體加載時從數據庫中讀取商品的相關數據，對各商品類別總銷量及名次進行統計，結果在列表框List1中顯示；單擊“查詢”按鈕Command1，按商品類別編號從小到大排列，同一類別商品按銷量從大到小排序，在列表框List2中顯示。程序運行界面如圖c所示。
（1）閱讀程序可知，gtype(b(3))的初始值為　 　。
（2）請在劃線處填入合適的代碼。
Dim a(1 To 2000) As Integer, b(1 To 2000) As Integer, s(1 To 2000) As Integer
Dim gid(1 To 100) As Integer, t(1 To 2000) As Integer
Dim c(1 To 2000) As String, gtype(1 To 100) As String
Dim ts(1 To 100) As Integer '數組 ts 存儲每個類別商品總銷量
Dim k(1 To 2000) As Integer '數組 k 存儲每個類別商品總數
Dim m As Integer, n As Integer
Private Sub Form_Load()
'從數據庫讀取 m 條記錄中類別編號、商品類別數據分別存儲在數組 gid、gtype 中
'從數據庫讀取n 條記錄中類別編號、商品名稱、商品銷量數據分別存儲在數組 b、c、s中，代碼略
For i = 1 To n '統計各類別商品總銷量及商品總數
　 　
k(b(i)) = k(b(i)) + 1
Next i
For i = 1 To m '計算各類別商品總銷量的名次
p = 0
For j = 1 To m
If ts(i) < ts(j) Then p = p + 1
mc(i) = p + 1
Next j
Next i
List1.AddItem "類別 銷量 名次"
For i = 1 To m
List1.AddItem gtype(i) + " " + Str(ts(i)) + " " + Str(mc(i))
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, pos As Integer, tmp As Integer, p As Integer
p = 1
For i = 1 To m
a(i) = p
p = p + k(i)
Next i
For i = 1 To n
p = b(i)
t(a(p)) = i
a(p) = a(p) + 1
Next i
pos = 1
For i = 1 To m '對各類別商品按商品銷量進行排序
For j = pos To pos + k(i) - 2
　 　
tmp =t(j): t(j) = t(p): t(p) = tmp
Next j
pos = pos + k(i)
Next i
List2.AddItem "類別 商品 商品銷量"
For i = 1 To n
List2.AddItem 　 　 + " " + geshi(c(t(i))) + " " +Str(s(t(i)))
Next i
End Sub
Function f(head As Integer, tail As Integer) As Integer
Dim i As Integer, p As Integer
p = head - 1
For i = head To tail
If s(t(i)) > s(t(p)) Then p = i
Next i
f = p
End Function
Function geshi(s As String) As String '格式輸出，代碼略
End Function
答案解析部分
1．【答案】B
【知識點】信息及其特征
2．【答案】A
【知識點】電子郵件，電子公告板等信息交流方式；網絡資源的類型、下載與保存；網絡資源的檢索；網頁的交互設計
3．【答案】D
【知識點】數據庫、數據庫系統及其特征；數據表、字段、記錄的概念
4．【答案】C
【知識點】信息的編碼
5．【答案】C
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作
6．【答案】B
【知識點】聲音、圖像、視頻編碼
7．【答案】B
【知識點】運算符、基本運算與表達式
8．【答案】A
【知識點】流程圖識讀
9．【答案】D
【知識點】常見數據類型、數組；循環結構語句及程序實現
10．【答案】D
【知識點】常量、變量及變量的賦值
11．【答案】D
【知識點】常見數據類型、數組；運算符、基本運算與表達式；分支結構語句及程序實現；循環結構語句及程序實現
12．【答案】B
【知識點】常見數據類型、數組；分支結構語句及程序實現；循環結構語句及程序實現
13．【答案】（1）=COUNTIF(B$3:B$92,H3)或=COUNTIF($B$3:$B$92,H3)或=COUNTIF(B$3:B$92,$H3)或=COUNTIF($B$3:$B$92,$H3)
（2）20
（3）A；B；D
【知識點】表格數據的基本操作；表格數據的處理與計算
14．【答案】（1）ACD
（2）8
（3）C
（4）將“音樂”圖層第10幀移至第1幀，并將聲音同步方式修改為事件或在音樂圖層的第一幀執行“清除關鍵幀”命令，并將聲音同步方式修改為事件
（5）stopAllSounds(); gotoAndPlay(“戰斗”,1);或 stopAllSounds();play()
【知識點】多媒體作品的規劃和設計；時間軸、幀、圖層、庫的概念及基本操作；元件的類型與應用
15．【答案】（1）D
（2）a(i)<=R；i=i+2；Not(ip>=a(2*i-1) And ip<=a(2*i))或a(2 * i - 1) > ip Or a(2 * i) < ip
（3）ip < a(1) Or ip > a(2 * pos)
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；運算符、基本運算與表達式
16．【答案】（1）“餅干”
（2）ts(b(i)) = ts(b(i)) + s(i)；p = f(j + 1, pos + k(i) - 1)；gtype(b(t(i)))
【知識點】常見數據類型、數組；過程與自定義函數；排序算法及程序實現；循環結構語句及程序實現
1 / 1

展開更多......

收起↑