資源簡介

登錄二一教育在線組卷平臺 助您教考全無憂
浙江省紹興市上虞區2020屆高三下學期信息技術第二次教學質量調測卷
一、選擇題(本大題共12小題，每小題2分，共24分。在每小題該出的四個選項中，只有一個符號題目要求)
1．（2020·上虞模擬）下列關于信息的說法，不正確的是（　　）
A．信息可重復使用，不會產生損耗，但價值可能會發生變化
B．搜索引擎中只能使用文字進行信息檢索
C．手機支付寶的刷臉登錄功能，可以提高信息的安全性
D．二維碼在計算機內部是以二進制的形式存在的
【答案】B
【知識點】信息及其特征；信息系統安全防護；網絡資源的檢索；計算機、移動終端的工作原理
2．（2020·上虞模擬）下列應用中，使用了光學字符識別(OCR)技術的是（　　）
A．電子警察自動對違章車輛進行拍攝并識別該車牌號碼
B．使用微信的“翻譯”功能將外文翻譯為中文
C．用視頻監控系統監測考場內考生考試紀律
D．高考考生入場用指紋識別進行身份驗證
【答案】A
【知識點】字符識別
3．（2020·上虞模擬）如圖是一張“書籍管理”的Access數據表，下列說法正確的是（　　）
A．“是否借出”字段數據類型該為“文本”類型后，該列記錄變為“True”與“false”
B．新記錄的序號可能是“8”
C．可以添加書名為“有一種境界叫放下”的新記錄
D．可以在出版日期字段輸入20191225
【答案】B
【知識點】數據表、字段、記錄的概念；數據表、字段、記錄的編輯
4．（2020·上虞模擬）下列關于數制的說法，不正確的是（　　）
A．若二進制數末位為0，其對應權值為2°
B．若二進制數末位為0，則該數對應的十六進制數末位不一定是0
C．若二進制數1101去掉末位數碼，則該數整除2即可得到。
D．若二進制數110001取左邊三位111，則該數整除8即可得到
【答案】D
【知識點】進制及數制轉換
5．（2020·上虞模擬）使用GoldWave軟件編輯某音頻文件，部分界面如圖所示，下面說法正確的是（　　）
A．用“選定部分另存為”命令，并按默認參數保存，所得音頻的容量約為250KB
B．執行“剪裁”命令后，該音頻文件時長變為3s
C．當前音頻文件的采樣頻率是44.1kHz，量化位數為16B
D．在當前狀態下插入10s靜音后，右聲道最后10秒出現靜音
【答案】A
【知識點】聲音素材的基本處理；聲音、圖像、視頻編碼
6．（2020·上虞模擬）下列關于多媒體技術及其應用說法正確的是（　　）
①只要包含了多種媒體信息就被稱為多媒體技術
②創作需求分析包括主題思想、用戶情況、設施需求、發布方式等
③文字腳本包括確定“片頭”界面尺寸、素材組織與來源、交互方式等
④作品的系統結構描述了整個作品的組成部分、工作流程、主要界面
⑤Photoshop是以頁為基礎的多媒體創作工具
A．②③④ B．①④ C．②③⑤ D．③④
【答案】D
【知識點】多媒體技術的概念和特征；多媒體作品的規劃和設計
7．（2020·上虞模擬）下列選項中，能實現求1~100之間的所有偶數之和的程序段是:（　　）
A． B．
C． D．
【答案】A
【知識點】算法的控制結構；循環結構語句及程序實現
8．（2020·上虞模擬）某算法的部分流程圖如圖所示，執行這部分流程，若依次輸入a的值為4, 1, 5, 9, 7,則輸出s的值為（　　）
A．-8 B．-7 C．-3 D．-1
【答案】D
【知識點】常量、變量及變量的賦值；流程圖識讀
9．（2020·上虞模擬）采用冒泡排序算法對原數據序列“5，6，4, 7, 2, 1”的奇數位進行升序排序，若排序遍后為“2, 6, 5，7,4，1”，則下一遍排序后為（　　）
A．1, 2, 6，5，7, 4 B．2,6，1,7,4,5
C．6，5，7，4，2, 1 D．2,6,4，7,5,1
【答案】D
【知識點】排序算法及程序實現
10．（2020·上虞模擬）有如下VB程序段：
Dim a(0 To 6) As Integer
Randomize:
a(0)=0: i=1
Do While i<=6
a(i)=Int(Rnd*5)+1
If a(i) Mod 2<>i Mod 2 Then
i=i-1
ElseIf a(i)a(i)=a(i)*2
End If
i=i+1
Loop
執行該程序段后，數組元素a(1)到a(6)的值可能是(　　）
A．5, 4, 5, 4, 5, 10 B．1, 4, 6, 8, 10, 8
C．7, 2, 5, 4, 5, 4 D．1, 2, 2, 3, 5, 4
【答案】B
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
11．（2020·上虞模擬）有如下程序段:
Private Sub Command1_Click()
Dim s1 As String, s2 As String
s1=Text1.Text: j=1: ans=1 : s2=""
For i=2 To Len(s1)
if Asc(Mid(s1, i-1, 1)+1=Asc(Mid(s1, i, 1)) Then
j=j+1
if j>=ans Then
ans=j
s2=Mid(s1, i-j+1, j)
End If
Else
j=1
End if
Next i
List1 Addltem s2
End Sub
執行程序時，在文本框text1中輸入“abc1234abcDewxyx”，單擊command1后，在列表框List1中顯示的結果是(　　）
A．abc B．1234 C．abcDe D．wxyz
【答案】D
【知識點】運算符、基本運算與表達式；分支結構語句及程序實現；循環結構語句及程序實現
12．（2020·上虞模擬）某對分查找算法的VB程序段如下:
Key=Val(Text1.Text)
i=1:j=10: f=false: n=0
Do While i<= j and f=false
n=n+1
m=(i+j+1)\2
if a(m)=key then f=true
if a(m)>Key Thenj=m 1Elsei=m+1
Loop
數組元素a(1)到a(10)的值依次為“4,7,10,12,15,19,20,23,28,30”。在文木框Text1中輸入待查找的數，執行該程序段后n的值為4，則key值可能的是(　　）
A．10 B．12 C．19 D．30
【答案】B
【知識點】常量、變量及變量的賦值；查找算法及程序實現
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2020·上虞模擬）小明進行研究性學習，對2019年國家和地區貨物的進出口情況進行數據分析，如圖所示：
（1）計算“占全部出口比重”這列數據，通過D5單元格中公式，對D6:D15進行自動填充，D15單元格顯示的結果是: 　 　 (單選，填字母。A . #DIV/0!/B .
100.00/C . 0.84/D . 0.00)。
（2）若要正確的計算“占全部出口比重”列的數據，可對D5單元格中的公式進行更改，并對D6:D15進行自動填充，則D5單元格中的公式是：　 　。
（3）對于圖b中，下列說法正確的是 (多選，填字母)
A．圖表的數據區域是A5:A15,B5:B15,E5:E15。
B．選定數據區域AS:G615，以列C為關鍵字進行升序排序，圖表不會發生變化。
C．隱藏數據第2至4行，圖表不會發生變化。
D．選定數據區域A3:G15，篩選出“出口額”最大的三個國家和地區，圖表不會發生變化。
【答案】（1）B
（2）=B5/SUM(B$5:B$15)*100
（3）A；C
【知識點】表格數據的基本操作；表格數據的處理與計算；數據分析
14．（2020·上虞模擬）為了響應“世界讀書日”活動，倡導同學多讀書，讀好書，某同學使用Photoshop軟件制作“世界讀書日”作品，部分界面如圖a所示:
圖 a
（1）下列說法正確的是: (多選，填字母)
A．拷貝“世界讀書日”的圖層樣式粘貼到“背景”圖層
B．“文字”圖層不可見，可以為該圖層添加圖層樣式
C．“世界讀書日”圖層的“讀”字可以設置濾鏡效果
D．刪除“女孩”圖層，“世界讀書日”圖層也將刪除
E．“世界讀書日”圖層可以通過自由變換改變文字大小
（2）如圖b所示，“文字”圖層第1幀到第30幀實現文字“Readin
Time”到“閱讀時間”的形狀補間動畫，但發現動畫沒有成功，原因是　 　。
圖 b
（3）已知“音樂”圖層第1幀的音效設置如圖c，要求文字補間動畫結束，聲音也停止播放，則正確的操作方法有 (多選題，填字母)。
圖 c
A．“文字”圖層第30幀添加腳本stop(　　)；
B．“音樂”第30幀插入空白關鍵幀，同步設置為“數據流”
C．“音樂”圖層第60幀移到第30幀，同步設置為“數據流”
D．“音樂”圖層第30幀到第60幀刪除幀，同步設置為“數據流”
E．“音樂”圖層第30幀添加腳本stopAllSounds(　　);
（4）“按鈕”圖層最后一幀中有兩個按鈕“退出”和“重播”，在不改變其他動畫效果的前提下，若要使動畫一開始就出現這兩個按鈕，實現的方法是　 　。
（5）導出影片，動畫播放到最后自動打開“www.”,則在按鈕的最后1幀上添加的腳本為：　 　。
【答案】（1）B；C
（2）“文字”圖層第30幀對象未分離成形狀
（3）B；D
（4）“按鈕”圖層第60幀復制到第1幀，并刪除第1幀腳本
（5）getURL("Http://www.")
【知識點】多媒體作品的規劃和設計；圖層及圖層的基本操作；時間軸、幀、圖層、庫的概念及基本操作
15．（2020·上虞模擬）下圖為某次信息考試得分情況，字符串數組class中存儲班級學號(如“0112”，前兩位表示班級，后兩位表示學號)，score數組中存儲得分。某同學設計了VB程序實現如下功能:在Text1中輸入班級(1-18之間的數字)，在Text2中輸入人數m，單擊“刷選”按鈕，在列表框List1中刷選出該班符合要求的班級學號和得分。
（1）下列對象中有Text屬性的是　 　 (單選：填字母: mand1； B . Form1；C . Text1 ；D . List1)
（2）為實現上述功能，請在劃線處填入合適的代碼。
Const n=640
Dim class(1 to n )As String
Dim score(0 to n) As Integer
‘從數據庫中讀取學號和成績數據，存入class和Score數組，并在Lis2中顯示，代碼略
Private Sub Command1Click()
Dim x As integer, m AS Integer, i As Integer,j As Integer
Dim t1 As Integer, t2 As Integer, flag As Boolean
x=Val(Text1.Text)
m=Val(Text2.Text)
i=1: flag=True
Do While flag
k=i
For j=i+1 To n
　 　
If t=x Then
It score (j)>score(k) Or Val(Mid(class(k),1,2))<>x Then k=j
End If
Next j
If　 　And score(k) <> score(i-1) Then flag=Fale
If k<>i Then
t1=sore(i): score(i)=score(k): score(k)=t1
t2=class(i): class(i)=class(k): class(k)=t2
End If
i=i+1
Loop
List1.Clear
For j=1 To　 　
List1.Additem class(j)+""+Str(score(j))
Next j
End Sub
【答案】（1）C
（2）t=Val(Mid(class(j), 1, 2))；i>m；i-2
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；運算符、基本運算與表達式；常量、變量及變量的賦值
16．（2020·上虞模擬） 某校組織文藝匯演比賽，共20個班級參加，每5個班級劃為一個團隊，1~5班為甲隊，6~10班為乙隊，11~15班為丙隊，16~20班為丁隊。20個班級根據抽簽的順序依次上臺，共有6位評委為每個班級的表演打分，去掉一個最高分和一個最低分，剩下4個分數的平均值叩為該班最終得分。現要求編寫VB程序對比賽數據進行匯總，左側List1中顯示原始數據，點擊“匯總”按鈕后，在List2中按順序輸出班級號以及對應計算得到的最終得分，并在Label3中輸出每個團隊的總分，程序運行界面如圖所示。
（1）如上圖所示數據，若要通過冒泡排序對3班的6個得分從大到小排序，需要交換的次數是　 　次。
（2）請在劃線處填入合適代碼。
Const nc=20 ‘班級總數
Constn= 8
Dim a(1 To n*nc) As Single
Dim sum(1 To 4) As Single ‘存儲每個團隊的總分
Dim q(1 To nc) As Integer ‘存儲演出時班級出現的順序
Private Sub Form_Load()
‘本過程讀取班級號和6個打分情況存儲到a數組中。a(1)存儲第一個上臺的班級號，a(2)~a(7)中存儲該班的6個得分，a(8)預留出來，用來存儲該班最終得分，初值為0；a(9)存儲第二個上臺的班級號，a(10)~a(15)中存儲第二個上臺班級的6個得分，a(16)預留，用來存儲該班最終得分，初值為0，以此類推。在List1中輸出班級號和6個得分，代碼略。
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, s As String
For i=1 To n* nc ‘將每個班的6個得分排序
If i Mod n<>0 And i Mod n<>1 Then
k=i
For j=i+1 To　 　
If a(j)>a(k) Then k=j
Next j
If k<>i Then t=a(k): a(k)=a(i): a(i)=t
End If
Next i
For i=1 To n* nc Step n ‘計算每個班的最終得分，存入相應位置
a(i+n-1)=(a(i+2)+a(i+3)+a(i+4)+a(i+5))/4
Next i
For i=1 To n* nc Step n ‘計算每個團隊總分
　 　
Next i
For i=1 To n* nc Step n
k=a(i)
q(k)=i
Next i
For i=1 To nc
List2.Addltem Str(i)&" "&　 　
Next i
s="甲:"+Str(sum(1))+"乙："+Str(sum(2))+"丙:"+Str(sum(3))+"丁："+Str(sum(4))
Label3.Caption=s
End Sub
【答案】（1）9
（2）（(i-1)\n+1)*n-1；sum((a(i)-1)\5+1)=sum((a(i)-1)\5+1)+a(i+n-1)；Str(a(q(i)+n-1))
【知識點】常量、變量及變量的賦值；排序算法及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1登錄二一教育在線組卷平臺 助您教考全無憂
浙江省紹興市上虞區2020屆高三下學期信息技術第二次教學質量調測卷
一、選擇題(本大題共12小題，每小題2分，共24分。在每小題該出的四個選項中，只有一個符號題目要求)
1．（2020·上虞模擬）下列關于信息的說法，不正確的是（　　）
A．信息可重復使用，不會產生損耗，但價值可能會發生變化
B．搜索引擎中只能使用文字進行信息檢索
C．手機支付寶的刷臉登錄功能，可以提高信息的安全性
D．二維碼在計算機內部是以二進制的形式存在的
2．（2020·上虞模擬）下列應用中，使用了光學字符識別(OCR)技術的是（　　）
A．電子警察自動對違章車輛進行拍攝并識別該車牌號碼
B．使用微信的“翻譯”功能將外文翻譯為中文
C．用視頻監控系統監測考場內考生考試紀律
D．高考考生入場用指紋識別進行身份驗證
3．（2020·上虞模擬）如圖是一張“書籍管理”的Access數據表，下列說法正確的是（　　）
A．“是否借出”字段數據類型該為“文本”類型后，該列記錄變為“True”與“false”
B．新記錄的序號可能是“8”
C．可以添加書名為“有一種境界叫放下”的新記錄
D．可以在出版日期字段輸入20191225
4．（2020·上虞模擬）下列關于數制的說法，不正確的是（　　）
A．若二進制數末位為0，其對應權值為2°
B．若二進制數末位為0，則該數對應的十六進制數末位不一定是0
C．若二進制數1101去掉末位數碼，則該數整除2即可得到。
D．若二進制數110001取左邊三位111，則該數整除8即可得到
5．（2020·上虞模擬）使用GoldWave軟件編輯某音頻文件，部分界面如圖所示，下面說法正確的是（　　）
A．用“選定部分另存為”命令，并按默認參數保存，所得音頻的容量約為250KB
B．執行“剪裁”命令后，該音頻文件時長變為3s
C．當前音頻文件的采樣頻率是44.1kHz，量化位數為16B
D．在當前狀態下插入10s靜音后，右聲道最后10秒出現靜音
6．（2020·上虞模擬）下列關于多媒體技術及其應用說法正確的是（　　）
①只要包含了多種媒體信息就被稱為多媒體技術
②創作需求分析包括主題思想、用戶情況、設施需求、發布方式等
③文字腳本包括確定“片頭”界面尺寸、素材組織與來源、交互方式等
④作品的系統結構描述了整個作品的組成部分、工作流程、主要界面
⑤Photoshop是以頁為基礎的多媒體創作工具
A．②③④ B．①④ C．②③⑤ D．③④
7．（2020·上虞模擬）下列選項中，能實現求1~100之間的所有偶數之和的程序段是:（　　）
A． B．
C． D．
8．（2020·上虞模擬）某算法的部分流程圖如圖所示，執行這部分流程，若依次輸入a的值為4, 1, 5, 9, 7,則輸出s的值為（　　）
A．-8 B．-7 C．-3 D．-1
9．（2020·上虞模擬）采用冒泡排序算法對原數據序列“5，6，4, 7, 2, 1”的奇數位進行升序排序，若排序遍后為“2, 6, 5，7,4，1”，則下一遍排序后為（　　）
A．1, 2, 6，5，7, 4 B．2,6，1,7,4,5
C．6，5，7，4，2, 1 D．2,6,4，7,5,1
10．（2020·上虞模擬）有如下VB程序段：
Dim a(0 To 6) As Integer
Randomize:
a(0)=0: i=1
Do While i<=6
a(i)=Int(Rnd*5)+1
If a(i) Mod 2<>i Mod 2 Then
i=i-1
ElseIf a(i)a(i)=a(i)*2
End If
i=i+1
Loop
執行該程序段后，數組元素a(1)到a(6)的值可能是(　　）
A．5, 4, 5, 4, 5, 10 B．1, 4, 6, 8, 10, 8
C．7, 2, 5, 4, 5, 4 D．1, 2, 2, 3, 5, 4
11．（2020·上虞模擬）有如下程序段:
Private Sub Command1_Click()
Dim s1 As String, s2 As String
s1=Text1.Text: j=1: ans=1 : s2=""
For i=2 To Len(s1)
if Asc(Mid(s1, i-1, 1)+1=Asc(Mid(s1, i, 1)) Then
j=j+1
if j>=ans Then
ans=j
s2=Mid(s1, i-j+1, j)
End If
Else
j=1
End if
Next i
List1 Addltem s2
End Sub
執行程序時，在文本框text1中輸入“abc1234abcDewxyx”，單擊command1后，在列表框List1中顯示的結果是(　　）
A．abc B．1234 C．abcDe D．wxyz
12．（2020·上虞模擬）某對分查找算法的VB程序段如下:
Key=Val(Text1.Text)
i=1:j=10: f=false: n=0
Do While i<= j and f=false
n=n+1
m=(i+j+1)\2
if a(m)=key then f=true
if a(m)>Key Thenj=m 1Elsei=m+1
Loop
數組元素a(1)到a(10)的值依次為“4,7,10,12,15,19,20,23,28,30”。在文木框Text1中輸入待查找的數，執行該程序段后n的值為4，則key值可能的是(　　）
A．10 B．12 C．19 D．30
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2020·上虞模擬）小明進行研究性學習，對2019年國家和地區貨物的進出口情況進行數據分析，如圖所示：
（1）計算“占全部出口比重”這列數據，通過D5單元格中公式，對D6:D15進行自動填充，D15單元格顯示的結果是: 　 　 (單選，填字母。A . #DIV/0!/B .
100.00/C . 0.84/D . 0.00)。
（2）若要正確的計算“占全部出口比重”列的數據，可對D5單元格中的公式進行更改，并對D6:D15進行自動填充，則D5單元格中的公式是：　 　。
（3）對于圖b中，下列說法正確的是 (多選，填字母)
A．圖表的數據區域是A5:A15,B5:B15,E5:E15。
B．選定數據區域AS:G615，以列C為關鍵字進行升序排序，圖表不會發生變化。
C．隱藏數據第2至4行，圖表不會發生變化。
D．選定數據區域A3:G15，篩選出“出口額”最大的三個國家和地區，圖表不會發生變化。
14．（2020·上虞模擬）為了響應“世界讀書日”活動，倡導同學多讀書，讀好書，某同學使用Photoshop軟件制作“世界讀書日”作品，部分界面如圖a所示:
圖 a
（1）下列說法正確的是: (多選，填字母)
A．拷貝“世界讀書日”的圖層樣式粘貼到“背景”圖層
B．“文字”圖層不可見，可以為該圖層添加圖層樣式
C．“世界讀書日”圖層的“讀”字可以設置濾鏡效果
D．刪除“女孩”圖層，“世界讀書日”圖層也將刪除
E．“世界讀書日”圖層可以通過自由變換改變文字大小
（2）如圖b所示，“文字”圖層第1幀到第30幀實現文字“Readin
Time”到“閱讀時間”的形狀補間動畫，但發現動畫沒有成功，原因是　 　。
圖 b
（3）已知“音樂”圖層第1幀的音效設置如圖c，要求文字補間動畫結束，聲音也停止播放，則正確的操作方法有 (多選題，填字母)。
圖 c
A．“文字”圖層第30幀添加腳本stop(　　)；
B．“音樂”第30幀插入空白關鍵幀，同步設置為“數據流”
C．“音樂”圖層第60幀移到第30幀，同步設置為“數據流”
D．“音樂”圖層第30幀到第60幀刪除幀，同步設置為“數據流”
E．“音樂”圖層第30幀添加腳本stopAllSounds(　　);
（4）“按鈕”圖層最后一幀中有兩個按鈕“退出”和“重播”，在不改變其他動畫效果的前提下，若要使動畫一開始就出現這兩個按鈕，實現的方法是　 　。
（5）導出影片，動畫播放到最后自動打開“www.”,則在按鈕的最后1幀上添加的腳本為：　 　。
15．（2020·上虞模擬）下圖為某次信息考試得分情況，字符串數組class中存儲班級學號(如“0112”，前兩位表示班級，后兩位表示學號)，score數組中存儲得分。某同學設計了VB程序實現如下功能:在Text1中輸入班級(1-18之間的數字)，在Text2中輸入人數m，單擊“刷選”按鈕，在列表框List1中刷選出該班符合要求的班級學號和得分。
（1）下列對象中有Text屬性的是　 　 (單選：填字母: mand1； B . Form1；C . Text1 ；D . List1)
（2）為實現上述功能，請在劃線處填入合適的代碼。
Const n=640
Dim class(1 to n )As String
Dim score(0 to n) As Integer
‘從數據庫中讀取學號和成績數據，存入class和Score數組，并在Lis2中顯示，代碼略
Private Sub Command1Click()
Dim x As integer, m AS Integer, i As Integer,j As Integer
Dim t1 As Integer, t2 As Integer, flag As Boolean
x=Val(Text1.Text)
m=Val(Text2.Text)
i=1: flag=True
Do While flag
k=i
For j=i+1 To n
　 　
If t=x Then
It score (j)>score(k) Or Val(Mid(class(k),1,2))<>x Then k=j
End If
Next j
If　 　And score(k) <> score(i-1) Then flag=Fale
If k<>i Then
t1=sore(i): score(i)=score(k): score(k)=t1
t2=class(i): class(i)=class(k): class(k)=t2
End If
i=i+1
Loop
List1.Clear
For j=1 To　 　
List1.Additem class(j)+""+Str(score(j))
Next j
End Sub
16．（2020·上虞模擬） 某校組織文藝匯演比賽，共20個班級參加，每5個班級劃為一個團隊，1~5班為甲隊，6~10班為乙隊，11~15班為丙隊，16~20班為丁隊。20個班級根據抽簽的順序依次上臺，共有6位評委為每個班級的表演打分，去掉一個最高分和一個最低分，剩下4個分數的平均值叩為該班最終得分。現要求編寫VB程序對比賽數據進行匯總，左側List1中顯示原始數據，點擊“匯總”按鈕后，在List2中按順序輸出班級號以及對應計算得到的最終得分，并在Label3中輸出每個團隊的總分，程序運行界面如圖所示。
（1）如上圖所示數據，若要通過冒泡排序對3班的6個得分從大到小排序，需要交換的次數是　 　次。
（2）請在劃線處填入合適代碼。
Const nc=20 ‘班級總數
Constn= 8
Dim a(1 To n*nc) As Single
Dim sum(1 To 4) As Single ‘存儲每個團隊的總分
Dim q(1 To nc) As Integer ‘存儲演出時班級出現的順序
Private Sub Form_Load()
‘本過程讀取班級號和6個打分情況存儲到a數組中。a(1)存儲第一個上臺的班級號，a(2)~a(7)中存儲該班的6個得分，a(8)預留出來，用來存儲該班最終得分，初值為0；a(9)存儲第二個上臺的班級號，a(10)~a(15)中存儲第二個上臺班級的6個得分，a(16)預留，用來存儲該班最終得分，初值為0，以此類推。在List1中輸出班級號和6個得分，代碼略。
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, s As String
For i=1 To n* nc ‘將每個班的6個得分排序
If i Mod n<>0 And i Mod n<>1 Then
k=i
For j=i+1 To　 　
If a(j)>a(k) Then k=j
Next j
If k<>i Then t=a(k): a(k)=a(i): a(i)=t
End If
Next i
For i=1 To n* nc Step n ‘計算每個班的最終得分，存入相應位置
a(i+n-1)=(a(i+2)+a(i+3)+a(i+4)+a(i+5))/4
Next i
For i=1 To n* nc Step n ‘計算每個團隊總分
　 　
Next i
For i=1 To n* nc Step n
k=a(i)
q(k)=i
Next i
For i=1 To nc
List2.Addltem Str(i)&" "&　 　
Next i
s="甲:"+Str(sum(1))+"乙："+Str(sum(2))+"丙:"+Str(sum(3))+"丁："+Str(sum(4))
Label3.Caption=s
End Sub
答案解析部分
1．【答案】B
【知識點】信息及其特征；信息系統安全防護；網絡資源的檢索；計算機、移動終端的工作原理
2．【答案】A
【知識點】字符識別
3．【答案】B
【知識點】數據表、字段、記錄的概念；數據表、字段、記錄的編輯
4．【答案】D
【知識點】進制及數制轉換
5．【答案】A
【知識點】聲音素材的基本處理；聲音、圖像、視頻編碼
6．【答案】D
【知識點】多媒體技術的概念和特征；多媒體作品的規劃和設計
7．【答案】A
【知識點】算法的控制結構；循環結構語句及程序實現
8．【答案】D
【知識點】常量、變量及變量的賦值；流程圖識讀
9．【答案】D
【知識點】排序算法及程序實現
10．【答案】B
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
11．【答案】D
【知識點】運算符、基本運算與表達式；分支結構語句及程序實現；循環結構語句及程序實現
12．【答案】B
【知識點】常量、變量及變量的賦值；查找算法及程序實現
13．【答案】（1）B
（2）=B5/SUM(B$5:B$15)*100
（3）A；C
【知識點】表格數據的基本操作；表格數據的處理與計算；數據分析
14．【答案】（1）B；C
（2）“文字”圖層第30幀對象未分離成形狀
（3）B；D
（4）“按鈕”圖層第60幀復制到第1幀，并刪除第1幀腳本
（5）getURL("Http://www.")
【知識點】多媒體作品的規劃和設計；圖層及圖層的基本操作；時間軸、幀、圖層、庫的概念及基本操作
15．【答案】（1）C
（2）t=Val(Mid(class(j), 1, 2))；i>m；i-2
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；運算符、基本運算與表達式；常量、變量及變量的賦值
16．【答案】（1）9
（2）（(i-1)\n+1)*n-1；sum((a(i)-1)\5+1)=sum((a(i)-1)\5+1)+a(i+n-1)；Str(a(q(i)+n-1))
【知識點】常量、變量及變量的賦值；排序算法及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1

展開更多......

收起↑