資源簡介

(
…………○…………外…………○…………裝…………○…………訂…………○…………線…………○…………
) (
※※請※※不※※要※※在※※裝※※訂※※線※※內※※答※※題※※
) (
…………○…………內…………○…………裝…………○…………訂…………○…………線…………○…………
)
登陸二一教育在線組卷平臺 助您教考全無憂
浙江省稽陽聯誼學校2021屆高三下學期信息技術4月聯考試卷
一、選擇題（本大題共12小題，每小題2分，共24分。在每小題給出的四個選項中，只有一個符合題目要求）
1.（2021高三下·浙江月考）下列關于信息和信息技術的描述，正確的是（ ）
A. 假新聞的產生可以不依賴于數據與信號
B. GDP（國內生產總值）的數據是信息加工處理的結果
C. 古代社會中，同時存在模擬信號和數字信號
D. 計算機技術的特點是速度快、容量大、穩定性差
2.（2021高三下·浙江月考）下列有關網頁和電子郵件的說法，正確的是（ ）
A. 網頁用URL標識其在網絡上的位置
B. SMTP協議可以把郵件直接發送到收件人計算機中
C. HTML文件中包含了文字、超鏈接和圖片、視頻
D. 使用同一個搜索引擎，不同時間的檢索結果肯定相同
3.（2021高三下·浙江月考）用Access軟件設計一個數據表，存儲下表所示的用戶數據。
會員編號 姓名 聯系方式 注冊日期 性別 余額
1 徐文杰 17886262123 2021-1-1 男 202.30
2 張樂 2021-1-5 男 15.86
3 王燕飛 15957554321 2021-2-3 女 500.00
下列表結構設計最合理的是（ ）
A. B.
C. D.
4.（2021高三下·浙江月考）利用軟件UltraEdit觀察字符內碼，界面如圖所示，下列說法正確的是 （ ）

A. 上述字符共占15bit
B. 上述字符中，采用ASCII編碼的字符共有7個
C. 字符“10”的內碼用十六進制表示是3A
D. 字符“Y”的內碼轉換為二進制有4個1
5.（2021高三下·浙江月考）用photoshop軟件制作“建黨百年”作品，如圖所示。當前狀態下，下列說法正確的是（ ）
A. “背景”圖層無法設置濾鏡
B. “文字”圖層的圖層樣式均不可見
C. “魚”圖層的圖像不可見的原因是圖層被隱藏
D. 調整圖像大小時，“船”圖層中船的分辨率（像素數量）保持不變
6.（2021高三下·浙江月考）某字體共收錄了10000個漢字，每個文字可以看做是一幅位圖，若單個文字的分辨率是24*24，只有黑白兩色，合成一個字體文件后壓縮比為3：1，則該字體文件的存儲容量約為（ ）
A. 120KB B. 240KB C. 720KB D. 1440KB
7.（2021高三下·浙江月考）變量a、b的取值只能是0和1，以下VB表達式無法正確表達“若a、b都是1，則c=1，否則c=2”意思的是（ ）
A. c=2：if a+b=2 then c=1 B. if a=1 and a=b then c=1 else c=2
C. if abs(a-b)>0 then c=2 else c=1 D. if a*b=1 then c=1 else c=2
8.（2021高三下·浙江月考）某算法的部分流程如圖所示，執行這部分流程，若輸入s為“10sh23ab”，則輸出t的值是（ ）
A. 0 B. 2 C. 3 D. 6
9.（2021高三下·浙江月考）采用選擇排序算法對某數據序列進行排序，經過某輪排序后的結果是“1，3，4，9，2，8，5”，再經過2輪排序后，該數據序列的順序是（ ）
A. 1，2，3，9，4，8，5 B. 1，2，3，4，9，8，5
C. 1，2，3，5，4，9，8 D. 1，2，3，4，5，8，9
10.（2021高三下·浙江月考）有如下VB程序段：
Dim s1 As String, s2 As String
s1 = "what doesn't kill you makes you stronger."
s2 = text1.text
i = 1: j = 1
Do While i <= Len(s1) And j <= Len(s2)
If Mid(s1, i, 1) = Mid(s2, j, 1) Then j = j + 1
i = i + 1
Loop
If j > Len(s2) Then
s3 = "true"
Else
s3 = "false"
EndIf
執行該程序段后，s3的值為“false”，則text1輸入的文本可能是（ ）
A. "skills" B. "waste" C. "damage" D. "note"
11.（2021高三下·浙江月考）a(1) ~ a(n)都是正整數，下列VB程序段的功能是計算所有數的最小公倍數。
t = a(1)
For i = 2 To n
b = a(i)
c = t
Do While c Mod b <>0
r = c Mod b

Loop

Next i
上述程序中方框處的可選語句為：
① b = r :c = b ② c = b :b = r
③ t= a(i) * t / c ④ t = a(i) * t / b
則方框處語句依次是（ ）
A. ①③ B. ①④ C. ②③ D. ②④
12.（2021高三下·浙江月考）有如下VB程序
Key = Int(Rnd * 5 + 5)
i = 1: j = 10: sum = 0
Do While i <= j
m = (i + j ) \ 2
If a(m) <= Key Then
i = m + 1
Else
j = m - 1
End If
sum = sum + m
Loop
數組元素a（1）到a（10）分別是2、4、5、6、6、6、8、8、10、12，程序運行后，sum的值不可能是 （ ）
A. 10 B. 14 C. 22 D. 26
二、非選擇題（本大題共4小題，4+8+7+7，共26分。）
13.（2021高三下·浙江月考）小王收集了2021大年初一到初七的電影票房數據，并用Excel軟件進行數據處理，如圖所示。
圖a
請回答以下問題：
（1）.區域J3：J12的數據是通過公式計算得到的，在J3單元格輸入公式 ，再使用自動填充功能完成區域J4：J12的計算。
（提示：票房占比=單部電影總票房/一周總票房*100）
（2）.表中有具體名稱的9部電影已經按2月12日票房降序排序，則排序時應該選擇的數據區域是 。
（3）.復制圖a中A2：J11的數據到新工作表，對2月12日票房和總票房分別設置篩選條件為“最大4項”，則篩選出的結果有 項。
（4）.根據圖a中的數據創建了如圖b所示的圖表，下列說法正確的是 （單選，填字母）
圖b
A. 該圖表使用了折線圖，能較好體現變化趨勢
B. 創建該圖表的數據區域是A2：I8
C. 在圖a的工作表中“電影名稱”列前插入一列，圖表會隨之變化
14.（2021高三下·浙江月考）小A同學創作“一天天長大”多媒體作品。首先他對作品進行了設計，然后使用flash進行作品創作，部分界面如圖所示，請回答下列問題。
（1）.下列對作品設計的說法，正確的是 （多選，填字母：A .作品設計首先要考慮作品的發布方式/B .考慮作品創作所需的軟硬件屬于創作需求分析 /C .flash軟件屬于以時間為基礎的多媒體創作工具 /D .腳本編寫的最后一步是編寫制作腳本。）
（2）.如圖所示，該作品庫中有 個按鈕元件?！袄踝印眻D層1-17幀的動畫類型是
（3）.根據題目描述和截圖，下列說法正確的是 (多選，填字母)
A. 若舞臺尺寸為500*400，圖中“繼續”按鈕的坐標可能是“120,350”
B. 測試影片時，音樂播放時間不會超過4s
C. 若希望該場景播放完后自動停止，可在“背景”圖層最后一幀設置腳本stop( );
D. 若隱藏“背景”圖層，測試場景時該圖層內容依然可見
（4）.“動物”圖層的補間動畫到第56幀結束，若要使該圖層動畫內容在補間結束后立即消失不再出現，應進行的操作是 。
15.（2021高三下·浙江月考）某店鋪銷售運動類商品，根據銷售單售賣商品，然后更新庫存和統計銷售額。小商同學根據上述算法設計VB程序，讀入銷售清單數據（銷售清單存在數組sale，其中奇數位是商品名，偶數位是購買數量），單擊“計算”按鈕command1，若庫存充足則銷售成功，否則該單號作廢，最后在列表框list1降序輸出各商品剩余庫存和總銷售額。程序界面和代碼如下，回答下列問題：
Dim goods(1 To 11) As String ‘商品名，共11種
Dim num(1 To 11) As Integer ‘庫存數
Dim prize(1 To 11) As Integer ‘商品單價
Dim sale(1 To 160) As String ‘共80個銷售單號
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t2 As Integer
Dim total As Integer,s as string， t1 As String
total = 0
For i = 1 To 80
For j = 1 To 11
If Then Exit For
Next j
If ① Then
num(j) = num(j) - Val(sale(i * 2))
total = total + Val(sale(i * 2)) * prize(j)
For k = 1 To 10
If ② Then
t1 = goods(k): goods(k) = goods(k + 1): goods(k + 1) = t1
t2 = num(k): num(k) = num(k + 1): num(k + 1) = t2
t2 = prize(k): prize(k) = prize(k+1): prize(k+1) = t2
End If
Next k
Else
List1.AddItem Str(i) + "號單庫存不足"
End If
Next i
‘在列表框list1輸出各商品剩余庫存，代碼略
List1.AddItem "總銷售額" + ③ + "元"
End Sub
Private Sub Form_Load()
‘讀入數據，存在各個數組，代碼略
End Sub
（1）根據代碼和程序界面，本程序沒有哪類對象________（單選，填字母: A .文本框 \ B .列表框 \ C .標簽 \ D .按鈕 ）
（2）加框處代碼有錯，請改正
（3）在程序劃線處填入合適代碼，使程序完整
①________ ②________ ③________
16.（2021高三下·浙江月考）有60個人要組建一個聚會，每人的喜好是一個數值，為提升聚會效果，會務組要把參會人員進行分組，分組原則是：
1）每組不超過8人
2）組內新增人員的喜好值必須與現有組內人員的平均喜好值相差在5以內
3）若新增人員無法加入現有小組，則被分入新組建小組
小V同學根據上述算法設計編寫了VB程序，界面如圖所示，單擊“分組”按鈕后，在列表框list1輸出分組結果，每組一行，回答下列問題：
Dim a(1 To 60) As Integer ‘各人的喜好值
Private Sub Command1_Click()
Dim i As Integer, j As Integer, c As Integer，s as String
Dim b(1 To 480) As Integer ‘分組后喜好值
Dim ave(1 To 60) As Integer, num(1 To 60) As Integer
For i = 1 To 60 ‘預設60個分組
num(i) = 1
ave(i) = 0
Next i
c = 1: ave(1) = a(1): b(1) = a(1)
For i = 2 To 60
For j = 1 To c
If Abs(a(i) - ave(j)) <= 5 And num(j) < 8 Then
ave(j) = ①
num(j) = num(j) + 1
b(j * 8 - 8 + num(j)) = a(i)
Exit For
End If
Next j
If ② Then
b(c * 8 + 1) = a(i)
ave(j) = a(i)
c = c + 1
End If
Next i
s = ""
For i = 1 To c
For j = 1 To ③
s = s + Str(b((i - 1) * 8 + j))
Next j
List1.AddItem s
s = ""
Next i
End Sub
Private Sub Form_Load()
‘生成60個原始數據，存入數組a，數組b各元素初始化為0，代碼略
End Sub
（1）如圖所示，當前數據已被分組,若再新增一個數“64”，會被分在第________組。
（2）在程序劃線處填入合適代碼，使程序完整。
①________ ②________ ③________
答案解析部分
一、選擇題（本大題共12小題，每小題2分，共24分。在每小題給出的四個選項中，只有一個符合題目要求）
1.【答案】 B
【考點】信息及其特征，信息技術的概念與關鍵技術，模擬信號數字化過程
【解析】
2.【答案】 A
【考點】網絡協議，網絡資源的檢索，網頁、網站的概念與聯系，網頁文件格式
【解析】
3.【答案】 D
【考點】字段的數據類型，數據表的創建
【解析】
4.【答案】 D
【考點】進制及數制轉換，字符編碼
【解析】
5.【答案】 B
【考點】圖像基本屬性設置，圖層及圖層的基本操作
【解析】
6.【答案】 B
【考點】字符編碼
【解析】
7.【答案】 C
【考點】運算符、基本運算與表達式
【解析】
8.【答案】 C
【考點】流程圖識讀
【解析】
9.【答案】 A
【考點】排序算法及程序實現
【解析】
10.【答案】 C
【考點】分支結構語句及程序實現，循環結構語句及程序實現
【解析】
11.【答案】 D
【考點】分支結構語句及程序實現，循環結構語句及程序實現
【解析】
12.【答案】 A
【考點】查找算法及程序實現，循環結構語句及程序實現
【解析】
二、非選擇題（本大題共4小題，4+8+7+7，共26分。）
13.【答案】 （1）=I3/I$13*100 或=I3/$I$13*100
（2）A2:J11或A3：J11或A2：I11或A3：I11
（3）略
（4）A
【考點】表格數據的處理與計算，圖表實現數據可視化，數據分析
【解析】
14.【答案】 （1）BC
（2）3；動畫補間
（3）A,D
（4）操作有多種方式?！皠游铩眻D層第57幀插入空白關鍵幀，或刪除57-60幀或 選中57-60幀，執行“清除幀”操作
【考點】多媒體作品的規劃和設計，動畫的類型，時間軸、幀、圖層、庫的概念及基本操作，元件的類型與應用，多媒體作品的調試與遞交
【解析】
15.【答案】 （1）A
（2）sale(2 * i - 1) = goods(j)
（3）num(j) - Val(sale(i * 2)) >= 0；num(k) < num(k + 1)；Str(total)
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用，排序算法及程序實現
【解析】
16.【答案】 （1）9
（2）(ave(j) * num(j) + a(i)) / (num(j) + 1)；j = c + 1 或j>c或其他等價答案；num(i)
【考點】循環結構語句及程序實現，常用標準函數
【解析】
1 / 1(
…………○…………外…………○…………裝…………○…………訂…………○…………線…………○…………
) (
※※請※※不※※要※※在※※裝※※訂※※線※※內※※答※※題※※
) (
…………○…………內…………○…………裝…………○…………訂…………○…………線…………○…………
)
登陸二一教育在線組卷平臺 助您教考全無憂
浙江省稽陽聯誼學校2021屆高三下學期信息技術4月聯考試卷
一、選擇題（本大題共12小題，每小題2分，共24分。在每小題給出的四個選項中，只有一個符合題目要求）
1.（2021高三下·浙江月考）下列關于信息和信息技術的描述，正確的是（ ）
A. 假新聞的產生可以不依賴于數據與信號
B. GDP（國內生產總值）的數據是信息加工處理的結果
C. 古代社會中，同時存在模擬信號和數字信號
D. 計算機技術的特點是速度快、容量大、穩定性差
【答案】 B
【考點】信息及其特征，信息技術的概念與關鍵技術，模擬信號數字化過程
【解析】
2.（2021高三下·浙江月考）下列有關網頁和電子郵件的說法，正確的是（ ）
A. 網頁用URL標識其在網絡上的位置
B. SMTP協議可以把郵件直接發送到收件人計算機中
C. HTML文件中包含了文字、超鏈接和圖片、視頻
D. 使用同一個搜索引擎，不同時間的檢索結果肯定相同
【答案】 A
【考點】網絡協議，網絡資源的檢索，網頁、網站的概念與聯系，網頁文件格式
【解析】
3.（2021高三下·浙江月考）用Access軟件設計一個數據表，存儲下表所示的用戶數據。
會員編號 姓名 聯系方式 注冊日期 性別 余額
1 徐文杰 17886262123 2021-1-1 男 202.30
2 張樂 2021-1-5 男 15.86
3 王燕飛 15957554321 2021-2-3 女 500.00
下列表結構設計最合理的是（ ）
A. B.
C. D.
【答案】 D
【考點】字段的數據類型，數據表的創建
【解析】
4.（2021高三下·浙江月考）利用軟件UltraEdit觀察字符內碼，界面如圖所示，下列說法正確的是 （ ）

A. 上述字符共占15bit
B. 上述字符中，采用ASCII編碼的字符共有7個
C. 字符“10”的內碼用十六進制表示是3A
D. 字符“Y”的內碼轉換為二進制有4個1
【答案】 D
【考點】進制及數制轉換，字符編碼
【解析】
5.（2021高三下·浙江月考）用photoshop軟件制作“建黨百年”作品，如圖所示。當前狀態下，下列說法正確的是（ ）
A. “背景”圖層無法設置濾鏡
B. “文字”圖層的圖層樣式均不可見
C. “魚”圖層的圖像不可見的原因是圖層被隱藏
D. 調整圖像大小時，“船”圖層中船的分辨率（像素數量）保持不變
【答案】 B
【考點】圖像基本屬性設置，圖層及圖層的基本操作
【解析】
6.（2021高三下·浙江月考）某字體共收錄了10000個漢字，每個文字可以看做是一幅位圖，若單個文字的分辨率是24*24，只有黑白兩色，合成一個字體文件后壓縮比為3：1，則該字體文件的存儲容量約為（ ）
A. 120KB B. 240KB C. 720KB D. 1440KB
【答案】 B
【考點】字符編碼
【解析】
7.（2021高三下·浙江月考）變量a、b的取值只能是0和1，以下VB表達式無法正確表達“若a、b都是1，則c=1，否則c=2”意思的是（ ）
A. c=2：if a+b=2 then c=1 B. if a=1 and a=b then c=1 else c=2
C. if abs(a-b)>0 then c=2 else c=1 D. if a*b=1 then c=1 else c=2
【答案】 C
【考點】運算符、基本運算與表達式
【解析】
8.（2021高三下·浙江月考）某算法的部分流程如圖所示，執行這部分流程，若輸入s為“10sh23ab”，則輸出t的值是（ ）
A. 0 B. 2 C. 3 D. 6
【答案】 C
【考點】流程圖識讀
【解析】
9.（2021高三下·浙江月考）采用選擇排序算法對某數據序列進行排序，經過某輪排序后的結果是“1，3，4，9，2，8，5”，再經過2輪排序后，該數據序列的順序是（ ）
A. 1，2，3，9，4，8，5 B. 1，2，3，4，9，8，5
C. 1，2，3，5，4，9，8 D. 1，2，3，4，5，8，9
【答案】 A
【考點】排序算法及程序實現
【解析】
10.（2021高三下·浙江月考）有如下VB程序段：
Dim s1 As String, s2 As String
s1 = "what doesn't kill you makes you stronger."
s2 = text1.text
i = 1: j = 1
Do While i <= Len(s1) And j <= Len(s2)
If Mid(s1, i, 1) = Mid(s2, j, 1) Then j = j + 1
i = i + 1
Loop
If j > Len(s2) Then
s3 = "true"
Else
s3 = "false"
EndIf
執行該程序段后，s3的值為“false”，則text1輸入的文本可能是（ ）
A. "skills" B. "waste" C. "damage" D. "note"
【答案】 C
【考點】分支結構語句及程序實現，循環結構語句及程序實現
【解析】
11.（2021高三下·浙江月考）a(1) ~ a(n)都是正整數，下列VB程序段的功能是計算所有數的最小公倍數。
t = a(1)
For i = 2 To n
b = a(i)
c = t
Do While c Mod b <>0
r = c Mod b

Loop

Next i
上述程序中方框處的可選語句為：
① b = r :c = b ② c = b :b = r
③ t= a(i) * t / c ④ t = a(i) * t / b
則方框處語句依次是（ ）
A. ①③ B. ①④ C. ②③ D. ②④
【答案】 D
【考點】分支結構語句及程序實現，循環結構語句及程序實現
【解析】
12.（2021高三下·浙江月考）有如下VB程序
Key = Int(Rnd * 5 + 5)
i = 1: j = 10: sum = 0
Do While i <= j
m = (i + j ) \ 2
If a(m) <= Key Then
i = m + 1
Else
j = m - 1
End If
sum = sum + m
Loop
數組元素a（1）到a（10）分別是2、4、5、6、6、6、8、8、10、12，程序運行后，sum的值不可能是 （ ）
A. 10 B. 14 C. 22 D. 26
【答案】 A
【考點】查找算法及程序實現，循環結構語句及程序實現
【解析】
二、非選擇題（本大題共4小題，4+8+7+7，共26分。）
13.（2021高三下·浙江月考）小王收集了2021大年初一到初七的電影票房數據，并用Excel軟件進行數據處理，如圖所示。
圖a
請回答以下問題：
（1）.區域J3：J12的數據是通過公式計算得到的，在J3單元格輸入公式 ，再使用自動填充功能完成區域J4：J12的計算。
（提示：票房占比=單部電影總票房/一周總票房*100）
（2）.表中有具體名稱的9部電影已經按2月12日票房降序排序，則排序時應該選擇的數據區域是 。
（3）.復制圖a中A2：J11的數據到新工作表，對2月12日票房和總票房分別設置篩選條件為“最大4項”，則篩選出的結果有 項。
（4）.根據圖a中的數據創建了如圖b所示的圖表，下列說法正確的是 （單選，填字母）
圖b
A. 該圖表使用了折線圖，能較好體現變化趨勢
B. 創建該圖表的數據區域是A2：I8
C. 在圖a的工作表中“電影名稱”列前插入一列，圖表會隨之變化
【答案】 （1）=I3/I$13*100 或=I3/$I$13*100
（2）A2:J11或A3：J11或A2：I11或A3：I11
（3）略
（4）A
【考點】表格數據的處理與計算，圖表實現數據可視化，數據分析
【解析】
14.（2021高三下·浙江月考）小A同學創作“一天天長大”多媒體作品。首先他對作品進行了設計，然后使用flash進行作品創作，部分界面如圖所示，請回答下列問題。
（1）.下列對作品設計的說法，正確的是 （多選，填字母：A .作品設計首先要考慮作品的發布方式/B .考慮作品創作所需的軟硬件屬于創作需求分析 /C .flash軟件屬于以時間為基礎的多媒體創作工具 /D .腳本編寫的最后一步是編寫制作腳本。）
（2）.如圖所示，該作品庫中有 個按鈕元件。“栗子”圖層1-17幀的動畫類型是
（3）.根據題目描述和截圖，下列說法正確的是 (多選，填字母)
A. 若舞臺尺寸為500*400，圖中“繼續”按鈕的坐標可能是“120,350”
B. 測試影片時，音樂播放時間不會超過4s
C. 若希望該場景播放完后自動停止，可在“背景”圖層最后一幀設置腳本stop( );
D. 若隱藏“背景”圖層，測試場景時該圖層內容依然可見
（4）.“動物”圖層的補間動畫到第56幀結束，若要使該圖層動畫內容在補間結束后立即消失不再出現，應進行的操作是 。
【答案】 （1）BC
（2）3；動畫補間
（3）A,D
（4）操作有多種方式?！皠游铩眻D層第57幀插入空白關鍵幀，或刪除57-60幀或 選中57-60幀，執行“清除幀”操作
【考點】多媒體作品的規劃和設計，動畫的類型，時間軸、幀、圖層、庫的概念及基本操作，元件的類型與應用，多媒體作品的調試與遞交
【解析】
15.（2021高三下·浙江月考）某店鋪銷售運動類商品，根據銷售單售賣商品，然后更新庫存和統計銷售額。小商同學根據上述算法設計VB程序，讀入銷售清單數據（銷售清單存在數組sale，其中奇數位是商品名，偶數位是購買數量），單擊“計算”按鈕command1，若庫存充足則銷售成功，否則該單號作廢，最后在列表框list1降序輸出各商品剩余庫存和總銷售額。程序界面和代碼如下，回答下列問題：
Dim goods(1 To 11) As String ‘商品名，共11種
Dim num(1 To 11) As Integer ‘庫存數
Dim prize(1 To 11) As Integer ‘商品單價
Dim sale(1 To 160) As String ‘共80個銷售單號
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t2 As Integer
Dim total As Integer,s as string， t1 As String
total = 0
For i = 1 To 80
For j = 1 To 11
If Then Exit For
Next j
If ① Then
num(j) = num(j) - Val(sale(i * 2))
total = total + Val(sale(i * 2)) * prize(j)
For k = 1 To 10
If ② Then
t1 = goods(k): goods(k) = goods(k + 1): goods(k + 1) = t1
t2 = num(k): num(k) = num(k + 1): num(k + 1) = t2
t2 = prize(k): prize(k) = prize(k+1): prize(k+1) = t2
End If
Next k
Else
List1.AddItem Str(i) + "號單庫存不足"
End If
Next i
‘在列表框list1輸出各商品剩余庫存，代碼略
List1.AddItem "總銷售額" + ③ + "元"
End Sub
Private Sub Form_Load()
‘讀入數據，存在各個數組，代碼略
End Sub
（1）根據代碼和程序界面，本程序沒有哪類對象________（單選，填字母: A .文本框 \ B .列表框 \ C .標簽 \ D .按鈕 ）
（2）加框處代碼有錯，請改正
（3）在程序劃線處填入合適代碼，使程序完整
①________ ②________ ③________
【答案】 （1）A
（2）sale(2 * i - 1) = goods(j)
（3）num(j) - Val(sale(i * 2)) >= 0；num(k) < num(k + 1)；Str(total)
【考點】類、對象、屬性、方法、事件和事件處理的概念及應用，排序算法及程序實現
【解析】
16.（2021高三下·浙江月考）有60個人要組建一個聚會，每人的喜好是一個數值，為提升聚會效果，會務組要把參會人員進行分組，分組原則是：
1）每組不超過8人
2）組內新增人員的喜好值必須與現有組內人員的平均喜好值相差在5以內
3）若新增人員無法加入現有小組，則被分入新組建小組
小V同學根據上述算法設計編寫了VB程序，界面如圖所示，單擊“分組”按鈕后，在列表框list1輸出分組結果，每組一行，回答下列問題：
Dim a(1 To 60) As Integer ‘各人的喜好值
Private Sub Command1_Click()
Dim i As Integer, j As Integer, c As Integer，s as String
Dim b(1 To 480) As Integer ‘分組后喜好值
Dim ave(1 To 60) As Integer, num(1 To 60) As Integer
For i = 1 To 60 ‘預設60個分組
num(i) = 1
ave(i) = 0
Next i
c = 1: ave(1) = a(1): b(1) = a(1)
For i = 2 To 60
For j = 1 To c
If Abs(a(i) - ave(j)) <= 5 And num(j) < 8 Then
ave(j) = ①
num(j) = num(j) + 1
b(j * 8 - 8 + num(j)) = a(i)
Exit For
End If
Next j
If ② Then
b(c * 8 + 1) = a(i)
ave(j) = a(i)
c = c + 1
End If
Next i
s = ""
For i = 1 To c
For j = 1 To ③
s = s + Str(b((i - 1) * 8 + j))
Next j
List1.AddItem s
s = ""
Next i
End Sub
Private Sub Form_Load()
‘生成60個原始數據，存入數組a，數組b各元素初始化為0，代碼略
End Sub
（1）如圖所示，當前數據已被分組,若再新增一個數“64”，會被分在第________組。
（2）在程序劃線處填入合適代碼，使程序完整。
①________ ②________ ③________
【答案】 （1）9
（2）(ave(j) * num(j) + a(i)) / (num(j) + 1)；j = c + 1 或j>c或其他等價答案；num(i)
【考點】循環結構語句及程序實現，常用標準函數
【解析】
1 / 1

展開更多......

收起↑