資源簡介

浙江省寧波市鎮海中學2020屆高三6月信息技術考前模擬試卷
一、選擇題（本大題共12小題，每小題2分，共24分。在每小題給出的四個選項中，只有一個符合題目要求）
1．（2020·寧波模擬）關于信息與信息技術，以下說法正確的是（　　）
A．從報紙上讀新聞，文字是信息，紙張是信息的載體
B．漢字和西文字符一樣都可以用 ASCII 編碼作為交換碼
C．通過“采樣”和“量化”可以實現模擬量的數字化，這個過程稱為“數模轉換”
D．通過搜索引擎、主題目錄和元搜索引擎來檢索信息，是在因特網上檢索信息最常用的幾種途徑
2．（2020·寧波模擬）以下選項中，體現了人工智能技術的是（　　）
A．Word 軟件中的自動更正功能
B．恒溫杯使水溫保持在一定的溫度
C．智能手機使用人臉識別解鎖手機
D．超市防盜門檢測到未付款的商品發出警報
3．（2020·寧波模擬）某 Access 數據表如圖所示，以下說法正確的是（　?。?br/>
A．當前數據表的表名為“校園管理”
B．“ID”字段的數據類型可能為“數字”
C．只能在設計視圖中交換“卡號”字段與“姓名”字段的位置
D．新建記錄時，可以在“注冊日期”字段下輸入“二〇一八年一月三日”
4．（2020·寧波模擬）使用 UltraEdit 軟件查看字符“9是3的倍數?！钡膬却a，部分界面如圖所示。以下說法正確的是（　　）
A．圖中共有3個ASCII碼字符
B．存儲這些字符需要12B空間
C．字符“數”的二進制內碼為“11111101 10100001”
D．“10是2的倍數?！钡膬却a可能為“3A CA C7 32 B5 C4 B1 B6 CA FD A1 A3”
5．（2020·寧波模擬）用 Photoshop 軟件制作作品“春.psd”，界面如圖所示：以下說法正確的是（　?。?br/>A．“花 2”圖層不可以被直接刪除
B．“春.psd”文件的大小為 4.16M
C．“春”圖層不能直接添加圖層樣式
D．“燕子”圖層不能直接修改不透明度
6．（2020·寧波模擬）使用 GoldWave 軟件編輯某文檔，部分編輯界面如圖所示。執行“剪裁”命令后，保持其他參數不變，以量化位數 8bit 另存為 music.wav 的存儲容量約為（　?。?br/>A．1.7MB B．3.4MB C．27.2MB D．10.2MB
7．（2020·寧波模擬）VB 表達式 3 + 7 \ 3 Mod 4 / 2 - 1的值為（　　）
A．2 B．3 C．4 D．5
8．（2020·寧波模擬）有如圖所示的流程圖，若輸入 n=33，以下說法正確的是（　?。?br/>A．輸出s為4 B．輸出k為4
C．“a=nModk”執行次數為3次 D．流程會陷入死循環
9．（2020·寧波模擬）某 VB 程序如下：
Dim a(1 To 6) As Integer
Randomize
a=n Mod k
n=n\k,k=k+1,s=s+a
a(1) = Int(11 * Rnd) + 2
For i = 2 To 6
a(i) = Int(11 * Rnd) + 2
If i Mod 2 = 1 And Not prime(a(i)) Then i = i - 1
ElseIf Not prime(a(i)) Then a(i) = a(i) + a(i - 1)
End If
Next i
'自定義函數 prime()用于判斷參數是否為質數，prime(n) = True 則說明 n 為質數，否則為合數，定義函數代碼略執行該程序后，a(1)～a(6)的值不．可．能．為（　?。?br/>A．7, 10, 3, 7, 11, 23 B．4, 10, 5, 11, 3, 11
C．6, 10, 7, 16, 7, 7 D．12, 2, 11, 3, 3, 13
10．（2020·寧波模擬）某 VB 程序如下：
Dim a(1 To 10) As Integer，b(1 To 10) As Integer
k = 0
For i = 10 To 1 Step -1
Do While b(i) <> 0 k = k + 1
a(k) = i: b(i) = b(i) - 1
Loop
Next i
若 a(1)～a(10)的值分別為 7，9，8，1，9，4，4，2，1，1，則運行以上程序后，下列說法正確的是（　?。?br/>A．這是一段冒泡排序程序
B．運行后 a(1)～a(10)的值分別為 1，1，1，2，4，4，7，8，9，9
C．加框部分運行后 b(1)～b(10)的值分別為 3，1，0，2，0，0，1，1，2，0
D．本算法是通過比較交換數據來實現排序的
11．（2020·寧波模擬）有如下程序段
Dim n As Integer, i As Integer, left As Integer, right As Integer, m As Integer
Dim a(1 To 10) As String, t As String, key As String n = 6
a(1) = "35": a(2) = "20": a(3) = "18": a(4) = "8": a(5) = "274": a(6) = "47" For i = 1 To n - 1
For j = n To i + 1 Step -1
If a(i) < a(j) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i
key = Text1.Text
left = 1: right = n
Do While left <= right
m = (left + right) \ 2
If a(m) = key Then Exit Do
If a(m) < key Then right = m - 1 Else left = m + 1
Loop
若在文本框 Text1 中輸入“212”，則程序運行結束后，m 的值為（　　）
A． 1 B．2 C．4 D．5
12．（2020·寧波模擬）有如下程序段
Function Search(m As Integer, pre As Integer) As Integer
Dim i As Integer
If m < 0 Then
Search = 0
ElseIf m = 0 Then
Search = 1
Else
For i = pre To m
Search = Search + Search(m - i, i) Next i
End If
End Function
Private Sub Command1_Click() Dim n As Integer
n = Val(Text1.Text) Label1.Caption = Search(n, 1)
End Sub
若在文本框 Text1 中輸入“4”，則標簽 Label1 中顯示的內容為（　　）
A．2 B．4 C． 5 D．7
二、非選擇題（本大題共 4 小題，4+8+7+7，共 26 分）
13．（2020·寧波模擬）小王收集了“浙江省各地市2014、2015年人口統計表”的數據。并用excel軟件進行分析，部分界面如
圖a所示，請回答下列問題：
（1）區域 F3:G13 中的排名數據由 F3 單元格中使用 Rank 函數計算后進行自動填充獲得，則應在 F3 單元格中 輸入公式 。（Rank 函數是返回某數字在一列數字中相對于其他數值的大小排名的一個函數，如：Rank(A1,A1:A10)是計算A1在數據區域A1:A10中降序排序的名次）。
（2）根據圖 a 中數據制作如圖 b 所示的圖表，則創建圖表的數據區域是　 　；
（3）小王想要找出浙東北地域人口增長率最高的 3 地市，下列操作可行的是 。
A．以“地域”等于“浙東北”進行篩選，再以“人口增長率(%)”為最大3項進行篩選，找到篩選出的地市。
B．復制區域A2:G8到新的工作表，然后在新工作表中以“人口增長率(%)”為最大3項進行篩選，找到篩選出的地市。
C．選取區域A2:G8，以“人口增長率排名”為關鍵字進行升序排序，找到排在前面的3個地市。
D．選取區域B3:G8，以“列E”為關鍵字進行降序排序，找到排在前面的3個地市。
14．（2020·寧波模擬）地理老師為輔助教學，創作了“地理實驗”Flash動畫作品（如圖a所示），“背風坡”場景中，“云朵”從左移動到右，從山頂移動到山腳，同時，“云朵”從完全顯示變到最終消失。當動畫播放到該場景最后一幀時停止播放，點擊“返回”按鈕，轉到“主交互界面”第1幀并停止播放，請根據要求回答問題。
圖 a
圖 b
（1）在多媒體作品設計中，系統結構設計確定了一個作品的線路走向，之后要對各模塊進行具體設計。在 模塊設計時，需要注意的是　 　。（多選，填字母:A .屏幕布局合理規范/B .交互設計友好快速/C .音樂悅耳，色彩和諧/D .確定采用何種制作軟件）
（2）根據題意，“云”圖層中云朵的 alpha值的變化趨勢是　 　（單選，選填字
母：A .alpha 值從 100%變化到 0%/ B .alpha 值從 0%變化到 100% ）
（3）“返回”按鈕元件設計如圖 b所示，請判斷該按鈕的響應區域　 ?。▎芜x，選填字母：A .“文字”圖層確定 的區域 /B .“圓”圖層確定的區域 /C . “文字”圖層確定的區域+“圓”圖層確定的區域）。“三角”圖層“按下”幀中添圖b加了一段音樂，測試場景，當點擊按鈕時發現并不會播放音樂，請分析原因　 ??；
（4）根據題意，“返回”按鈕上應添加的動作腳本　 　。
15．（2020·寧波模擬）小天使舞蹈隊編排一個舞蹈。該舞蹈要求人數為偶數，其中 1 位同學領舞，其站位始終不變，舞蹈隊形
變化時，其余同學按逆時針順序移動站位。我們把所有跳舞的同學從領舞開始依次編為數字 1～n（n 為偶 數），然后把隊伍編號按 U 形走向分成兩列，即得到第一次隊形。從第二次隊形開始，固定編號 1（領舞），
其余編號均按逆時針方向移動一個位置，即為該次隊形；以后各次隊形以此類推，直到除領舞外的所有同學
按逆時針轉完一圈為止。
例如，節目人數為 6 時隊形變化情況如下：
小嘉為此編寫了一個 VB 程序，功能如下：在文本框 Text1 中輸入跳舞的同學 n（n 為偶數），單擊“隊形
變化”按鈕 Command1，在列表框 list1 中輸出每次變化后的隊形。程序代碼如下，運行效果如圖所示。
Private Sub Command1_Click() Dim a(1 To 20) As String
Dim result As String, t As String
Dim n As Integer, i As Integer, j As Integer n = Val(Text1.Text)
For i = 1 To n
①
Next i
For i = 1 To
result = " "
List1.AddItem "第" & Str(i) & "次：" For j = 1 To n \ 2
result = a(j) + " " + a(n – j + 1 ) List1.AddItem result
Next j
②
For j = n To 3 Step -1 a(j) = a(j - 1)
Next j
a(2) = temp
Next i End Sub
請回答下列問題：
（1）語句 List1.AddItem result 中的 AddItem 是　 ?。▎芜x，填字母：A
.方法名/B .過程名/C .事件名）
（2）實現上述功能的 VB 代碼如下，請在劃線處填入合適代碼。
①　 ?、凇? 　
（3）程序中加框處代碼有錯，請改正。
16．（2020·寧波模擬）小明基于插入排序思想設計了一個改進的排序算法。輸入n個兩位正整數到數組a，判斷數組a中每個元素的奇偶性，若為奇數則將其放前插入適當位置，若為偶數則將其放后插入適當位置。排序完后數組a中所有奇數在前升序排序，偶數在后降序排序。程序代碼如下：
Dim a(1 To 100) As Integer, n As Integer
Function moving( start As Integer, finish As Integer, st As Integer)
'將元素 a(finish)插入到元素 a(start)和元素 a(start+st)之間
Dim i As Integer, k As Integer k = a(finish)
For i = finish - st To start Step -st a(i + st) = a(i)
Next i a(start) = k
End Function
Private Sub Command1_Click()
Dim head As Integer, end1 As Integer, i As Integer, ans As String
' 將待排序的數存儲在數組 a 的 a(1)至 a(n)中，并輸入元素個數 n，代碼略
head = 1: end1 = n + 1
Do While head < end1
If ① Then
For i = 1 To head - 1
If a(i) > a(head) Then Exit For
Next i
Call moving(i, head, 1)
head = ②
Else
For i = end1 To n
If a(i) < a(head) Then Exit For
Next i
Call moving( ③ )
End1 = end1 - 1
End If
Loop
For i = 1 To n
ans = ans + Str(a(i))
Next i
Text2.Text = ans End Sub 請回答下列問題：
（1）若輸入 n=5，元素 a(1)至 a(5)的初值為：11,12,13,14,15，運行程序后，輸出的結果為　 ?。?br/>（2）實現上述功能的 VB 程序如下，請在劃線處填入合適的代碼。
①　 　②　 　③　 　
（3）如果輸入的 n 個數中有非正整數（數保證能在 Integer 型存儲），運行程序后的輸出　 ?。ㄟx填： 能 / 不能）保證仍是奇數在前升序排序，偶數在后降序排序。
答案解析部分
1．【答案】D
【知識點】信息及其特征；網絡資源的檢索；數字化概念與作用
2．【答案】C
【知識點】人工智能的應用
3．【答案】D
【知識點】數據表、字段、記錄的概念；數據表、字段、記錄的編輯；數據表視圖與設計視圖
4．【答案】B
【知識點】信息的編碼；進制及數制轉換
5．【答案】D
【知識點】圖層及圖層的基本操作
6．【答案】B
【知識點】聲音、圖像、視頻編碼
7．【答案】A
【知識點】運算符、基本運算與表達式
8．【答案】A
【知識點】常量、變量及變量的賦值；流程圖識讀
9．【答案】A
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值；過程與自定義函數
10．【答案】C
【知識點】程序的調試及運行；常量、變量及變量的賦值；排序算法及程序實現
11．【答案】C
【知識點】常量、變量及變量的賦值；查找算法及程序實現
12．【答案】C
【知識點】過程與自定義函數
13．【答案】（1）=RANK(D3,D$3:D$13)
（2）B2:D2,B9:D13
（3）B；D
【知識點】表格數據的處理與計算；數據分析
14．【答案】（1）ABC
（2）A
（3）A；音樂播放方式不是事件或開始
（4）On(Press){GotoAndStop(“主交互界面”,1)}
【知識點】多媒體作品的規劃和設計；元件的類型與應用；常用影片控制函數的應用
15．【答案】（1）A
（2）a(i) = Str(i)；temp = a(n)
（3）n-1
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；常量、變量及變量的賦值
16．【答案】（1）11 13 15 14 12
（2）a(head) Mod 2 = 1；head+1；i - 1, head, -1
（3）能
【知識點】常量、變量及變量的賦值；排序算法及程序實現
1 / 1浙江省寧波市鎮海中學2020屆高三6月信息技術考前模擬試卷
一、選擇題（本大題共12小題，每小題2分，共24分。在每小題給出的四個選項中，只有一個符合題目要求）
1．（2020·寧波模擬）關于信息與信息技術，以下說法正確的是（　?。?br/>A．從報紙上讀新聞，文字是信息，紙張是信息的載體
B．漢字和西文字符一樣都可以用 ASCII 編碼作為交換碼
C．通過“采樣”和“量化”可以實現模擬量的數字化，這個過程稱為“數模轉換”
D．通過搜索引擎、主題目錄和元搜索引擎來檢索信息，是在因特網上檢索信息最常用的幾種途徑
【答案】D
【知識點】信息及其特征；網絡資源的檢索；數字化概念與作用
2．（2020·寧波模擬）以下選項中，體現了人工智能技術的是（　　）
A．Word 軟件中的自動更正功能
B．恒溫杯使水溫保持在一定的溫度
C．智能手機使用人臉識別解鎖手機
D．超市防盜門檢測到未付款的商品發出警報
【答案】C
【知識點】人工智能的應用
3．（2020·寧波模擬）某 Access 數據表如圖所示，以下說法正確的是（　?。?br/>
A．當前數據表的表名為“校園管理”
B．“ID”字段的數據類型可能為“數字”
C．只能在設計視圖中交換“卡號”字段與“姓名”字段的位置
D．新建記錄時，可以在“注冊日期”字段下輸入“二〇一八年一月三日”
【答案】D
【知識點】數據表、字段、記錄的概念；數據表、字段、記錄的編輯；數據表視圖與設計視圖
4．（2020·寧波模擬）使用 UltraEdit 軟件查看字符“9是3的倍數?！钡膬却a，部分界面如圖所示。以下說法正確的是（　?。?br/>A．圖中共有3個ASCII碼字符
B．存儲這些字符需要12B空間
C．字符“數”的二進制內碼為“11111101 10100001”
D．“10是2的倍數。”的內碼可能為“3A CA C7 32 B5 C4 B1 B6 CA FD A1 A3”
【答案】B
【知識點】信息的編碼；進制及數制轉換
5．（2020·寧波模擬）用 Photoshop 軟件制作作品“春.psd”，界面如圖所示：以下說法正確的是（　?。?br/>A．“花 2”圖層不可以被直接刪除
B．“春.psd”文件的大小為 4.16M
C．“春”圖層不能直接添加圖層樣式
D．“燕子”圖層不能直接修改不透明度
【答案】D
【知識點】圖層及圖層的基本操作
6．（2020·寧波模擬）使用 GoldWave 軟件編輯某文檔，部分編輯界面如圖所示。執行“剪裁”命令后，保持其他參數不變，以量化位數 8bit 另存為 music.wav 的存儲容量約為（　?。?br/>A．1.7MB B．3.4MB C．27.2MB D．10.2MB
【答案】B
【知識點】聲音、圖像、視頻編碼
7．（2020·寧波模擬）VB 表達式 3 + 7 \ 3 Mod 4 / 2 - 1的值為（　　）
A．2 B．3 C．4 D．5
【答案】A
【知識點】運算符、基本運算與表達式
8．（2020·寧波模擬）有如圖所示的流程圖，若輸入 n=33，以下說法正確的是（　?。?br/>A．輸出s為4 B．輸出k為4
C．“a=nModk”執行次數為3次 D．流程會陷入死循環
【答案】A
【知識點】常量、變量及變量的賦值；流程圖識讀
9．（2020·寧波模擬）某 VB 程序如下：
Dim a(1 To 6) As Integer
Randomize
a=n Mod k
n=n\k,k=k+1,s=s+a
a(1) = Int(11 * Rnd) + 2
For i = 2 To 6
a(i) = Int(11 * Rnd) + 2
If i Mod 2 = 1 And Not prime(a(i)) Then i = i - 1
ElseIf Not prime(a(i)) Then a(i) = a(i) + a(i - 1)
End If
Next i
'自定義函數 prime()用于判斷參數是否為質數，prime(n) = True 則說明 n 為質數，否則為合數，定義函數代碼略執行該程序后，a(1)～a(6)的值不．可．能．為（　?。?br/>A．7, 10, 3, 7, 11, 23 B．4, 10, 5, 11, 3, 11
C．6, 10, 7, 16, 7, 7 D．12, 2, 11, 3, 3, 13
【答案】A
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值；過程與自定義函數
10．（2020·寧波模擬）某 VB 程序如下：
Dim a(1 To 10) As Integer，b(1 To 10) As Integer
k = 0
For i = 10 To 1 Step -1
Do While b(i) <> 0 k = k + 1
a(k) = i: b(i) = b(i) - 1
Loop
Next i
若 a(1)～a(10)的值分別為 7，9，8，1，9，4，4，2，1，1，則運行以上程序后，下列說法正確的是（　?。?br/>A．這是一段冒泡排序程序
B．運行后 a(1)～a(10)的值分別為 1，1，1，2，4，4，7，8，9，9
C．加框部分運行后 b(1)～b(10)的值分別為 3，1，0，2，0，0，1，1，2，0
D．本算法是通過比較交換數據來實現排序的
【答案】C
【知識點】程序的調試及運行；常量、變量及變量的賦值；排序算法及程序實現
11．（2020·寧波模擬）有如下程序段
Dim n As Integer, i As Integer, left As Integer, right As Integer, m As Integer
Dim a(1 To 10) As String, t As String, key As String n = 6
a(1) = "35": a(2) = "20": a(3) = "18": a(4) = "8": a(5) = "274": a(6) = "47" For i = 1 To n - 1
For j = n To i + 1 Step -1
If a(i) < a(j) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i
key = Text1.Text
left = 1: right = n
Do While left <= right
m = (left + right) \ 2
If a(m) = key Then Exit Do
If a(m) < key Then right = m - 1 Else left = m + 1
Loop
若在文本框 Text1 中輸入“212”，則程序運行結束后，m 的值為（　　）
A． 1 B．2 C．4 D．5
【答案】C
【知識點】常量、變量及變量的賦值；查找算法及程序實現
12．（2020·寧波模擬）有如下程序段
Function Search(m As Integer, pre As Integer) As Integer
Dim i As Integer
If m < 0 Then
Search = 0
ElseIf m = 0 Then
Search = 1
Else
For i = pre To m
Search = Search + Search(m - i, i) Next i
End If
End Function
Private Sub Command1_Click() Dim n As Integer
n = Val(Text1.Text) Label1.Caption = Search(n, 1)
End Sub
若在文本框 Text1 中輸入“4”，則標簽 Label1 中顯示的內容為（　?。?br/>A．2 B．4 C． 5 D．7
【答案】C
【知識點】過程與自定義函數
二、非選擇題（本大題共 4 小題，4+8+7+7，共 26 分）
13．（2020·寧波模擬）小王收集了“浙江省各地市2014、2015年人口統計表”的數據。并用excel軟件進行分析，部分界面如
圖a所示，請回答下列問題：
（1）區域 F3:G13 中的排名數據由 F3 單元格中使用 Rank 函數計算后進行自動填充獲得，則應在 F3 單元格中 輸入公式 。（Rank 函數是返回某數字在一列數字中相對于其他數值的大小排名的一個函數，如：Rank(A1,A1:A10)是計算A1在數據區域A1:A10中降序排序的名次）。
（2）根據圖 a 中數據制作如圖 b 所示的圖表，則創建圖表的數據區域是　 ??；
（3）小王想要找出浙東北地域人口增長率最高的 3 地市，下列操作可行的是 。
A．以“地域”等于“浙東北”進行篩選，再以“人口增長率(%)”為最大3項進行篩選，找到篩選出的地市。
B．復制區域A2:G8到新的工作表，然后在新工作表中以“人口增長率(%)”為最大3項進行篩選，找到篩選出的地市。
C．選取區域A2:G8，以“人口增長率排名”為關鍵字進行升序排序，找到排在前面的3個地市。
D．選取區域B3:G8，以“列E”為關鍵字進行降序排序，找到排在前面的3個地市。
【答案】（1）=RANK(D3,D$3:D$13)
（2）B2:D2,B9:D13
（3）B；D
【知識點】表格數據的處理與計算；數據分析
14．（2020·寧波模擬）地理老師為輔助教學，創作了“地理實驗”Flash動畫作品（如圖a所示），“背風坡”場景中，“云朵”從左移動到右，從山頂移動到山腳，同時，“云朵”從完全顯示變到最終消失。當動畫播放到該場景最后一幀時停止播放，點擊“返回”按鈕，轉到“主交互界面”第1幀并停止播放，請根據要求回答問題。
圖 a
圖 b
（1）在多媒體作品設計中，系統結構設計確定了一個作品的線路走向，之后要對各模塊進行具體設計。在 模塊設計時，需要注意的是　 　。（多選，填字母:A .屏幕布局合理規范/B .交互設計友好快速/C .音樂悅耳，色彩和諧/D .確定采用何種制作軟件）
（2）根據題意，“云”圖層中云朵的 alpha值的變化趨勢是　 ?。▎芜x，選填字
母：A .alpha 值從 100%變化到 0%/ B .alpha 值從 0%變化到 100% ）
（3）“返回”按鈕元件設計如圖 b所示，請判斷該按鈕的響應區域　 ?。▎芜x，選填字母：A .“文字”圖層確定 的區域 /B .“圓”圖層確定的區域 /C . “文字”圖層確定的區域+“圓”圖層確定的區域）。“三角”圖層“按下”幀中添圖b加了一段音樂，測試場景，當點擊按鈕時發現并不會播放音樂，請分析原因　 　；
（4）根據題意，“返回”按鈕上應添加的動作腳本　 　。
【答案】（1）ABC
（2）A
（3）A；音樂播放方式不是事件或開始
（4）On(Press){GotoAndStop(“主交互界面”,1)}
【知識點】多媒體作品的規劃和設計；元件的類型與應用；常用影片控制函數的應用
15．（2020·寧波模擬）小天使舞蹈隊編排一個舞蹈。該舞蹈要求人數為偶數，其中 1 位同學領舞，其站位始終不變，舞蹈隊形
變化時，其余同學按逆時針順序移動站位。我們把所有跳舞的同學從領舞開始依次編為數字 1～n（n 為偶 數），然后把隊伍編號按 U 形走向分成兩列，即得到第一次隊形。從第二次隊形開始，固定編號 1（領舞），
其余編號均按逆時針方向移動一個位置，即為該次隊形；以后各次隊形以此類推，直到除領舞外的所有同學
按逆時針轉完一圈為止。
例如，節目人數為 6 時隊形變化情況如下：
小嘉為此編寫了一個 VB 程序，功能如下：在文本框 Text1 中輸入跳舞的同學 n（n 為偶數），單擊“隊形
變化”按鈕 Command1，在列表框 list1 中輸出每次變化后的隊形。程序代碼如下，運行效果如圖所示。
Private Sub Command1_Click() Dim a(1 To 20) As String
Dim result As String, t As String
Dim n As Integer, i As Integer, j As Integer n = Val(Text1.Text)
For i = 1 To n
①
Next i
For i = 1 To
result = " "
List1.AddItem "第" & Str(i) & "次：" For j = 1 To n \ 2
result = a(j) + " " + a(n – j + 1 ) List1.AddItem result
Next j
②
For j = n To 3 Step -1 a(j) = a(j - 1)
Next j
a(2) = temp
Next i End Sub
請回答下列問題：
（1）語句 List1.AddItem result 中的 AddItem 是　 ?。▎芜x，填字母：A
.方法名/B .過程名/C .事件名）
（2）實現上述功能的 VB 代碼如下，請在劃線處填入合適代碼。
①　 　②　 　
（3）程序中加框處代碼有錯，請改正。
【答案】（1）A
（2）a(i) = Str(i)；temp = a(n)
（3）n-1
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；常量、變量及變量的賦值
16．（2020·寧波模擬）小明基于插入排序思想設計了一個改進的排序算法。輸入n個兩位正整數到數組a，判斷數組a中每個元素的奇偶性，若為奇數則將其放前插入適當位置，若為偶數則將其放后插入適當位置。排序完后數組a中所有奇數在前升序排序，偶數在后降序排序。程序代碼如下：
Dim a(1 To 100) As Integer, n As Integer
Function moving( start As Integer, finish As Integer, st As Integer)
'將元素 a(finish)插入到元素 a(start)和元素 a(start+st)之間
Dim i As Integer, k As Integer k = a(finish)
For i = finish - st To start Step -st a(i + st) = a(i)
Next i a(start) = k
End Function
Private Sub Command1_Click()
Dim head As Integer, end1 As Integer, i As Integer, ans As String
' 將待排序的數存儲在數組 a 的 a(1)至 a(n)中，并輸入元素個數 n，代碼略
head = 1: end1 = n + 1
Do While head < end1
If ① Then
For i = 1 To head - 1
If a(i) > a(head) Then Exit For
Next i
Call moving(i, head, 1)
head = ②
Else
For i = end1 To n
If a(i) < a(head) Then Exit For
Next i
Call moving( ③ )
End1 = end1 - 1
End If
Loop
For i = 1 To n
ans = ans + Str(a(i))
Next i
Text2.Text = ans End Sub 請回答下列問題：
（1）若輸入 n=5，元素 a(1)至 a(5)的初值為：11,12,13,14,15，運行程序后，輸出的結果為　 　；
（2）實現上述功能的 VB 程序如下，請在劃線處填入合適的代碼。
①　 ?、凇? 　③　 　
（3）如果輸入的 n 個數中有非正整數（數保證能在 Integer 型存儲），運行程序后的輸出　 　（選填： 能 / 不能）保證仍是奇數在前升序排序，偶數在后降序排序。
【答案】（1）11 13 15 14 12
（2）a(head) Mod 2 = 1；head+1；i - 1, head, -1
（3）能
【知識點】常量、變量及變量的賦值；排序算法及程序實現
1 / 1

展開更多......

收起↑