資源簡介

浙江省紹興市柯橋區2020屆高三下學期信息技術6月適應性考試試卷
一、選擇題（本大題共12小題，每小題2分，共24分。在每小題給出的四個選項中，只有一個符合題目要求）
1．（2020·柯橋模擬）下列有關信息的說法，正確的是（　　）
A．“盲人摸象”這個成語說明了信息在傳遞過程中會產生損失
B．信息具有載體依附性，因此不能脫離它所反映的事物被存儲和保存
C．計算機對圖片素材加工處理，本質上也是通過計算完成的
D．文字、語言、聲音、書籍等都是常見信息的表達方式
【答案】B
【知識點】信息及其特征；信息表達方式與表達技術；計算機、移動終端的工作原理
2．（2020·柯橋模擬）下列應用中，沒有體現人工智能技術的是（　　）
①在Word中輸入成語的某一錯別字時，被自動更正
②購買奶茶時使用手機掃描二維碼進行支付
③QQ聊天時通過使用手寫輸入法輸入文字
④機場測溫終端快速對進出人員進行口罩佩戴偵測
⑤通過天貓精靈語音控制房內電子設備
A．①③ B．①② C．④⑤ D．②④
【答案】B
【知識點】人工智能的應用
3．（2020·柯橋模擬）使用UltraEdit軟件查看字符內碼，部分界面如下圖所示
下列說法正確的是（　　）
A．字符“，”的十六進制編碼為“A3”
B．由圖中信息推算“h”的十六進制編碼為“69”
C．圖中ASCII碼字符有7個
D．字符“M”“i”“2”的內碼值由大變小
【答案】C
【知識點】信息的編碼；進制及數制轉換
4．（2020·柯橋模擬）某學校的社團活動系統，使用了Access軟件創建了數據表，部分界面如圖所示：
下列說法正確的是（　　）
A．“上課地點”字段輸入內容必須包含中文或英文
B．“報名截止時間”字段可以輸入“2020/4/20 4:35pm”
C．“課程”數據表中，可能會有兩條記錄的“學號”字段值相同
D．在“教師”數據表中，一定沒有字段名稱是“課程名稱”
【答案】B
【知識點】數據表、字段、記錄的概念；數據表、字段、記錄的編輯
5．（2020·柯橋模擬）關于多媒體和多媒體技術，下列說法正確的是（　　）
A．多媒體技術的三大特征是載體依附性、交互性和實時性。
B．有損壓縮的壓縮率必定高于無損壓縮的壓縮率
C．要了解整個作品的組成部分、工作流程和主要界面，可查閱其模塊設計報告
D．通過GoldWave無法轉換有損壓縮音頻格式為無損壓縮音頻格式
【答案】D
【知識點】多媒體技術的概念和特征；多媒體作品的規劃和設計；多媒體數據壓縮技術
6．（2020·柯橋模擬）一個時長為5分鐘、量化位數是16bit、采樣頻率是44100Hz的雙聲道WAV音樂，壓縮為MP3格式后的文件大小約為6MB，則其壓縮比約為（　　）
A．4:1 B．8:1 C．10:1 D．67:1
【答案】B
【知識點】聲音、圖像、視頻編碼
7．（2020·柯橋模擬）x和n都是正整數且x<=n，下列選項中，與語句“x=x Mod n +1 ”功能相同的是（　　）
A．x=(x+1) Mod n
B．x=x+1 If x=n Then x=1
C．x=x+1 If x=n+1 Then x=1
D．x=x+1 If x=n+1 Then x=0
【答案】C
【知識點】常量、變量及變量的賦值
8．（2020·柯橋模擬）某算法的部分流程圖如圖所示。執行這部分流程，若輸入x的值分別為16、9、8、7、6、5、4、1，則輸出的結果是（　　）
A．6 B．6.5 C．7 D．9.33
【答案】B
【知識點】常量、變量及變量的賦值；流程圖識讀
9．（2020·柯橋模擬）有如下VB程序段：
n = Val(Text1.Text)
i = 1
Do While n > 0
num = n Mod 16
If num >= 0 And num <= 9 Then
Text2.Text = Chr(Asc("0") + num) + Text2.Text
Else
Text2.Text = Chr(Asc("A") + num - 10) + Text2.Text
End If
n = n \ 16
i = i + 1
Loop
執行該程序段，在文本框Text1中輸入420，則文本框Text2中顯示的內容的是（　　）
A．4A B．A4 C．1A4 D．4A1
【答案】C
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值
10．（2020·柯橋模擬）有如下VB程序段：
For i = 1 To 6
a(i) = Int(Rnd() * 10) + 1
If a(i) Mod 2 = i Mod 2 Then
a(i) = a(i) + 1
Else
a(i) = a(i) Mod 2
End If
Next i
執行該程序段后，在下列選項中，a(1)～a(6)各元素可能的值是（　　）
A．0，1，1，0，0，1 B．0，5，6，6，10，9
C．2，3，6，7，8，11 D．2，1，8，3，12，5
【答案】C
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值
11．（2020·柯橋模擬）編寫一個VB程序實現以下功能：產生10個1~100之間的隨機整數存數組a中，引入一個數組q，使得a(q(i))升序，即a(q(1) )≤a(q(2) ) ≤a(q(3) )……≤a(q(9) )≤a(q(10) )。
For i = 1 To 10
a(i) = Int(Rnd() * 100) + 1
Next i
For i = 1 To 9
k = i
For j = i + 1 To 10
If Then k = j
Next j
If i <> k Then
t = q(i): q(i) = q(k): q(k) = t
End If
Next i
上述程序段2個方框處的代碼分別為（　　）
A．⑴q(i) = i ⑵a(q(j)) < a(q(k))
B．⑴q(i) = i ⑵a(j) < a(k)
C．⑴q(i) = 1 ⑵a(q(j)) < a(q(k))
D．⑴q(i) = 1 ⑵a(j) < a(k)
【答案】A
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值
12．（2020·柯橋模擬）有如下VB程序段：
a(1) = 5: a(2) = 7: a(3) = 12: a(4) = 12
a(5) = 15: a(6) = 20: a(7) = 25: a(8) = 27
low = 1: high = 8
key = Text1.Text
Do While low <= high
m = (low + high) \ 2
If a(m) >= key Then
high = m - 1
Else
low = m + 1
End If
Loop
執行該程序段后，變量low的值為3，則文本框Text1中輸入的值不可能是（　　）
A．10 B．11 C．12 D．13
【答案】D
【知識點】常見數據類型、數組；查找算法及程序實現
二、非選擇題（本大題共4小題，4+8+7+7，共26分）
13．（2020·柯橋模擬）下圖是今年部分國家新冠肺炎疫情的數據，現用EXCEL軟件進行數據處理。
（1）計算各國死亡率排名，可先在E3單元格中輸入公式 (多選，填字母)，再對E4：E12自動填充得到各國結果。
說明：RANK(n,ref,order)函數功能是返回某數在一列數中的排名，參數n是指定數字，ref代表一組數，order值如果為0或忽略表示降序，非0表示升序。例如：公式=RANK(B5,B3:B12，0)表示計算B5單元格的值在B3:B12中的名次，計算結果是1。
A．=RANK(D3,$D$3:$D$12) B．=RANK(D3, D$3:D$12)
C．=RANK(D3, D3:D12,0) D．=RANK(D3, $D$3:$D$12,0)
（2）如果對數據按累計確診降序排序，排序后E3:E12中的公式　 　（填：會/不會）發生變化。
（3）根據圖1數據，制作圖2所示圖表，則該圖表的數據源是　 　。
【答案】（1）A；B；D
（2）不會
（3）A2：B12 或 A3：B12
【知識點】表格數據的處理與計算
14．（2020·柯橋模擬）使用Photoshop和Flash軟件制作“戰疫”動畫：
（1）用Photoshop打開“心.psd”，如圖1所示，為了得到一張無白色背景的心形圖，以下可以實現的是　 　（多選，填字母：A ．直接另存為PNG格式文件/B ．刪除
“心形”圖層白色區域的內容，再另存為PNG格式文件/C ．選中“心形”圖層心形區域，再另存為GIF格式文件D ．刪除“心形”圖層白色區域的內容，再另存為GIF格式文件）
圖1
（2）打開“戰疫.fla”，界面如圖2所示。為了使“武漢加油”圖層中的補間動畫持續到第5幀，需要進行的修改是　 　。
（3）利用元件“心”在“紅心”圖層中制作心跳的動畫，要求5到7幀中“心”的尺寸較大，8到10幀中的對象較小，下列操作可行是　 　 (多選，填字母: A .選擇“紅心”圖層第8幀，縮小舞臺中的“心”實例 /B .在“紅心”圖層第8幀插入關鍵幀，縮小舞臺中的“心”實例 /C .把“紅心”圖層第8幀轉換為關鍵幀，縮小舞臺中的“心”實例 /D .把“紅心”圖層第8幀轉換為空白關鍵幀，并在舞臺中插入“心”元件，縮小其寬高)
（4）如果要使動畫播放完畢后，跳轉到當前場景第5幀繼續播放，實現的方法是　 　。
【答案】（1）BD
（2）把“武漢加油”第4幀移動到第5幀 或 在“武漢加油”第1到4幀之間插入幀
（3）BCD
（4）在任意圖層第10幀插入關鍵幀，并在該關鍵幀中添加動作gotoAndplay(5);或 gotoAndplay("加油",5);
【知識點】多媒體組成元素及文件格式；時間軸、幀、圖層、庫的概念及基本操作；元件的類型與應用；常用影片控制函數的應用
15．（2020·柯橋模擬）在一個整數序列中找第k大數，若有相同的整數，則位置靠前的整數的名次靠前。如有整數分別為“10,13,12,13,15”，則第1大的數為15，第2大的數為13，位于第2位置，第3大的數還是13，位于第4個位置，第4大數是12，第5大的數是10。
編寫一個VB程序，實現如下功能：程序啟動時產生n個1~20之間的隨機整數，在文本框Text2中輸入整數k（k≤n），單擊“查找”按鈕Command1后，在標簽Label1上顯示第k大的數及位置。程序運行界面如圖所示。
（1）下列對象不具有Caption屬性的是　 　（單選，填字母：mand1 /B .Form1 / C .Text1 /D .Label1）
（2）實現上述功能的VB程序如下，請在劃線處填入合適代碼。
Const
n = 10
Dim
a(1 To n) As Integer
Private
Sub Form_Load()
'本過程產生n個1~20之間的隨機整數存數組a中，并在文本框Text1中顯示，代碼略
End Sub
Private Sub Command1_Click()
Dim i As Integer, sum As
Integer, key As Integer,c As Integer,k As Integer
Dim b(1 To 20) As Integer
①
For i = 1 To n
b(a(i)) = b(a(i)) + 1
Next i
i = 20
sum = 0
Do While i >= 1 And sum
< k
②
i = i – 1
Loop
③
Label3.Caption = "第" + Str(k) + "大的數是" +
Str(key)
c = 0
For i = 1 To n
If a(i) = key Then c = c + 1
If c = Then Exit For
Next i
Label3.Caption = Label3.Caption + "，在第" + Str(i) + "位置"
End Sub
①　 　②　 　③　 　
（3）程序代碼中的加框處代碼有誤，請改正。
【答案】（1）C
（2）k = Val(Text2.Text)；sum = sum + b(i)；key = i + 1
（3）b(key) - (sum - k)
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；常見數據類型、數組；常量、變量及變量的賦值
16．（2020·柯橋模擬）在“抗擊疫情，‘宅’出精彩”征文活動中，每位選手可以提交一篇作品。活動以互評的形式展開：每位選手對m篇作品進行打分（本人作品回避），方法如下：
① 用1-n數字代表n個作品，打亂順序后分配給n個選手。分配方案保存在數組a中，如圖a存儲了兩組分配方案（n=5）。在第一個分配方案中把4號作品分配給1號參賽者，1號作品分配給2號參賽者（選手編號與序號錯開）……。
圖a
②分配方案的形成方法： 將1~n之間的隨機數字依次放到第1個位置、第2個位置……，隨機數不能與位置號相同，并且要防止分配沖突，如前三個分配序號是“2 3 4”，那么在第4位上只能放“5”（如放“1”會導致第5個位置沒有符合要求的數字,因此位置n-1需要判斷數“n”是否已經分配，如果未分配，位置n-1放置數“n”），最終方案“2 3 4 5 1”。
③評m個作品需要m個分配方案。方案間要避免同一個人拿到重復的作品。如圖a第3行上的數據“5 1 2 3 4”不符合要求，因為會使第2號選手重復拿到1號作品。
小明依據上述方法設計了VB程序，功能如下：在文本框Text1和Text2分別輸入參賽人數和每人打分的作品數量，單擊“分配”按鈕Command1，在列表框List1中輸出結果。程序運行效果如圖b所示。請回答下列問題：
圖b
（1）n=5，m=3，a(1)~a(10)中的數據如圖a所示，a(11)~a（15）的數據可能是　 　（單選，填字母，：A .5 4 3 1 2/B .5 4 1 3 2/C .3 4 5 1 2）
（2）請在劃線處填入合適的代碼。
Dim n As Integer '總人數/總作品數
Dim m As Integer '每人分配篇數
Dim a(1 To 500) As
Integer '數組a大小滿足處理要求
Dim c(1 To 100) As
Integer '數組c大小滿足處理要求
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As
Integer
n = Val(Text1.Text)： m = Val(Text2.Text)
Randomize
i = 1
Do While i <= m
For j = 1 To n
c(j) = 0 '本輪分配方案中還沒有數字j, c(j)=0，否則c(j)=1
Next j
For j = 1 To n
If j = n - 1 And c(n) = 0 Then
①
Else
k = r(n, j)
End If
a((i - 1) * n + j) = k '分配數字k到當前方案的第j個位置上
c(k) = 1
Next j
If ② Then
i = i + 1
Loop
s = ""
For i = 1 To n
s = "參賽者" & i & "："
For j = 1 To m
s = s + Str(a((j - 1) * n + i))+
","
Next j
List1.AddItem s
s = ""
Next i
End Sub
Function r(x As Integer, y As
Integer) As Integer
'生成一個取值在[1,x]之間，可以放在y位置上的隨機數，滿足條件r<>y andc(r)=0
End Function
Function check(c As Integer) As
Boolean
'本輪方案和前面幾次的分配方案比較，如果有人分到了重復作品，返回FALSE
Dim p As Integer,f As Boolean
f = True
p = 1
For i = 1 To c * n
If ③ Then
f = False: Exit For
End If
p = p mod n +1
Next i
check = f
End
Function
①　 　②　 　③　 　
【答案】（1）B
（2）k= n；check(i - 1)；a(i) = a(c * n + p)
【知識點】常見數據類型、數組；常量、變量及變量的賦值；過程與自定義函數
1 / 1浙江省紹興市柯橋區2020屆高三下學期信息技術6月適應性考試試卷
一、選擇題（本大題共12小題，每小題2分，共24分。在每小題給出的四個選項中，只有一個符合題目要求）
1．（2020·柯橋模擬）下列有關信息的說法，正確的是（　　）
A．“盲人摸象”這個成語說明了信息在傳遞過程中會產生損失
B．信息具有載體依附性，因此不能脫離它所反映的事物被存儲和保存
C．計算機對圖片素材加工處理，本質上也是通過計算完成的
D．文字、語言、聲音、書籍等都是常見信息的表達方式
2．（2020·柯橋模擬）下列應用中，沒有體現人工智能技術的是（　　）
①在Word中輸入成語的某一錯別字時，被自動更正
②購買奶茶時使用手機掃描二維碼進行支付
③QQ聊天時通過使用手寫輸入法輸入文字
④機場測溫終端快速對進出人員進行口罩佩戴偵測
⑤通過天貓精靈語音控制房內電子設備
A．①③ B．①② C．④⑤ D．②④
3．（2020·柯橋模擬）使用UltraEdit軟件查看字符內碼，部分界面如下圖所示
下列說法正確的是（　　）
A．字符“，”的十六進制編碼為“A3”
B．由圖中信息推算“h”的十六進制編碼為“69”
C．圖中ASCII碼字符有7個
D．字符“M”“i”“2”的內碼值由大變小
4．（2020·柯橋模擬）某學校的社團活動系統，使用了Access軟件創建了數據表，部分界面如圖所示：
下列說法正確的是（　　）
A．“上課地點”字段輸入內容必須包含中文或英文
B．“報名截止時間”字段可以輸入“2020/4/20 4:35pm”
C．“課程”數據表中，可能會有兩條記錄的“學號”字段值相同
D．在“教師”數據表中，一定沒有字段名稱是“課程名稱”
5．（2020·柯橋模擬）關于多媒體和多媒體技術，下列說法正確的是（　　）
A．多媒體技術的三大特征是載體依附性、交互性和實時性。
B．有損壓縮的壓縮率必定高于無損壓縮的壓縮率
C．要了解整個作品的組成部分、工作流程和主要界面，可查閱其模塊設計報告
D．通過GoldWave無法轉換有損壓縮音頻格式為無損壓縮音頻格式
6．（2020·柯橋模擬）一個時長為5分鐘、量化位數是16bit、采樣頻率是44100Hz的雙聲道WAV音樂，壓縮為MP3格式后的文件大小約為6MB，則其壓縮比約為（　　）
A．4:1 B．8:1 C．10:1 D．67:1
7．（2020·柯橋模擬）x和n都是正整數且x<=n，下列選項中，與語句“x=x Mod n +1 ”功能相同的是（　　）
A．x=(x+1) Mod n
B．x=x+1 If x=n Then x=1
C．x=x+1 If x=n+1 Then x=1
D．x=x+1 If x=n+1 Then x=0
8．（2020·柯橋模擬）某算法的部分流程圖如圖所示。執行這部分流程，若輸入x的值分別為16、9、8、7、6、5、4、1，則輸出的結果是（　　）
A．6 B．6.5 C．7 D．9.33
9．（2020·柯橋模擬）有如下VB程序段：
n = Val(Text1.Text)
i = 1
Do While n > 0
num = n Mod 16
If num >= 0 And num <= 9 Then
Text2.Text = Chr(Asc("0") + num) + Text2.Text
Else
Text2.Text = Chr(Asc("A") + num - 10) + Text2.Text
End If
n = n \ 16
i = i + 1
Loop
執行該程序段，在文本框Text1中輸入420，則文本框Text2中顯示的內容的是（　　）
A．4A B．A4 C．1A4 D．4A1
10．（2020·柯橋模擬）有如下VB程序段：
For i = 1 To 6
a(i) = Int(Rnd() * 10) + 1
If a(i) Mod 2 = i Mod 2 Then
a(i) = a(i) + 1
Else
a(i) = a(i) Mod 2
End If
Next i
執行該程序段后，在下列選項中，a(1)～a(6)各元素可能的值是（　　）
A．0，1，1，0，0，1 B．0，5，6，6，10，9
C．2，3，6，7，8，11 D．2，1，8，3，12，5
11．（2020·柯橋模擬）編寫一個VB程序實現以下功能：產生10個1~100之間的隨機整數存數組a中，引入一個數組q，使得a(q(i))升序，即a(q(1) )≤a(q(2) ) ≤a(q(3) )……≤a(q(9) )≤a(q(10) )。
For i = 1 To 10
a(i) = Int(Rnd() * 100) + 1
Next i
For i = 1 To 9
k = i
For j = i + 1 To 10
If Then k = j
Next j
If i <> k Then
t = q(i): q(i) = q(k): q(k) = t
End If
Next i
上述程序段2個方框處的代碼分別為（　　）
A．⑴q(i) = i ⑵a(q(j)) < a(q(k))
B．⑴q(i) = i ⑵a(j) < a(k)
C．⑴q(i) = 1 ⑵a(q(j)) < a(q(k))
D．⑴q(i) = 1 ⑵a(j) < a(k)
12．（2020·柯橋模擬）有如下VB程序段：
a(1) = 5: a(2) = 7: a(3) = 12: a(4) = 12
a(5) = 15: a(6) = 20: a(7) = 25: a(8) = 27
low = 1: high = 8
key = Text1.Text
Do While low <= high
m = (low + high) \ 2
If a(m) >= key Then
high = m - 1
Else
low = m + 1
End If
Loop
執行該程序段后，變量low的值為3，則文本框Text1中輸入的值不可能是（　　）
A．10 B．11 C．12 D．13
二、非選擇題（本大題共4小題，4+8+7+7，共26分）
13．（2020·柯橋模擬）下圖是今年部分國家新冠肺炎疫情的數據，現用EXCEL軟件進行數據處理。
（1）計算各國死亡率排名，可先在E3單元格中輸入公式 (多選，填字母)，再對E4：E12自動填充得到各國結果。
說明：RANK(n,ref,order)函數功能是返回某數在一列數中的排名，參數n是指定數字，ref代表一組數，order值如果為0或忽略表示降序，非0表示升序。例如：公式=RANK(B5,B3:B12，0)表示計算B5單元格的值在B3:B12中的名次，計算結果是1。
A．=RANK(D3,$D$3:$D$12) B．=RANK(D3, D$3:D$12)
C．=RANK(D3, D3:D12,0) D．=RANK(D3, $D$3:$D$12,0)
（2）如果對數據按累計確診降序排序，排序后E3:E12中的公式　 　（填：會/不會）發生變化。
（3）根據圖1數據，制作圖2所示圖表，則該圖表的數據源是　 　。
14．（2020·柯橋模擬）使用Photoshop和Flash軟件制作“戰疫”動畫：
（1）用Photoshop打開“心.psd”，如圖1所示，為了得到一張無白色背景的心形圖，以下可以實現的是　 　（多選，填字母：A ．直接另存為PNG格式文件/B ．刪除
“心形”圖層白色區域的內容，再另存為PNG格式文件/C ．選中“心形”圖層心形區域，再另存為GIF格式文件D ．刪除“心形”圖層白色區域的內容，再另存為GIF格式文件）
圖1
（2）打開“戰疫.fla”，界面如圖2所示。為了使“武漢加油”圖層中的補間動畫持續到第5幀，需要進行的修改是　 　。
（3）利用元件“心”在“紅心”圖層中制作心跳的動畫，要求5到7幀中“心”的尺寸較大，8到10幀中的對象較小，下列操作可行是　 　 (多選，填字母: A .選擇“紅心”圖層第8幀，縮小舞臺中的“心”實例 /B .在“紅心”圖層第8幀插入關鍵幀，縮小舞臺中的“心”實例 /C .把“紅心”圖層第8幀轉換為關鍵幀，縮小舞臺中的“心”實例 /D .把“紅心”圖層第8幀轉換為空白關鍵幀，并在舞臺中插入“心”元件，縮小其寬高)
（4）如果要使動畫播放完畢后，跳轉到當前場景第5幀繼續播放，實現的方法是　 　。
15．（2020·柯橋模擬）在一個整數序列中找第k大數，若有相同的整數，則位置靠前的整數的名次靠前。如有整數分別為“10,13,12,13,15”，則第1大的數為15，第2大的數為13，位于第2位置，第3大的數還是13，位于第4個位置，第4大數是12，第5大的數是10。
編寫一個VB程序，實現如下功能：程序啟動時產生n個1~20之間的隨機整數，在文本框Text2中輸入整數k（k≤n），單擊“查找”按鈕Command1后，在標簽Label1上顯示第k大的數及位置。程序運行界面如圖所示。
（1）下列對象不具有Caption屬性的是　 　（單選，填字母：mand1 /B .Form1 / C .Text1 /D .Label1）
（2）實現上述功能的VB程序如下，請在劃線處填入合適代碼。
Const
n = 10
Dim
a(1 To n) As Integer
Private
Sub Form_Load()
'本過程產生n個1~20之間的隨機整數存數組a中，并在文本框Text1中顯示，代碼略
End Sub
Private Sub Command1_Click()
Dim i As Integer, sum As
Integer, key As Integer,c As Integer,k As Integer
Dim b(1 To 20) As Integer
①
For i = 1 To n
b(a(i)) = b(a(i)) + 1
Next i
i = 20
sum = 0
Do While i >= 1 And sum
< k
②
i = i – 1
Loop
③
Label3.Caption = "第" + Str(k) + "大的數是" +
Str(key)
c = 0
For i = 1 To n
If a(i) = key Then c = c + 1
If c = Then Exit For
Next i
Label3.Caption = Label3.Caption + "，在第" + Str(i) + "位置"
End Sub
①　 　②　 　③　 　
（3）程序代碼中的加框處代碼有誤，請改正。
16．（2020·柯橋模擬）在“抗擊疫情，‘宅’出精彩”征文活動中，每位選手可以提交一篇作品。活動以互評的形式展開：每位選手對m篇作品進行打分（本人作品回避），方法如下：
① 用1-n數字代表n個作品，打亂順序后分配給n個選手。分配方案保存在數組a中，如圖a存儲了兩組分配方案（n=5）。在第一個分配方案中把4號作品分配給1號參賽者，1號作品分配給2號參賽者（選手編號與序號錯開）……。
圖a
②分配方案的形成方法： 將1~n之間的隨機數字依次放到第1個位置、第2個位置……，隨機數不能與位置號相同，并且要防止分配沖突，如前三個分配序號是“2 3 4”，那么在第4位上只能放“5”（如放“1”會導致第5個位置沒有符合要求的數字,因此位置n-1需要判斷數“n”是否已經分配，如果未分配，位置n-1放置數“n”），最終方案“2 3 4 5 1”。
③評m個作品需要m個分配方案。方案間要避免同一個人拿到重復的作品。如圖a第3行上的數據“5 1 2 3 4”不符合要求，因為會使第2號選手重復拿到1號作品。
小明依據上述方法設計了VB程序，功能如下：在文本框Text1和Text2分別輸入參賽人數和每人打分的作品數量，單擊“分配”按鈕Command1，在列表框List1中輸出結果。程序運行效果如圖b所示。請回答下列問題：
圖b
（1）n=5，m=3，a(1)~a(10)中的數據如圖a所示，a(11)~a（15）的數據可能是　 　（單選，填字母，：A .5 4 3 1 2/B .5 4 1 3 2/C .3 4 5 1 2）
（2）請在劃線處填入合適的代碼。
Dim n As Integer '總人數/總作品數
Dim m As Integer '每人分配篇數
Dim a(1 To 500) As
Integer '數組a大小滿足處理要求
Dim c(1 To 100) As
Integer '數組c大小滿足處理要求
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As
Integer
n = Val(Text1.Text)： m = Val(Text2.Text)
Randomize
i = 1
Do While i <= m
For j = 1 To n
c(j) = 0 '本輪分配方案中還沒有數字j, c(j)=0，否則c(j)=1
Next j
For j = 1 To n
If j = n - 1 And c(n) = 0 Then
①
Else
k = r(n, j)
End If
a((i - 1) * n + j) = k '分配數字k到當前方案的第j個位置上
c(k) = 1
Next j
If ② Then
i = i + 1
Loop
s = ""
For i = 1 To n
s = "參賽者" & i & "："
For j = 1 To m
s = s + Str(a((j - 1) * n + i))+
","
Next j
List1.AddItem s
s = ""
Next i
End Sub
Function r(x As Integer, y As
Integer) As Integer
'生成一個取值在[1,x]之間，可以放在y位置上的隨機數，滿足條件r<>y andc(r)=0
End Function
Function check(c As Integer) As
Boolean
'本輪方案和前面幾次的分配方案比較，如果有人分到了重復作品，返回FALSE
Dim p As Integer,f As Boolean
f = True
p = 1
For i = 1 To c * n
If ③ Then
f = False: Exit For
End If
p = p mod n +1
Next i
check = f
End
Function
①　 　②　 　③　 　
答案解析部分
1．【答案】B
【知識點】信息及其特征；信息表達方式與表達技術；計算機、移動終端的工作原理
2．【答案】B
【知識點】人工智能的應用
3．【答案】C
【知識點】信息的編碼；進制及數制轉換
4．【答案】B
【知識點】數據表、字段、記錄的概念；數據表、字段、記錄的編輯
5．【答案】D
【知識點】多媒體技術的概念和特征；多媒體作品的規劃和設計；多媒體數據壓縮技術
6．【答案】B
【知識點】聲音、圖像、視頻編碼
7．【答案】C
【知識點】常量、變量及變量的賦值
8．【答案】B
【知識點】常量、變量及變量的賦值；流程圖識讀
9．【答案】C
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值
10．【答案】C
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值
11．【答案】A
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值
12．【答案】D
【知識點】常見數據類型、數組；查找算法及程序實現
13．【答案】（1）A；B；D
（2）不會
（3）A2：B12 或 A3：B12
【知識點】表格數據的處理與計算
14．【答案】（1）BD
（2）把“武漢加油”第4幀移動到第5幀 或 在“武漢加油”第1到4幀之間插入幀
（3）BCD
（4）在任意圖層第10幀插入關鍵幀，并在該關鍵幀中添加動作gotoAndplay(5);或 gotoAndplay("加油",5);
【知識點】多媒體組成元素及文件格式；時間軸、幀、圖層、庫的概念及基本操作；元件的類型與應用；常用影片控制函數的應用
15．【答案】（1）C
（2）k = Val(Text2.Text)；sum = sum + b(i)；key = i + 1
（3）b(key) - (sum - k)
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；常見數據類型、數組；常量、變量及變量的賦值
16．【答案】（1）B
（2）k= n；check(i - 1)；a(i) = a(c * n + p)
【知識點】常見數據類型、數組；常量、變量及變量的賦值；過程與自定義函數
1 / 1

展開更多......

收起↑