資源簡介

浙江省諸暨市2020-2021學年高二上學期信息技術期末考試試卷
一、選擇題（本大題共12小題，每小題2分，共24分。）
1．（2020高二上·諸暨期末）圖圖為了推銷自己種植的各類水果，開通了一個微信公眾號發布銷售信息。下列說法正確的是（　　）
A．為了方便推廣而制作微信公眾號二維碼的過程屬于信息的編碼
B．銷售信息在傳遞和共享過程中有可能產生損耗
C．微信公眾號是載體，發布的文字、圖像等是信息
D．銷售信息具有時效性，過期的信息沒有任何價值
【答案】A
【知識點】信息及其特征；條形碼、二維碼
2．（2020高二上·諸暨期末）下列關于某手機的應用中，體現人工智能技術的是（　　）
①使用“應用分身”功能，實現一臺手機登錄兩個微信帳號
②使用“多屏協同”功能，實現電腦端操作手機
③使用“人臉識別”功能，實現屏幕解鎖
④使用“手寫識別”功能，實現輸入文字
⑤使用“運動健康”功能，記錄用戶運動步數
⑥使用“語音助手”功能，回應用戶提出的需求
A．②③④ B．①②⑤ C．①③⑥ D．③④⑥
【答案】D
【知識點】人工智能的應用
3．（2020高二上·諸暨期末）使用 Access 軟件設計一個數據表，存儲如圖所示的圖書相關數據。
下列數據表結構設計最合理的是（　　）
A． B．
C． D．
【答案】B
【知識點】數據表的創建
4．（2020高二上·諸暨期末）下列有關數制的說法，正確的是（　　）
A．二進制數1000中的高位數碼1對應權值是24
B．二進制數111010轉換成十六進制數是310
C．若二進制數末位為0，則該數對應的十進制數不一定是偶數
D．若二進制數101末位后加上數碼0，則新數1010是原數101的2倍
【答案】D
【知識點】進制及數制轉換
5．（2020高二上·諸暨期末）使用PhotoShop軟件處理“中國戲曲”作品，部分編輯界面如圖所示。
下列說法正確的是（　　）
A．可以使用文本工具修改“中國戲曲”圖層的文字字體
B．不能將“人物”圖層移動到“國粹”圖層的上方
C．將“中國戲曲”圖層的圖層樣式拷貝到“梅花”圖層，“梅花”圖層將有3種圖層樣式
D．將該作品按當前狀態保存為 BMP 格式的文件，該文件中沒有“屋檐”圖像
【答案】D
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作
6．（2020高二上·諸暨期末）將幀頻為12fps、總幀數為100的Flash動畫作品導出影片后的文件容量約為6MB（參數設置如圖所示），則其采用的壓縮比約為（　　）
A．5∶1 B．8∶1 C．15∶1 D．90∶1
【答案】B
【知識點】聲音、圖像、視頻編碼
7．（2020高二上·諸暨期末）數組元素a(1)~a(n)中存儲了n個正整數，下列VB表達式的值為True時，可檢測數組偶數位置元素的值為奇數的是（　　）
A．a(i) Mod 2 = i Mod 2
B．a(i) Mod 2 < i Mod 2
C．a(i) Mod 2 = 1 Or i Mod 2 = 0
D．a(i) Mod 2 = 1 And i Mod 2 = 0
【答案】D
【知識點】運算符、基本運算與表達式
8．（2020高二上·諸暨期末）某算法的部分流程圖如圖所示。執行這部分流程，若輸入a的值為365，則輸出b的值為（　　）
A．365 B．555 C．563 D．365563
【答案】C
【知識點】流程圖識讀
9．（2020高二上·諸暨期末）數組a使用如下VB程序段進行排序，第一遍加工后的結果為89，85，82，88，83，87，86，則該數組的原始順序不可能的是（　　）
For i = 1 To n - 1
For j = n To i + 1 Step -1
If a(j) > a(j - 1) Then
k = a(j): a(j) = a(j - 1): a(j - 1) = k
End If
Next j
Next i
A．85，82，88，83，87，86，89 B．85，82，88，83，89，86，87
C．85，82，89，83，88，87，86 D．89，85，82，83，88，86，87
【答案】D
【知識點】排序算法及程序實現
10．（2020高二上·諸暨期末）有如下VB程序段：
s1 = Text1.Text
s2 = ""
For i = 1 To Len(s1)
c = Mid(s1, i, 1)
If c >= "A" And c <= "Z" Then
c = Chr(Asc(c) + 32)
ElseIf c >= "0" And c <= "9" Then
c = Chr((Asc(c) - Asc("0") + 2) Mod 10 + Asc("0"))
End If
s2 = c + s2
Next i
Text2.Text = s2
該程序段運行后，若在文本框Text1中輸入“A19bCD”，則文本框Text2中顯示的內容是（　　）
A．a19bcd B．a31bcd C．dcb31a D．dcb13a
【答案】D
【知識點】循環結構語句及程序實現；常用標準函數
11．（2020高二上·諸暨期末）有一VB程序的功能如下：在文本框Text1中輸入一個單詞，在文本框Text2中輸入一行以句號結尾的句子（所有單詞均由小寫字母組成且句子中各個單詞之間僅用空格隔開），單擊命令按鈕Command1，在文本框Text3中統計單詞在句子中出現的次數，VB程序段如下：
s = Text2.Text
i = 1: k = 0: x = 0
Do While i <= Len(s)
c = Mid(s, i, 1)
If c >= "a" And c <= "z" Then
k = k + 1
Else
If word = Text1.Text Then x = x + 1
End If
i = i + 1
Loop
Text3.Text = Str(x)
加框處①、②應填入的代碼為（　　）
A．word = Mid(s, i - k, k) k = 0
B．word = Mid(s, i - k, k) k = 1
C．word = Mid(s, i - k + 1 , k) k = 0
D．word = Mid(s, i - k + 1 , k) k = 1
【答案】A
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
12．（2020高二上·諸暨期末）有如下 VB 程序段：
Dim a(1 To 10) As Integer
a(1) = 20: a(2) = 19: a(3) = 17: a(4) = 15: a(5) = 15
a(6) = 15: a(7) = 16: a(8) = 20: a(9) = 25: a(10) = 27
L = 1: R = 10
Do While L <= R
m = (L + R) \ 2
If a(m) > a(m - 1) Then
R = m - 1
Else
L = m + 1
End If
Loop
Text1.Text = Str(R)
該程序段運行后，文本框Text1中顯示的內容是（　　）
A．4 B．5 C．6 D．7
【答案】C
【知識點】查找算法及程序實現
二、非選擇題（本大題共4小題，4+8+7+7，共26分）
13．（2020高二上·諸暨期末）圖圖收集了“近四年某高校各專業學生人數”的相關數據，并使用Excel軟件進行數據處理，如圖a所示。
（1）為計算圖a中各個年份入學的總人數，圖圖已正確計算了單元格I3中的數據。他希望將單元格I3中的公式向下自動填充至單元格I6，從而正確計算出區域I4:I6中的數據，則下列修改I3中的公式方法不可行的是（單選，填字母）。
（提示：SUMIF函數用于統計某個區域中滿足條件的單元格數值之和，例=SUMIF(B3:B22,H3,D3:D22)，用于統計2017年各專業男生人數之和）
A．=SUMIF($B$3:$B$22,H3,$F$3:$F$22)
B．=SUMIF(B$3:B$22,H3,F$3:F$22)
C．=SUMIF($B3:$B22,H3,$F3:$F22)
（2）根據圖a中數據制作的圖表如圖b所示，創建該圖表的數據區域是B2,F2,　 　。
（3）在圖a所示的工作表中對數據作進一步的數據處理，已知F列中的數據是通過在F3單元格中輸入公式“=D3+E3”再向下自動填充至F22計算得到的。則下列說法正確的是 。（多選，填字母）
A．將區域B2:F22中的數據按“總人數”升序排序，則區域I3:I6中的數據不會發生變化
B．若刪除A列，則F列中的單元格將出現錯誤信息“#REF!”
C．將單元格D15中的數據改為“230”，則圖表隨之變化
D．若要篩選出“2020年”總人數最多的專業名稱，可以通過“入學年份”為“2020年”，“總人數”為最大1項篩選得到
【答案】（1）C
（2）B15:B18,F15:F18
（3）A；C
【知識點】表格數據的處理與計算；表格數據的圖表呈現
14．（2020高二上·諸暨期末）使用Flash軟件創建“保護環境”多媒體作品。請回答下列問題：
（1）作品的模塊設計框架如圖a所示，將各功能模塊和主交互界面都設計成獨立場景。各功能模塊的場景播放完后自動停止，單擊“返回”按鈕，返回主交互界面。下列說法正確的是__________（多選，填字母）
A．選用Flash軟件合成該作品屬于創作需求分析
B．確定原始素材的獲取方式屬于腳本編寫
C．主交互界面中包含5個功能模塊
D．主交互界面中按鈕的應用體現了多媒體技術的交互性
E．要實現“按鈕5”的功能，應該在該按鈕上添加動作命令fscommand(“quit”);
（2）“低碳出行”場景的編輯界面如圖b所示。“人物”圖層實現了不斷腳踩自行車的人由舞臺左下角騎到舞臺右下角的動畫效果，則該圖層第1幀到第36幀的動畫類型是　 　（選填：逐幀動畫/動畫補間/形狀補間）。若舞臺尺寸為800×450，則該圖層第36幀中的人物對象的坐標可能是　 　（單選，填字母：A .（50，50）/B .（700，500）/C .（400，50）/D .（700，400））
（3）要實現“地球”圖層的動畫出現時“人物”圖層的內容消失，在不影響其它動畫效果的前提下，可以進行的操作是　 　。
（4）位于舞臺左上角的“返回”按鈕來自于庫中的“返回”元件，該元件的部分編輯界面如圖c所示，下列說法正確的是 （多選，填字母）。
A．測試影片時，按鈕無法響應鼠標事件
B．測試影片時，鼠標指針移動到按鈕上時，文字內容消失
C．測試影片時，鼠標指針移動到按鈕上時，能聽到聲音播放
D．將“文字”圖層“彈起”幀的內容改為“退出”，舞臺左上角的按鈕上的文字隨之改變
【答案】（1）A；B；D
（2）動畫補間；D
（3）選中“人物”圖層第37幀執行“插入空白關鍵幀”操作或選中“人物”圖層第37~60幀執行“刪除幀”操作
（4）B；D
【知識點】多媒體作品的規劃和設計；動畫的類型；時間軸、幀、圖層、庫的概念及基本操作；元件的類型與應用；二維動畫實例屬性的設置
15．（2020高二上·諸暨期末）兩個長度相同的字符串s1和s2，若所含字符及各字符的數量均相等時可以歸為一類。
如字符串“ABDAC”與字符串“AABCD”可以歸為同一類，與“AABBC”不可以歸為同一類。圖圖編寫了一VB程序，功能如下：在文本框Text1中輸入字符串s1，在文本框Text2中輸入字符串s2，單擊“判斷”按鈕Command1，在標簽Label1中顯示是否可以歸為同一類的結果。部分運行界面如圖所示。
請回答下列問題：
（1）要使窗體的標題欄文字顯示為“同類字符判斷”，則應設置窗體的　 　 屬性（單選，填字母：A .Text / B
.Name /C .Caption）。
（2）實現上述功能的
VB 程序如下，請在劃線處填入合適的代碼。
Private Sub Command1_Click()
Dim a(1 To
100) As Boolean
Dim i As
Integer, j As Integer
Dim flag
As Boolean
s1 = Text1．Text
s2 = Text2．Text
flag =
True
For i = 1
To Len(s2)
　 　
Next i
If Len(s1)
<> Len(s2) Then
flag =
False
Else
For i = 1
To Len(s1)
c = 　 　
j = 1
Do
While j <= Len(s2)
If
Then
a(j) = False
Exit Do
End If
　 　
Loop
If j = Len(s2) + 1 Then flag = False
Next i
End If
If flag Then
Label1.Caption = "可以歸為同一類"
Else
Label1.Caption = "不可歸為同一類"
End If
End Sub
（3）程序中加框處代碼有錯，請改正。
【答案】（1）C
（2）a(i) = True；Mid(s1, i, 1)；j = j + 1
（3）c = Mid(s2, j, 1) And a(j)
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；分支結構語句及程序實現；循環結構語句及程序實現
16．（2020高二上·諸暨期末）圖圖基于排序算法設計了一個數字矩陣排序的VB程序，功能如下：在文本框Text1中輸入矩陣的大小n，單擊“生成”按鈕Command1，在左側列表框List1中顯示行數和列數均為n的隨機整數矩陣。單擊“排序”按鈕Command2，奇數行從左到右升序排序，偶數行從左到右降序排序，結果顯示在列表框List2中，輸出時保持矩陣大小不變。運行結果如圖所示。
請回答下列問題：
（1）實現上述功能的
VB 程序如下，請在劃線處填入合適的代碼。
Dim a(1 To 100) As Integer
Dim n As Integer
Private Sub Command1_Click()
Dim i As
Integer, j As Integer
Dim s As
String, k As Integer
n =
Val(Text1.Text)
For i = 1 To
n
　 　
For j
= 1 To n
k
= (i - 1) * n + j
a(k)
= Int(Rnd() * 45 + 5) * 2
s
= s + " " + Str(a(k))
Next j
List1.AddItem
s
Next i
End Sub
Private Sub Command2_Click()
Dim i As
Integer, L As Integer, R As Integer
Dim f As
Integer
For i = 1
To n
If i Mod 2
= 1 Then f = 1 Else f = -1
　 　
R = i
* n
List2.AddItem
sort(L, R, f)
Next i
End Sub
Function sort(left As Integer, right As Integer,
order As Integer) As String
Dim i As
Integer, j As Integer, k As Integer
Dim s As
String, t As Integer
s =
""
For i =
left To right - 1
k = i
For j
= i + 1 To right
If
　 　 Then k = j
Next j
If k
<> i Then
t
= a(k): a(k) = a(i): a(i) = t
End If
s = s
+ " " + Str(a(i))
Next i
sort = s
End Function
（2）若刪除上述VB程序中加框處代碼，　 　（選填：會/不會）影響程序運行結果。
【答案】（1）s = ""；L = (i - 1) * n + 1；a(j) * order < a(k) * order
（2）會
【知識點】排序算法及程序實現
1 / 1浙江省諸暨市2020-2021學年高二上學期信息技術期末考試試卷
一、選擇題（本大題共12小題，每小題2分，共24分。）
1．（2020高二上·諸暨期末）圖圖為了推銷自己種植的各類水果，開通了一個微信公眾號發布銷售信息。下列說法正確的是（　　）
A．為了方便推廣而制作微信公眾號二維碼的過程屬于信息的編碼
B．銷售信息在傳遞和共享過程中有可能產生損耗
C．微信公眾號是載體，發布的文字、圖像等是信息
D．銷售信息具有時效性，過期的信息沒有任何價值
2．（2020高二上·諸暨期末）下列關于某手機的應用中，體現人工智能技術的是（　　）
①使用“應用分身”功能，實現一臺手機登錄兩個微信帳號
②使用“多屏協同”功能，實現電腦端操作手機
③使用“人臉識別”功能，實現屏幕解鎖
④使用“手寫識別”功能，實現輸入文字
⑤使用“運動健康”功能，記錄用戶運動步數
⑥使用“語音助手”功能，回應用戶提出的需求
A．②③④ B．①②⑤ C．①③⑥ D．③④⑥
3．（2020高二上·諸暨期末）使用 Access 軟件設計一個數據表，存儲如圖所示的圖書相關數據。
下列數據表結構設計最合理的是（　　）
A． B．
C． D．
4．（2020高二上·諸暨期末）下列有關數制的說法，正確的是（　　）
A．二進制數1000中的高位數碼1對應權值是24
B．二進制數111010轉換成十六進制數是310
C．若二進制數末位為0，則該數對應的十進制數不一定是偶數
D．若二進制數101末位后加上數碼0，則新數1010是原數101的2倍
5．（2020高二上·諸暨期末）使用PhotoShop軟件處理“中國戲曲”作品，部分編輯界面如圖所示。
下列說法正確的是（　　）
A．可以使用文本工具修改“中國戲曲”圖層的文字字體
B．不能將“人物”圖層移動到“國粹”圖層的上方
C．將“中國戲曲”圖層的圖層樣式拷貝到“梅花”圖層，“梅花”圖層將有3種圖層樣式
D．將該作品按當前狀態保存為 BMP 格式的文件，該文件中沒有“屋檐”圖像
6．（2020高二上·諸暨期末）將幀頻為12fps、總幀數為100的Flash動畫作品導出影片后的文件容量約為6MB（參數設置如圖所示），則其采用的壓縮比約為（　　）
A．5∶1 B．8∶1 C．15∶1 D．90∶1
7．（2020高二上·諸暨期末）數組元素a(1)~a(n)中存儲了n個正整數，下列VB表達式的值為True時，可檢測數組偶數位置元素的值為奇數的是（　　）
A．a(i) Mod 2 = i Mod 2
B．a(i) Mod 2 < i Mod 2
C．a(i) Mod 2 = 1 Or i Mod 2 = 0
D．a(i) Mod 2 = 1 And i Mod 2 = 0
8．（2020高二上·諸暨期末）某算法的部分流程圖如圖所示。執行這部分流程，若輸入a的值為365，則輸出b的值為（　　）
A．365 B．555 C．563 D．365563
9．（2020高二上·諸暨期末）數組a使用如下VB程序段進行排序，第一遍加工后的結果為89，85，82，88，83，87，86，則該數組的原始順序不可能的是（　　）
For i = 1 To n - 1
For j = n To i + 1 Step -1
If a(j) > a(j - 1) Then
k = a(j): a(j) = a(j - 1): a(j - 1) = k
End If
Next j
Next i
A．85，82，88，83，87，86，89 B．85，82，88，83，89，86，87
C．85，82，89，83，88，87，86 D．89，85，82，83，88，86，87
10．（2020高二上·諸暨期末）有如下VB程序段：
s1 = Text1.Text
s2 = ""
For i = 1 To Len(s1)
c = Mid(s1, i, 1)
If c >= "A" And c <= "Z" Then
c = Chr(Asc(c) + 32)
ElseIf c >= "0" And c <= "9" Then
c = Chr((Asc(c) - Asc("0") + 2) Mod 10 + Asc("0"))
End If
s2 = c + s2
Next i
Text2.Text = s2
該程序段運行后，若在文本框Text1中輸入“A19bCD”，則文本框Text2中顯示的內容是（　　）
A．a19bcd B．a31bcd C．dcb31a D．dcb13a
11．（2020高二上·諸暨期末）有一VB程序的功能如下：在文本框Text1中輸入一個單詞，在文本框Text2中輸入一行以句號結尾的句子（所有單詞均由小寫字母組成且句子中各個單詞之間僅用空格隔開），單擊命令按鈕Command1，在文本框Text3中統計單詞在句子中出現的次數，VB程序段如下：
s = Text2.Text
i = 1: k = 0: x = 0
Do While i <= Len(s)
c = Mid(s, i, 1)
If c >= "a" And c <= "z" Then
k = k + 1
Else
If word = Text1.Text Then x = x + 1
End If
i = i + 1
Loop
Text3.Text = Str(x)
加框處①、②應填入的代碼為（　　）
A．word = Mid(s, i - k, k) k = 0
B．word = Mid(s, i - k, k) k = 1
C．word = Mid(s, i - k + 1 , k) k = 0
D．word = Mid(s, i - k + 1 , k) k = 1
12．（2020高二上·諸暨期末）有如下 VB 程序段：
Dim a(1 To 10) As Integer
a(1) = 20: a(2) = 19: a(3) = 17: a(4) = 15: a(5) = 15
a(6) = 15: a(7) = 16: a(8) = 20: a(9) = 25: a(10) = 27
L = 1: R = 10
Do While L <= R
m = (L + R) \ 2
If a(m) > a(m - 1) Then
R = m - 1
Else
L = m + 1
End If
Loop
Text1.Text = Str(R)
該程序段運行后，文本框Text1中顯示的內容是（　　）
A．4 B．5 C．6 D．7
二、非選擇題（本大題共4小題，4+8+7+7，共26分）
13．（2020高二上·諸暨期末）圖圖收集了“近四年某高校各專業學生人數”的相關數據，并使用Excel軟件進行數據處理，如圖a所示。
（1）為計算圖a中各個年份入學的總人數，圖圖已正確計算了單元格I3中的數據。他希望將單元格I3中的公式向下自動填充至單元格I6，從而正確計算出區域I4:I6中的數據，則下列修改I3中的公式方法不可行的是（單選，填字母）。
（提示：SUMIF函數用于統計某個區域中滿足條件的單元格數值之和，例=SUMIF(B3:B22,H3,D3:D22)，用于統計2017年各專業男生人數之和）
A．=SUMIF($B$3:$B$22,H3,$F$3:$F$22)
B．=SUMIF(B$3:B$22,H3,F$3:F$22)
C．=SUMIF($B3:$B22,H3,$F3:$F22)
（2）根據圖a中數據制作的圖表如圖b所示，創建該圖表的數據區域是B2,F2,　 　。
（3）在圖a所示的工作表中對數據作進一步的數據處理，已知F列中的數據是通過在F3單元格中輸入公式“=D3+E3”再向下自動填充至F22計算得到的。則下列說法正確的是 。（多選，填字母）
A．將區域B2:F22中的數據按“總人數”升序排序，則區域I3:I6中的數據不會發生變化
B．若刪除A列，則F列中的單元格將出現錯誤信息“#REF!”
C．將單元格D15中的數據改為“230”，則圖表隨之變化
D．若要篩選出“2020年”總人數最多的專業名稱，可以通過“入學年份”為“2020年”，“總人數”為最大1項篩選得到
14．（2020高二上·諸暨期末）使用Flash軟件創建“保護環境”多媒體作品。請回答下列問題：
（1）作品的模塊設計框架如圖a所示，將各功能模塊和主交互界面都設計成獨立場景。各功能模塊的場景播放完后自動停止，單擊“返回”按鈕，返回主交互界面。下列說法正確的是__________（多選，填字母）
A．選用Flash軟件合成該作品屬于創作需求分析
B．確定原始素材的獲取方式屬于腳本編寫
C．主交互界面中包含5個功能模塊
D．主交互界面中按鈕的應用體現了多媒體技術的交互性
E．要實現“按鈕5”的功能，應該在該按鈕上添加動作命令fscommand(“quit”);
（2）“低碳出行”場景的編輯界面如圖b所示。“人物”圖層實現了不斷腳踩自行車的人由舞臺左下角騎到舞臺右下角的動畫效果，則該圖層第1幀到第36幀的動畫類型是　 　（選填：逐幀動畫/動畫補間/形狀補間）。若舞臺尺寸為800×450，則該圖層第36幀中的人物對象的坐標可能是　 　（單選，填字母：A .（50，50）/B .（700，500）/C .（400，50）/D .（700，400））
（3）要實現“地球”圖層的動畫出現時“人物”圖層的內容消失，在不影響其它動畫效果的前提下，可以進行的操作是　 　。
（4）位于舞臺左上角的“返回”按鈕來自于庫中的“返回”元件，該元件的部分編輯界面如圖c所示，下列說法正確的是 （多選，填字母）。
A．測試影片時，按鈕無法響應鼠標事件
B．測試影片時，鼠標指針移動到按鈕上時，文字內容消失
C．測試影片時，鼠標指針移動到按鈕上時，能聽到聲音播放
D．將“文字”圖層“彈起”幀的內容改為“退出”，舞臺左上角的按鈕上的文字隨之改變
15．（2020高二上·諸暨期末）兩個長度相同的字符串s1和s2，若所含字符及各字符的數量均相等時可以歸為一類。
如字符串“ABDAC”與字符串“AABCD”可以歸為同一類，與“AABBC”不可以歸為同一類。圖圖編寫了一VB程序，功能如下：在文本框Text1中輸入字符串s1，在文本框Text2中輸入字符串s2，單擊“判斷”按鈕Command1，在標簽Label1中顯示是否可以歸為同一類的結果。部分運行界面如圖所示。
請回答下列問題：
（1）要使窗體的標題欄文字顯示為“同類字符判斷”，則應設置窗體的　 　 屬性（單選，填字母：A .Text / B
.Name /C .Caption）。
（2）實現上述功能的
VB 程序如下，請在劃線處填入合適的代碼。
Private Sub Command1_Click()
Dim a(1 To
100) As Boolean
Dim i As
Integer, j As Integer
Dim flag
As Boolean
s1 = Text1．Text
s2 = Text2．Text
flag =
True
For i = 1
To Len(s2)
　 　
Next i
If Len(s1)
<> Len(s2) Then
flag =
False
Else
For i = 1
To Len(s1)
c = 　 　
j = 1
Do
While j <= Len(s2)
If
Then
a(j) = False
Exit Do
End If
　 　
Loop
If j = Len(s2) + 1 Then flag = False
Next i
End If
If flag Then
Label1.Caption = "可以歸為同一類"
Else
Label1.Caption = "不可歸為同一類"
End If
End Sub
（3）程序中加框處代碼有錯，請改正。
16．（2020高二上·諸暨期末）圖圖基于排序算法設計了一個數字矩陣排序的VB程序，功能如下：在文本框Text1中輸入矩陣的大小n，單擊“生成”按鈕Command1，在左側列表框List1中顯示行數和列數均為n的隨機整數矩陣。單擊“排序”按鈕Command2，奇數行從左到右升序排序，偶數行從左到右降序排序，結果顯示在列表框List2中，輸出時保持矩陣大小不變。運行結果如圖所示。
請回答下列問題：
（1）實現上述功能的
VB 程序如下，請在劃線處填入合適的代碼。
Dim a(1 To 100) As Integer
Dim n As Integer
Private Sub Command1_Click()
Dim i As
Integer, j As Integer
Dim s As
String, k As Integer
n =
Val(Text1.Text)
For i = 1 To
n
　 　
For j
= 1 To n
k
= (i - 1) * n + j
a(k)
= Int(Rnd() * 45 + 5) * 2
s
= s + " " + Str(a(k))
Next j
List1.AddItem
s
Next i
End Sub
Private Sub Command2_Click()
Dim i As
Integer, L As Integer, R As Integer
Dim f As
Integer
For i = 1
To n
If i Mod 2
= 1 Then f = 1 Else f = -1
　 　
R = i
* n
List2.AddItem
sort(L, R, f)
Next i
End Sub
Function sort(left As Integer, right As Integer,
order As Integer) As String
Dim i As
Integer, j As Integer, k As Integer
Dim s As
String, t As Integer
s =
""
For i =
left To right - 1
k = i
For j
= i + 1 To right
If
　 　 Then k = j
Next j
If k
<> i Then
t
= a(k): a(k) = a(i): a(i) = t
End If
s = s
+ " " + Str(a(i))
Next i
sort = s
End Function
（2）若刪除上述VB程序中加框處代碼，　 　（選填：會/不會）影響程序運行結果。
答案解析部分
1．【答案】A
【知識點】信息及其特征；條形碼、二維碼
2．【答案】D
【知識點】人工智能的應用
3．【答案】B
【知識點】數據表的創建
4．【答案】D
【知識點】進制及數制轉換
5．【答案】D
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作
6．【答案】B
【知識點】聲音、圖像、視頻編碼
7．【答案】D
【知識點】運算符、基本運算與表達式
8．【答案】C
【知識點】流程圖識讀
9．【答案】D
【知識點】排序算法及程序實現
10．【答案】D
【知識點】循環結構語句及程序實現；常用標準函數
11．【答案】A
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
12．【答案】C
【知識點】查找算法及程序實現
13．【答案】（1）C
（2）B15:B18,F15:F18
（3）A；C
【知識點】表格數據的處理與計算；表格數據的圖表呈現
14．【答案】（1）A；B；D
（2）動畫補間；D
（3）選中“人物”圖層第37幀執行“插入空白關鍵幀”操作或選中“人物”圖層第37~60幀執行“刪除幀”操作
（4）B；D
【知識點】多媒體作品的規劃和設計；動畫的類型；時間軸、幀、圖層、庫的概念及基本操作；元件的類型與應用；二維動畫實例屬性的設置
15．【答案】（1）C
（2）a(i) = True；Mid(s1, i, 1)；j = j + 1
（3）c = Mid(s2, j, 1) And a(j)
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；分支結構語句及程序實現；循環結構語句及程序實現
16．【答案】（1）s = ""；L = (i - 1) * n + 1；a(j) * order < a(k) * order
（2）會
【知識點】排序算法及程序實現
1 / 1

展開更多......

收起↑