資源簡介

浙江省湖州市2020-2021學年高二下學期信息技術期末調研測試卷
1．（2021高二下·湖州期末）下列有關信息和信息技術的說法，正確的是（　　）
A．計算機中存儲的數據是信息
B．廣播、電視都是常見的信息表達方式
C．可以利用信息技術把信息從一種形態轉換為另一種形態
D．信息技術是伴隨著計算機和互聯網技術的發展而誕生的
【答案】C
【知識點】信息及其特征；信息技術的發展歷史；信息表達方式與表達技術
2．（2021高二下·湖州期末）下列有關網頁和瀏覽器的說法，正確的是（　　）
A．網頁中的圖像不能設置超鏈接
B．HTTP協議用于瀏覽器與Web服務器之間的信息傳輸
C．網頁必須同時具備文本、圖形圖像和超鏈接這三種基本元素
D．在IE瀏覽器中，使用“添加到收藏夾”功能可以保存正在瀏覽的網頁內容
【答案】B
【知識點】網絡協議；瀏覽器；網頁組成元素
3．（2021高二下·湖州期末）使用Access軟件設計一個數據表，存儲如圖所示的學生消費記錄數據。
序號 學籍號 姓名 金額 消費窗口 日期 是否住校
1 HZ20201121 沈宵陽 ￥11.50 9 2021/5/17 是
2 HZ201801 13 王加娜 ￥9.50 11 2021/5/17 否
3 HZ20200603 張顥琎 ￥12.00 3 2021/5/18 否
… … … … … … …
下列表結構設計合理的是（　　）
A． B．
C． D．
【答案】A
【知識點】數據表的創建
4．（2021高二下·湖州期末）使用UltraEdit軟件觀察字符“2020，武漢加油！”的內碼，部分界面如圖所示。
下列說法正確的是（　　）
A．圖中內碼表示的ASCII碼字符共有6個
B．字符“!”的十六進制內碼為A1
C．字符“3”的內碼用二進制表示是“00110011”
D．存儲該段字符需要14個字節
【答案】C
【知識點】進制及數制轉換；字符編碼
5．（2021高二下·湖州期末）使用GoldWave軟件編輯某音頻文件，部分界面如圖所示。
下列說法正確的是（　　）
A．當前狀態下執行“刪除”操作后，音頻總時長減少3秒
B．當前狀態下執行“剪裁”操作后，音頻總時長變為3秒
C．當前狀態下執行“靜音”操作后，音頻總時長減少3秒
D．當前狀態下執行“插入靜音”操作后（時長為3秒），音頻總時長增加3秒
【答案】D
【知識點】聲音素材的基本處理
6．（2021高二下·湖州期末）將一幅未經壓縮的1024×768 像素、256 級灰度的BMP圖片，另存為512×384像素、黑白的BMP圖片，轉換前后兩個文件的存儲容量比為（　　）
A．128:1 B．32:1 C．16:1 D．4:1
【答案】B
【知識點】聲音、圖像、視頻編碼
7．（2021高二下·湖州期末）下列選項中，表達式的值與其他三項不同的是（　　）
A．Abs(Int(-1.5)) B．5 Mod 2
C．Int(Rnd + 1) D．Val(Mid("2021", 4, 1))
【答案】A
【知識點】運算符、基本運算與表達式
8．（2021高二下·湖州期末）某算法的部分流程圖如圖所示。
執行這部分流程，若輸入n的值為22，則輸出的t的值為（　　）
A．"1101" B．"1011" C．"10110" D．"01101"
【答案】C
【知識點】流程圖識讀
9．（2021高二下·湖州期末）有如下VB 程序代碼段：
s1 = "51577": s2 = "75929"
i = 1: j = 1: k = 0
Do While i <= Len(s1) And j <= Len(s2)
c1 = Mid(s1, i, 1): c2 = Mid(s2, j, 1)
If Abs(Val(c1) - Val(c2)) < 4 Then
i = i + 1
Else
k = k + 1
End If
j = j + 1
Loop
執行該程序段后，變量k的值是（　　）
A．2 B．3 C．4 D．5
【答案】B
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
10．（2021高二下·湖州期末）下列VB程序段功能為：數組元素a(1)至a(20)中存儲的是0-9之間的隨機整數，查找在數組a中連續出現數字b的數組元素個數和起始位置，若有多個相同元素個數，則記錄最后出現的起始位置。
b = 5
k = 0: imax = 0
For i = 1 To 20
If a(i) = b Then
k = k + 1
If ⑴ Then
imax = k
⑵
End If
Else
k = 0
End If
Next i
Label1.Caption = "最大長度:" +Str(imax) +"，起始位置:" + Str(st)
劃線處可選代碼為：
①k > imax ② k >= imax ③ st = i - imax + 1 ④ st = i
下列選項中，代碼順序正確的是（　　）
A．①③ B．①④ C．②③ D．②④
【答案】C
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
11．（2021高二下·湖州期末）有如下VB程序代碼段：
For i = 1 To 6
a(i) = Int(Rnd * 10) + 10
Next i
For i = 1 To 3 Step 2
For j = 6 To i + 2 Step -1
If a(j) > a(j - 2) Then
t = a(j): a(j) = a(j - 2): a(j - 2) = t
End If
Next j
Next i
執行上述程序段后，下列選項中，a(1)到a(6)各元素值可能的是（　　）
A．14 18 12 13 11 9 B．11 12 13 16 17 18
C．14 13 15 15 18 16 D．17 18 15 16 14 13
【答案】D
【知識點】排序算法及程序實現
12．（2021高二下·湖州期末）有如下VB 程序代碼段：
i = 1: j = 10: c = 0
k = Val(Text1.Text)
Do While i <= j
m = (i + j) \ 2
c = c + 1
If a(m) >= k Then
j = m - 1
Else
i = m + 1
End If
Loop
數組元素a(1)到a(10)的值依次為“1,4,10,21,21,26,27,29,30,36”，在文本框Text1中輸入“21”，執行該程序段后，下列說法正確的是（　　）
A．變量i的值是3 B．變量j的值是4
C．變量c的值是4 D．變量m的值是3
【答案】C
【知識點】查找算法及程序實現
13．（2021高二下·湖州期末）小陳收集了2020年我國部分省份高等教育在校學生數統計的相關數據，并使用Excel軟件對數據進行處理，如圖a所示。
圖a
請回答下列問題:
（1）小陳已正確計算了華東和華南地區的“本科區域占比”。現要計算華北地區的“本科區域占比”，可在F13 單元格中輸入公式　 　，再利用自動填充功能完成區域F14:F17的計算。
（2）根據圖a中數據制作的圖表如圖b所示，創建該圖表的數據區域是　 　。
圖b
（3）小陳對工作表中的數據進行進一步處理，結合圖a和圖b，下列說法正確的有 (多選，填字母)。
A．修改D15單元格數據為651052，圖b所示圖表會隨之改變
B．在“本科”列前插入一列，“本科區域占比”列的數值不會發生改變
C．以“區域”為華東、“本科本省占比”為最大1項進行篩選，篩選出的省份是上海
D．若要對華東地區的省份以“本科”為關鍵字升序排序，可選擇排序的區域是B2:F8
【答案】（1）= C13/SUM(C$13: C$17) 或 = C13/SUM($C$13: $C$17)
（2）B2:D2, B9:D12
（3）B；D
【知識點】表格數據的處理與計算
14．（2021高二下·湖州期末）小陳制作主題為“故鄉”的多媒體作品。首先使用Photoshop軟件處理圖像，然后使用Flash軟件制作動畫作品。請回答下列問題：
圖a
（1）處理圖像的部分界面如圖a 所示。下列說法正確的有 （多選，填字母）。
A．可對“山脈”圖層直接設置濾鏡效果
B．可使用畫筆工具修改“背景”圖層中的圖像內容
C．可復制“蒲公英”圖層的圖層樣式并粘貼到“云”圖層
D．將作品存儲為JPEG 格式文件，該JPEG 格式文件保留原作品的圖層信息
（2）制作動畫作品的部分界面如第14 題圖b 所示。“音樂”圖層中聲音的同步屬性為“數據流”，為讓音樂和“文字2”圖層的補間動畫同時結束，可在“音樂”圖層第　 　幀執　 　行操作。
圖b
（3）“按鈕”圖層最后一幀設置了動作腳本“stop(　　)；”。測試影片時，“退出”按鈕一開始就出現在舞臺上，若要“退出”按鈕僅最后一幀出現，在不影響其他動畫效果的前提下，可行的操作有 （多選，填字母）。
A．選中“按鈕”圖層第1幀，執行“刪除幀”操作
B．選中“按鈕”圖層第1幀，執行“清除關鍵幀”操作
C．選中“按鈕”圖層第1至59幀，執行“刪除幀”操作
D．選中“按鈕”圖層第1幀，刪除其舞臺上“退出”按鈕實例
E．將“按鈕”圖層第1幀移動至第60幀，并在第60幀添加動作腳本“stop(　　)；”
（4）放映影片時，單擊當前場景中的“退出”按鈕可關閉放映文件，則“退出”按鈕上應添加的動作腳本是　 　。
【答案】（1）B；C
（2）41；插入空白關鍵幀 或 插入關鍵幀
（3）D；E
（4）on(press){ fscommand(“quit”)；}或其他等價答案
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作；時間軸、幀、圖層、庫的概念及基本操作；常用影片控制函數的應用
15．（2021高二下·湖州期末）某夏令營按兩門考試科目總分從高分到低分依次錄取學生。如果錄取學生的最后一名出現有總分并列的情況，則并列的學生全部錄取。編寫VB程序實現以上功能，程序運行時在列表框List1中顯示全部學生的信息，在文本框Text1中輸入計劃招生人數，點擊“錄取”按鈕Command1后，在列表框List2中輸出錄取的學生信息，并在標簽Label1上顯示最終錄取的人數。程序運行界面如題圖所示。
請回答下列問題：
（1）如圖所示，按鈕Command1 上顯示的“錄取”是該按鈕對象的　 　（單選，填字母：A .對象名/B .屬性名/C .方法名/D .屬性值）
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Const num = 15
Dim xm(num) As String
Dim km1(num) As Integer, km2(num) As Integer
Private Sub Form_Load(　　)
'讀取num個學生的姓名、科目1、科目2的成績，分別存儲到數組xm、km1、km2。
'在列表框List1中輸出所有學生的姓名與成績，代碼略。
End Sub
Private Sub Command1_Click()
Dim rs As
Integer, count As Integer, flag As Boolean
Dim i As
Integer, j As Integer, t As Integer, tmp As String
rs =
Val(Text1.Text)
List2.AddItem
" 姓名科目1 科目2"
count = 0:
i = 1
　 　
Do While i
<= num And flag
For j
= num - 1 To i Step -1
If
　 　 Then
tmp = xm(j): xm(j) = xm(j + 1): xm(j + 1) = tmp
t = km1(j): km1(j) = km1(j + 1): km1(j + 1) = t
t = km2(j): km2(j) = km2(j + 1): km2(j + 1) = t
End
If
Next j
flag =
False
If Or km1(i) + km2(i) = km1(i - 1) + km2(i - 1) Then
count = i
flag = True
End If
i = i + 1
Loop
For i = 1 To count
List2.AddItem xm(i) + " " + Str(km1(i)) + " " + Str(km2(i))
Next i
Label1.Caption = "共錄取學生" + 　 　 + "人"
End Sub
（3）程序中加框處代碼有錯，請改正。
【答案】（1）D
（2）flag = True；km1(j) + km2(j) < km1(j + 1) + km2(j + 1) 或把“<”改為“<=”；Str(count) 或 Str(i - 1)
（3）i <= rs 或i < rs + 1 或count【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；排序算法及程序實現
16．（2021高二下·湖州期末）有一個木棒游戲，探究在一堆木棒中取4根木棒組成一個正三角形的取法數量（三角形其中一邊由兩根木棒組成，長度相同的不同木棒算不同的方案）。如果取出長度為a,b,c,d（a <= b < c = d）的四根木棒能構成正三角形，那么a + b = c = d。算法如下：
⑴枚舉兩根短的木棒a和b；
⑵當a <> b 時，組合的數量= 長度為a 的木棒根數×長度為b 的木棒根數×長度為(a+b)的木棒取兩根的取法數量；
⑶當a = b 時，組合的數量= 長度為a 的木棒取兩根的取法數量×長度為(a+b)的木棒取兩根的取法數量。
如木棒長度分別為“1,1,2,2,3,3”，當a=1，b=2 時，則c=d= 3，該情況的組合數量=（長度為1 的根數）*（長度為2 的根數）*（長度為3 的根數取兩根的取法數量）= 2 *2 * 1 = 4。長度為3 的根數取兩根的取法數量，即
程序運行界面如圖所示，在文本框Text1輸入一堆木棒的長度，以逗號間隔，點擊“計算”按鈕Command1后在標簽Label1顯示方案總數。
請回答下列問題：
（1）在文本框Text1中輸入“2,3,3,6,6,6,7,”，能構成正三角形的取法數量是　 　(填數字)
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Private Sub Command1_Click(　　)
Dim tmax
As Integer, ans As Integer, k As Integer
Dim i As
Integer, a As Integer, b As Integer, tmp As Integer
Dim c As
String, s As String
Dim t(20)
As Integer
'儲存相同長度木棒的數量，如t(5)的值是長度為5的木棒的數量
s =
Text1.Text
tmp = 0: k
= 0
ans = 0:
tmax = 0
For i = 1
To Len(s)
c =
Mid(s, i, 1)
If c =
"," Then
k
= k + 1
t(tmp)
= 　 　
If
tmp > tmax Then tmax = tmp
tmp
= 0
Else
tmp
= tmp * 10 + Val(c)
End If
Next i
For a = 1
To tmax \ 2 '枚舉兩根短的木棒
For b
= a To tmax
If
a + b > tmax Or t(a) * t(b) * t(a + b) = 0 Then Exit For
If
　 　 Then
ans = ans + js(t(a), 2) * js(t(a + b), 2)
Else
ans = ans + js(t(a), 1) * 　 　 * js(t(a + b), 2)
End
If
Next b
Next a
Label1.Caption
= "共有" + Str(ans) + "種方案"
End Sub
Function js(x As Integer, y As Integer) As Integer
'計算在x個對象中取y個對象的組合數量，即
'代碼略。
End Function
【答案】（1）3
（2）t(tmp) + 1；a = b；js(t(b), 1) 或 t(b)
【知識點】過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
1 / 1浙江省湖州市2020-2021學年高二下學期信息技術期末調研測試卷
1．（2021高二下·湖州期末）下列有關信息和信息技術的說法，正確的是（　　）
A．計算機中存儲的數據是信息
B．廣播、電視都是常見的信息表達方式
C．可以利用信息技術把信息從一種形態轉換為另一種形態
D．信息技術是伴隨著計算機和互聯網技術的發展而誕生的
2．（2021高二下·湖州期末）下列有關網頁和瀏覽器的說法，正確的是（　　）
A．網頁中的圖像不能設置超鏈接
B．HTTP協議用于瀏覽器與Web服務器之間的信息傳輸
C．網頁必須同時具備文本、圖形圖像和超鏈接這三種基本元素
D．在IE瀏覽器中，使用“添加到收藏夾”功能可以保存正在瀏覽的網頁內容
3．（2021高二下·湖州期末）使用Access軟件設計一個數據表，存儲如圖所示的學生消費記錄數據。
序號 學籍號 姓名 金額 消費窗口 日期 是否住校
1 HZ20201121 沈宵陽 ￥11.50 9 2021/5/17 是
2 HZ201801 13 王加娜 ￥9.50 11 2021/5/17 否
3 HZ20200603 張顥琎 ￥12.00 3 2021/5/18 否
… … … … … … …
下列表結構設計合理的是（　　）
A． B．
C． D．
4．（2021高二下·湖州期末）使用UltraEdit軟件觀察字符“2020，武漢加油！”的內碼，部分界面如圖所示。
下列說法正確的是（　　）
A．圖中內碼表示的ASCII碼字符共有6個
B．字符“!”的十六進制內碼為A1
C．字符“3”的內碼用二進制表示是“00110011”
D．存儲該段字符需要14個字節
5．（2021高二下·湖州期末）使用GoldWave軟件編輯某音頻文件，部分界面如圖所示。
下列說法正確的是（　　）
A．當前狀態下執行“刪除”操作后，音頻總時長減少3秒
B．當前狀態下執行“剪裁”操作后，音頻總時長變為3秒
C．當前狀態下執行“靜音”操作后，音頻總時長減少3秒
D．當前狀態下執行“插入靜音”操作后（時長為3秒），音頻總時長增加3秒
6．（2021高二下·湖州期末）將一幅未經壓縮的1024×768 像素、256 級灰度的BMP圖片，另存為512×384像素、黑白的BMP圖片，轉換前后兩個文件的存儲容量比為（　　）
A．128:1 B．32:1 C．16:1 D．4:1
7．（2021高二下·湖州期末）下列選項中，表達式的值與其他三項不同的是（　　）
A．Abs(Int(-1.5)) B．5 Mod 2
C．Int(Rnd + 1) D．Val(Mid("2021", 4, 1))
8．（2021高二下·湖州期末）某算法的部分流程圖如圖所示。
執行這部分流程，若輸入n的值為22，則輸出的t的值為（　　）
A．"1101" B．"1011" C．"10110" D．"01101"
9．（2021高二下·湖州期末）有如下VB 程序代碼段：
s1 = "51577": s2 = "75929"
i = 1: j = 1: k = 0
Do While i <= Len(s1) And j <= Len(s2)
c1 = Mid(s1, i, 1): c2 = Mid(s2, j, 1)
If Abs(Val(c1) - Val(c2)) < 4 Then
i = i + 1
Else
k = k + 1
End If
j = j + 1
Loop
執行該程序段后，變量k的值是（　　）
A．2 B．3 C．4 D．5
10．（2021高二下·湖州期末）下列VB程序段功能為：數組元素a(1)至a(20)中存儲的是0-9之間的隨機整數，查找在數組a中連續出現數字b的數組元素個數和起始位置，若有多個相同元素個數，則記錄最后出現的起始位置。
b = 5
k = 0: imax = 0
For i = 1 To 20
If a(i) = b Then
k = k + 1
If ⑴ Then
imax = k
⑵
End If
Else
k = 0
End If
Next i
Label1.Caption = "最大長度:" +Str(imax) +"，起始位置:" + Str(st)
劃線處可選代碼為：
①k > imax ② k >= imax ③ st = i - imax + 1 ④ st = i
下列選項中，代碼順序正確的是（　　）
A．①③ B．①④ C．②③ D．②④
11．（2021高二下·湖州期末）有如下VB程序代碼段：
For i = 1 To 6
a(i) = Int(Rnd * 10) + 10
Next i
For i = 1 To 3 Step 2
For j = 6 To i + 2 Step -1
If a(j) > a(j - 2) Then
t = a(j): a(j) = a(j - 2): a(j - 2) = t
End If
Next j
Next i
執行上述程序段后，下列選項中，a(1)到a(6)各元素值可能的是（　　）
A．14 18 12 13 11 9 B．11 12 13 16 17 18
C．14 13 15 15 18 16 D．17 18 15 16 14 13
12．（2021高二下·湖州期末）有如下VB 程序代碼段：
i = 1: j = 10: c = 0
k = Val(Text1.Text)
Do While i <= j
m = (i + j) \ 2
c = c + 1
If a(m) >= k Then
j = m - 1
Else
i = m + 1
End If
Loop
數組元素a(1)到a(10)的值依次為“1,4,10,21,21,26,27,29,30,36”，在文本框Text1中輸入“21”，執行該程序段后，下列說法正確的是（　　）
A．變量i的值是3 B．變量j的值是4
C．變量c的值是4 D．變量m的值是3
13．（2021高二下·湖州期末）小陳收集了2020年我國部分省份高等教育在校學生數統計的相關數據，并使用Excel軟件對數據進行處理，如圖a所示。
圖a
請回答下列問題:
（1）小陳已正確計算了華東和華南地區的“本科區域占比”。現要計算華北地區的“本科區域占比”，可在F13 單元格中輸入公式　 　，再利用自動填充功能完成區域F14:F17的計算。
（2）根據圖a中數據制作的圖表如圖b所示，創建該圖表的數據區域是　 　。
圖b
（3）小陳對工作表中的數據進行進一步處理，結合圖a和圖b，下列說法正確的有 (多選，填字母)。
A．修改D15單元格數據為651052，圖b所示圖表會隨之改變
B．在“本科”列前插入一列，“本科區域占比”列的數值不會發生改變
C．以“區域”為華東、“本科本省占比”為最大1項進行篩選，篩選出的省份是上海
D．若要對華東地區的省份以“本科”為關鍵字升序排序，可選擇排序的區域是B2:F8
14．（2021高二下·湖州期末）小陳制作主題為“故鄉”的多媒體作品。首先使用Photoshop軟件處理圖像，然后使用Flash軟件制作動畫作品。請回答下列問題：
圖a
（1）處理圖像的部分界面如圖a 所示。下列說法正確的有 （多選，填字母）。
A．可對“山脈”圖層直接設置濾鏡效果
B．可使用畫筆工具修改“背景”圖層中的圖像內容
C．可復制“蒲公英”圖層的圖層樣式并粘貼到“云”圖層
D．將作品存儲為JPEG 格式文件，該JPEG 格式文件保留原作品的圖層信息
（2）制作動畫作品的部分界面如第14 題圖b 所示。“音樂”圖層中聲音的同步屬性為“數據流”，為讓音樂和“文字2”圖層的補間動畫同時結束，可在“音樂”圖層第　 　幀執　 　行操作。
圖b
（3）“按鈕”圖層最后一幀設置了動作腳本“stop(　　)；”。測試影片時，“退出”按鈕一開始就出現在舞臺上，若要“退出”按鈕僅最后一幀出現，在不影響其他動畫效果的前提下，可行的操作有 （多選，填字母）。
A．選中“按鈕”圖層第1幀，執行“刪除幀”操作
B．選中“按鈕”圖層第1幀，執行“清除關鍵幀”操作
C．選中“按鈕”圖層第1至59幀，執行“刪除幀”操作
D．選中“按鈕”圖層第1幀，刪除其舞臺上“退出”按鈕實例
E．將“按鈕”圖層第1幀移動至第60幀，并在第60幀添加動作腳本“stop(　　)；”
（4）放映影片時，單擊當前場景中的“退出”按鈕可關閉放映文件，則“退出”按鈕上應添加的動作腳本是　 　。
15．（2021高二下·湖州期末）某夏令營按兩門考試科目總分從高分到低分依次錄取學生。如果錄取學生的最后一名出現有總分并列的情況，則并列的學生全部錄取。編寫VB程序實現以上功能，程序運行時在列表框List1中顯示全部學生的信息，在文本框Text1中輸入計劃招生人數，點擊“錄取”按鈕Command1后，在列表框List2中輸出錄取的學生信息，并在標簽Label1上顯示最終錄取的人數。程序運行界面如題圖所示。
請回答下列問題：
（1）如圖所示，按鈕Command1 上顯示的“錄取”是該按鈕對象的　 　（單選，填字母：A .對象名/B .屬性名/C .方法名/D .屬性值）
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Const num = 15
Dim xm(num) As String
Dim km1(num) As Integer, km2(num) As Integer
Private Sub Form_Load(　　)
'讀取num個學生的姓名、科目1、科目2的成績，分別存儲到數組xm、km1、km2。
'在列表框List1中輸出所有學生的姓名與成績，代碼略。
End Sub
Private Sub Command1_Click()
Dim rs As
Integer, count As Integer, flag As Boolean
Dim i As
Integer, j As Integer, t As Integer, tmp As String
rs =
Val(Text1.Text)
List2.AddItem
" 姓名科目1 科目2"
count = 0:
i = 1
　 　
Do While i
<= num And flag
For j
= num - 1 To i Step -1
If
　 　 Then
tmp = xm(j): xm(j) = xm(j + 1): xm(j + 1) = tmp
t = km1(j): km1(j) = km1(j + 1): km1(j + 1) = t
t = km2(j): km2(j) = km2(j + 1): km2(j + 1) = t
End
If
Next j
flag =
False
If Or km1(i) + km2(i) = km1(i - 1) + km2(i - 1) Then
count = i
flag = True
End If
i = i + 1
Loop
For i = 1 To count
List2.AddItem xm(i) + " " + Str(km1(i)) + " " + Str(km2(i))
Next i
Label1.Caption = "共錄取學生" + 　 　 + "人"
End Sub
（3）程序中加框處代碼有錯，請改正。
16．（2021高二下·湖州期末）有一個木棒游戲，探究在一堆木棒中取4根木棒組成一個正三角形的取法數量（三角形其中一邊由兩根木棒組成，長度相同的不同木棒算不同的方案）。如果取出長度為a,b,c,d（a <= b < c = d）的四根木棒能構成正三角形，那么a + b = c = d。算法如下：
⑴枚舉兩根短的木棒a和b；
⑵當a <> b 時，組合的數量= 長度為a 的木棒根數×長度為b 的木棒根數×長度為(a+b)的木棒取兩根的取法數量；
⑶當a = b 時，組合的數量= 長度為a 的木棒取兩根的取法數量×長度為(a+b)的木棒取兩根的取法數量。
如木棒長度分別為“1,1,2,2,3,3”，當a=1，b=2 時，則c=d= 3，該情況的組合數量=（長度為1 的根數）*（長度為2 的根數）*（長度為3 的根數取兩根的取法數量）= 2 *2 * 1 = 4。長度為3 的根數取兩根的取法數量，即
程序運行界面如圖所示，在文本框Text1輸入一堆木棒的長度，以逗號間隔，點擊“計算”按鈕Command1后在標簽Label1顯示方案總數。
請回答下列問題：
（1）在文本框Text1中輸入“2,3,3,6,6,6,7,”，能構成正三角形的取法數量是　 　(填數字)
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Private Sub Command1_Click(　　)
Dim tmax
As Integer, ans As Integer, k As Integer
Dim i As
Integer, a As Integer, b As Integer, tmp As Integer
Dim c As
String, s As String
Dim t(20)
As Integer
'儲存相同長度木棒的數量，如t(5)的值是長度為5的木棒的數量
s =
Text1.Text
tmp = 0: k
= 0
ans = 0:
tmax = 0
For i = 1
To Len(s)
c =
Mid(s, i, 1)
If c =
"," Then
k
= k + 1
t(tmp)
= 　 　
If
tmp > tmax Then tmax = tmp
tmp
= 0
Else
tmp
= tmp * 10 + Val(c)
End If
Next i
For a = 1
To tmax \ 2 '枚舉兩根短的木棒
For b
= a To tmax
If
a + b > tmax Or t(a) * t(b) * t(a + b) = 0 Then Exit For
If
　 　 Then
ans = ans + js(t(a), 2) * js(t(a + b), 2)
Else
ans = ans + js(t(a), 1) * 　 　 * js(t(a + b), 2)
End
If
Next b
Next a
Label1.Caption
= "共有" + Str(ans) + "種方案"
End Sub
Function js(x As Integer, y As Integer) As Integer
'計算在x個對象中取y個對象的組合數量，即
'代碼略。
End Function
答案解析部分
1．【答案】C
【知識點】信息及其特征；信息技術的發展歷史；信息表達方式與表達技術
2．【答案】B
【知識點】網絡協議；瀏覽器；網頁組成元素
3．【答案】A
【知識點】數據表的創建
4．【答案】C
【知識點】進制及數制轉換；字符編碼
5．【答案】D
【知識點】聲音素材的基本處理
6．【答案】B
【知識點】聲音、圖像、視頻編碼
7．【答案】A
【知識點】運算符、基本運算與表達式
8．【答案】C
【知識點】流程圖識讀
9．【答案】B
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
10．【答案】C
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
11．【答案】D
【知識點】排序算法及程序實現
12．【答案】C
【知識點】查找算法及程序實現
13．【答案】（1）= C13/SUM(C$13: C$17) 或 = C13/SUM($C$13: $C$17)
（2）B2:D2, B9:D12
（3）B；D
【知識點】表格數據的處理與計算
14．【答案】（1）B；C
（2）41；插入空白關鍵幀 或 插入關鍵幀
（3）D；E
（4）on(press){ fscommand(“quit”)；}或其他等價答案
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作；時間軸、幀、圖層、庫的概念及基本操作；常用影片控制函數的應用
15．【答案】（1）D
（2）flag = True；km1(j) + km2(j) < km1(j + 1) + km2(j + 1) 或把“<”改為“<=”；Str(count) 或 Str(i - 1)
（3）i <= rs 或i < rs + 1 或count【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；排序算法及程序實現
16．【答案】（1）3
（2）t(tmp) + 1；a = b；js(t(b), 1) 或 t(b)
【知識點】過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
1 / 1

展開更多......

收起↑