資源簡介

浙江省杭州市建人高復2021屆高三上學期信息技術第一次考試試卷
一、選擇題(本大題共12小題，每小題2分，共24分)
1．（2020高三上·杭州月考）下列關于信息與信息技術的說法，正確的是(　　)
A．書本屬于信息的載體，書本上的文字屬于信息
B．信息必須依附于某種載體，它不可以脫離它所反映的事物被存儲和傳播
C．由于電子計算機出現于近代，所以信息技術是近代才出現的
D．現代信息技術以微電子和光電子技術為基礎，以計算機和通信技術為支撐
2．（2020高三上·杭州月考）瀏覽某網頁的部分界面如圖所示，下列說法不正確的是(　　)
A．該網頁中包含超鏈接
B．當前訪問的URL為http：//news./world/
C．該網頁用HTML語言進行描述和編寫
D．當前訪問的頁面需用超文本傳輸協議進行傳輸
3．（2020高三上·杭州月考）下列有關Access數據庫和數據表的說法，正確的是(　　)
A．Access軟件屬于大型數據庫管理系統軟件
B．用戶訪問數據庫文件無權限限制
C．一個數據庫文件中字段名不能相問
D．數據表中的數據既相對獨立又有關聯
4．（2020高三上·杭州月考）有效位數為10位的十六進制數，轉換成二進制數后，該二進制有效位數不可能的是(　　)
A．41位 B．40位 C．39位 D．38位
5．（2020高三上·杭州月考）使用Photoshop軟件制作“漁舟唱晚"作品，部分界面如圖所示。下列說法正確的是(　　)
A．使用文字工具僅將“古詩”圖層中文字“散”設置為紅色
B．“白鷺”圖層被隱藏了。該圖層將不能添加圖層樣式
C．使用“自由變換”命令更改“小舟”圖層中圖像的大小
D．“背景”圖層不能被移動，也不可以刪除
6．（2020高三上·杭州月考）時長為30秒、800*600像素，16你色，25幀/秒的未經壓縮的AVI格式無聲視頻文件，使用視頻編輯軟件進行壓縮后，其部分配置屬性如圖所示，則其樂縮比約為：（　　）
A．6：1 B．80：1 C．160：1 D．1250：1
7．（2020高三上·杭州月考）有如下程序段
Dim i As Integer， s As String， n As Integer
i =2：s=""； n= 100
Do While i< = n
If Then s =s + Str(i)
i=i+1
Loop
用下列表達式替換方框處表達式后，不能實現原程序功能的是(　　)
A．iMod10<1 B．i/10=int(i/10)
C．i/10=i\10 D．imod2=0orimod5=0
8．（2020高三上·杭州月考）某算法的部分流程圖如圖所示，執行這部分流程后，輸出的c的值是(　　)
A．10 B．4 C．3 D．2
9．（2020高三上·杭州月考）有如下VB程序段：
'生成6個隨機正整數，依次存入數組元素a (1)到a (6)中
For i=1 To 2
For j=6 To i+1 Step-1
If a(j) Mod 2>a(j-1) Mod 2 Then
t=a(j)：a(j)=a(j-1)：a(j-1)=t
End If
Next j
Next i
執行上述程序段后，a (1)到a (6)各元素值依次為3，1，4，3，7，6，下列選項不是排序前a(1)到a(6)各元素值依次元素值的(　　)
A．3，1，4，3，6，7 B．4，3，1，3，6，7
C．3，4，1，3，6，7 D．4，3，1，3，7，6
10．（2020高三上·杭州月考）有如下VB程序段：
s =“312321”：m=0：c=“”：k=1
For i=1 To Len(s)
m=m+k
If k=1 Then c=Mid(s，n，1)+c Else c=c+ Mid(s，m，1)
If i Mod 3=0 Then k=-k：m=Len(s)+1
Next i
執行該程序段后。變量c的值是(　　)
A．”213321” B．”213123" C．”312123" D．”312213 "
11．（2020高三上·杭州月考）有如下VB程序段：
Const n = 50
Din a(1 To n) As Integer， b(1 To 10) As Integer， k As Integer
k=n\ 10
For i=1 To n
a(i) = Int (Rnd * 10) + 1
Next i
For i=1 To k
For j=I To n Step k
b(i) = b(i) + a(j)
Next j
Next i
執行該程序段后，b(1)~b(5)各元素值不可能的是(　　)
A．0，60，32，50，150 B．10，40，70，100，130
C．5，5，55，75，100 D．2，5，8，11，14
12．（2020高三上·杭州月考）某對分查找算法的VB程序段如下：
s=0；i=1：j=7
Do While i<=j
m=(i+j)\2
If Key = a(mi) Then Exit Do
If Key < a(m) Then j=m-1：s=3ks+2Else i=m+1：s=3ks
Loop
數組a(1)到a(10)的值依次為“2，6，7，15，20，24，27”，執行該程序段后，s的值為6，則key的值可能是(　　)
A．6或23 B．7或2 C．6或20 D．7或23
二、非選擇題 (本大題共4小題，4+8+7+7，共26分)
13．（2020高三上·杭州月考）小林用Excel軟件統計某校食堂就餐情況，如圖a所示。請回答下列問題：
（1）區域M4：M129的數據通過公式計算得到(其中0表示未用餐，1表示用餐)，在M4單元格中輸入計算學生未就餐次數的公式，再利用自動填充功能完成區域M5：MI 29的計算，則M4單元格中的公式為　 　(多選，填字母：A ．=SUM(C4；L4)；B ．=10-SM(C4；L4)；C ．=10-SM($C$4：$L$4)；D ．=OOUNTIF(C4；L4，"<=1")；E ．=OOUNTIF(C4；L4，"<1")；F ．=COLNTIF(C$4；L$4，"=0")
(提示： OOUNTIF麗數用于統計某個區域滿足條件的單元格個數。例如：=OOUNTIF (B4：B20，"<100")表示在數據區域B4：B20中統計數值小于100的單元格個數。)
（2）若將C129單元格數據被誤刪，則C130單元格中的數據將　 　 (單選，填字母：A .變大\B .變小\C .不變)。
（3）要將圖a數據按班級進行排序，則選擇的數據區域為　 　。
14．（2020高三上·杭州月考）創作多媒體作品，用Photoshop處理圖像，Flash 軟件進行合成，請回答下列問題。
（1）多媒體處理軟件Photoshop和Flash會將各元素分別放在不同的圖層中進行處理，制作完成后，依次將作品導出為BMIP和SWF格式文件。下列關于圖層的描述不恰當是　 　(多選，填字母：A .圖層都能方便設置圖層中圖像的大小、顏色和位置/B .導出的文件存儲容量都由圖層數量決定/C .放置圖像的圖層被隱藏后，導出都將不可見/D .導出的文件打開后圖層的參數信息都會丟失/E .圖層都可以存放文字和聲音素材。
（2）用Flash合成動畫界面如下圖所示，在當前狀態下，若要使動畫捕放的時間變為原來一倍，可將幀頻修改為　 　fps。
（3）若要制作從第41幀到第60幀的動畫補間，實現“云"實例向右下方移動并由完全顯示到完全透明的漸變動畫效果，進行$如下操作步驟，請完成劃線處的操作過程：
①在“云”圖層第60幀執行插入　 　 (選填：關鍵幀\空白關鍵幀\幀)：
②在“云”圖層第60幀將庫中“云”元件應用到舞臺，并放置在恰當的位置：　 　。
（4）測試影片時，單擊“空氣運動”按鈕，停止當前場景聲音的播放，然后跳轉到“空氣運動”場景第1幀繼續播放動畫，并播放“空氣運動”場景的音樂，則該“進入”按鈕的動作腳本是on
(press){　 　}。
15．（2020高三上·杭州月考）小王基于選擇排序算法編寫了一個VB程序，功能如下：數組a有n*n個元素，按列進行升序排序，例如6*6的數組，第一列將a(1)，a(7)，a(13)，a(19)，a(25)，a(31)進行排序。運行程序，在列表概List1中顯示n*n個數列單擊“排序"按鈕Command1，在列表概List2中顯示排序后的結果，程序運行界面如圖a所示。
圖a
（1）若要修改按鈕上文字“排序”字體的字號，可以修改Command1對象中的　 　屬性(單選。填字母：A . Caption /B . BackColor/ C . Font)
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Const n=6
Dina(1 To n*n)As Integer
Private Sub Form_Load() ' 產生n*n個數組元素，每行按n個數顯示在list1中
Din i As Integer， s As String
　 　
For i=2 To n* n
a(i)=Int(Rnd*90)+10
s =s+ Str(a(i))
If i Mod n = 0 Then List1.AddItem s： s =“”
Next i
End Sub
Private Sub Comnand1_ Click()
Dim i As Integer， j As Integer， k As Integer
For i = 1 To n*n
k= i
For j=　 　 To i+n step -n
If a(k) > a(j) Then k= j
Next j
If Then t= a(k)： a(k) = a(i)： a(i) =t
Next i
‘將排序后數組a的元素，每行按n個數顯示在list2中．
End Sub
（3）若要實現僅對偶數列進行升序排列，加框處的表達式應改為　 　。
16．（2020高三上·杭州月考）給定一個數組(有n個元素)，小李通過邊分段、邊合并的方式將n個數據處理成一個非降序數據段(a(1)≤a(2)≤a(3)≤……≤a(n))，每一輪數據處理方法如下：
1)查找相鄰兩個非降序數據段：在未處理的數據區域中，從前往后找出第一個最長非降序數據段。若該數據段后面沒有元素，則本輪處理完畢：否則在第1個數據段的后面，從前往后找出數組中第二個最長非降序數據段。
2)合并兩個數據段：借助數組tmp．將查找到的兩個相鄰數據段合并成一個非降序數據段，然后將合并后的數據依次存回到原數組中。
3)若數組中還有未處理的數據，則重復(1)(2)步驟。每一輪數據處理完畢后，重新從數組第1個數據開始進行下一輪處理。若檢測到某一輪沒有合并處理，則說明n個數據已構成非降序數據段，數據處理結束。
（1）根據上述描述，若數組各元素為“3，9，7，6，8，2，1，5，7，4”，則第一輪合并處理完成后，數組中的數據依次是：　 　(用“，”間隔)。
（2）實現上述功能的VB程序如下．請在劃線處填入合適代碼。
Const n = 10
Dim a(1 To n + 5) As Integer
Din tmp(1 To n + 5) As Integer
'讀取n個整數保存到數組a中，并在文本概Text1中顯示，代碼略。
Private Sub Comnand1_ Click()
Do While True
If Not Merge() Then Exit Do
'在列表概List1中輸出這一輪合并后的數據，代碼略。
Loop
End Sub
Function Position(low As Integer) As Integer
Din i As Int eger
For i=low To n-1
If 　 　 Then Exit For
Next i
Position = i
End Function
Function Merge() As Bool ean
Dim i As Integer， flag As Boolean， p1 As Integer， p2 As Integer
Dim low1 As Integer， high1 As Integer， high2 As Integer
flag = False： low1= 1
Do While low1 < n
high1 = Position(low1)
If high1 = n Then Exit Do Else flag = True
high2 = Position(high1 + 1)
p1=low1：p2=high1+1
i = low1
Do While 　 　
If p2>high2 Or p1 <= high1 And a(p1) < a(p2) Then
tmp(i)=a(p1)：p1=p1+1
Else
tmp(i)=a(p2)：p2=p2+1
End If
i =i+1
Loop
For i = low1 To high2
a(i) = tmp(i)
Next i
　 　
Loop
Merge = flag
End Function
答案解析部分
1．【答案】D
【知識點】信息及其特征；信息技術的概念與關鍵技術；信息表達方式與表達技術
2．【答案】B
【知識點】網絡協議；網頁、網站的概念與聯系；網頁標記語言及基本組成；計算機語言
3．【答案】D
【知識點】數據庫的分類與應用；數據表、字段、記錄的概念
4．【答案】A
【知識點】進制及數制轉換
5．【答案】A
【知識點】圖層及圖層的基本操作
6．【答案】C
【知識點】聲音、圖像、視頻編碼
7．【答案】D
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
8．【答案】C
【知識點】流程圖識讀
9．【答案】A
【知識點】排序算法及程序實現
10．【答案】B
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
11．【答案】C
【知識點】循環結構語句及程序實現
12．【答案】D
【知識點】查找算法及程序實現
13．【答案】（1）BE
（2）B
（3）A3:L129 或A3：M129
【知識點】表格數據的處理與計算
14．【答案】（1）BCE
（2）6
（3）空白關鍵幀；將云實例的alpha值變為0，并選第41幀設置動畫補間
（4）stopAllsounds();gotoandplay(“空氣運動”,1)
【知識點】圖層及圖層的基本操作；時間軸、幀、圖層、庫的概念及基本操作；常用影片控制函數的應用
15．【答案】（1）C
（2）s=str(a(1))；（i-1）mod n +31 或（i-1）mod n +1 +n*(n-1)
（3）i mod 2=0 and b(k)<>b(i)
【知識點】排序算法及程序實現
16．【答案】（1）3，7，9，2，6，8，1，4，5，7
（2）a(i) > a(i + 1)；p1 <= high1 Or p2 <= high2或i <= high2；i = high2 + 1
【知識點】過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
1 / 1浙江省杭州市建人高復2021屆高三上學期信息技術第一次考試試卷
一、選擇題(本大題共12小題，每小題2分，共24分)
1．（2020高三上·杭州月考）下列關于信息與信息技術的說法，正確的是(　　)
A．書本屬于信息的載體，書本上的文字屬于信息
B．信息必須依附于某種載體，它不可以脫離它所反映的事物被存儲和傳播
C．由于電子計算機出現于近代，所以信息技術是近代才出現的
D．現代信息技術以微電子和光電子技術為基礎，以計算機和通信技術為支撐
【答案】D
【知識點】信息及其特征；信息技術的概念與關鍵技術；信息表達方式與表達技術
2．（2020高三上·杭州月考）瀏覽某網頁的部分界面如圖所示，下列說法不正確的是(　　)
A．該網頁中包含超鏈接
B．當前訪問的URL為http：//news./world/
C．該網頁用HTML語言進行描述和編寫
D．當前訪問的頁面需用超文本傳輸協議進行傳輸
【答案】B
【知識點】網絡協議；網頁、網站的概念與聯系；網頁標記語言及基本組成；計算機語言
3．（2020高三上·杭州月考）下列有關Access數據庫和數據表的說法，正確的是(　　)
A．Access軟件屬于大型數據庫管理系統軟件
B．用戶訪問數據庫文件無權限限制
C．一個數據庫文件中字段名不能相問
D．數據表中的數據既相對獨立又有關聯
【答案】D
【知識點】數據庫的分類與應用；數據表、字段、記錄的概念
4．（2020高三上·杭州月考）有效位數為10位的十六進制數，轉換成二進制數后，該二進制有效位數不可能的是(　　)
A．41位 B．40位 C．39位 D．38位
【答案】A
【知識點】進制及數制轉換
5．（2020高三上·杭州月考）使用Photoshop軟件制作“漁舟唱晚"作品，部分界面如圖所示。下列說法正確的是(　　)
A．使用文字工具僅將“古詩”圖層中文字“散”設置為紅色
B．“白鷺”圖層被隱藏了。該圖層將不能添加圖層樣式
C．使用“自由變換”命令更改“小舟”圖層中圖像的大小
D．“背景”圖層不能被移動，也不可以刪除
【答案】A
【知識點】圖層及圖層的基本操作
6．（2020高三上·杭州月考）時長為30秒、800*600像素，16你色，25幀/秒的未經壓縮的AVI格式無聲視頻文件，使用視頻編輯軟件進行壓縮后，其部分配置屬性如圖所示，則其樂縮比約為：（　　）
A．6：1 B．80：1 C．160：1 D．1250：1
【答案】C
【知識點】聲音、圖像、視頻編碼
7．（2020高三上·杭州月考）有如下程序段
Dim i As Integer， s As String， n As Integer
i =2：s=""； n= 100
Do While i< = n
If Then s =s + Str(i)
i=i+1
Loop
用下列表達式替換方框處表達式后，不能實現原程序功能的是(　　)
A．iMod10<1 B．i/10=int(i/10)
C．i/10=i\10 D．imod2=0orimod5=0
【答案】D
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
8．（2020高三上·杭州月考）某算法的部分流程圖如圖所示，執行這部分流程后，輸出的c的值是(　　)
A．10 B．4 C．3 D．2
【答案】C
【知識點】流程圖識讀
9．（2020高三上·杭州月考）有如下VB程序段：
'生成6個隨機正整數，依次存入數組元素a (1)到a (6)中
For i=1 To 2
For j=6 To i+1 Step-1
If a(j) Mod 2>a(j-1) Mod 2 Then
t=a(j)：a(j)=a(j-1)：a(j-1)=t
End If
Next j
Next i
執行上述程序段后，a (1)到a (6)各元素值依次為3，1，4，3，7，6，下列選項不是排序前a(1)到a(6)各元素值依次元素值的(　　)
A．3，1，4，3，6，7 B．4，3，1，3，6，7
C．3，4，1，3，6，7 D．4，3，1，3，7，6
【答案】A
【知識點】排序算法及程序實現
10．（2020高三上·杭州月考）有如下VB程序段：
s =“312321”：m=0：c=“”：k=1
For i=1 To Len(s)
m=m+k
If k=1 Then c=Mid(s，n，1)+c Else c=c+ Mid(s，m，1)
If i Mod 3=0 Then k=-k：m=Len(s)+1
Next i
執行該程序段后。變量c的值是(　　)
A．”213321” B．”213123" C．”312123" D．”312213 "
【答案】B
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
11．（2020高三上·杭州月考）有如下VB程序段：
Const n = 50
Din a(1 To n) As Integer， b(1 To 10) As Integer， k As Integer
k=n\ 10
For i=1 To n
a(i) = Int (Rnd * 10) + 1
Next i
For i=1 To k
For j=I To n Step k
b(i) = b(i) + a(j)
Next j
Next i
執行該程序段后，b(1)~b(5)各元素值不可能的是(　　)
A．0，60，32，50，150 B．10，40，70，100，130
C．5，5，55，75，100 D．2，5，8，11，14
【答案】C
【知識點】循環結構語句及程序實現
12．（2020高三上·杭州月考）某對分查找算法的VB程序段如下：
s=0；i=1：j=7
Do While i<=j
m=(i+j)\2
If Key = a(mi) Then Exit Do
If Key < a(m) Then j=m-1：s=3ks+2Else i=m+1：s=3ks
Loop
數組a(1)到a(10)的值依次為“2，6，7，15，20，24，27”，執行該程序段后，s的值為6，則key的值可能是(　　)
A．6或23 B．7或2 C．6或20 D．7或23
【答案】D
【知識點】查找算法及程序實現
二、非選擇題 (本大題共4小題，4+8+7+7，共26分)
13．（2020高三上·杭州月考）小林用Excel軟件統計某校食堂就餐情況，如圖a所示。請回答下列問題：
（1）區域M4：M129的數據通過公式計算得到(其中0表示未用餐，1表示用餐)，在M4單元格中輸入計算學生未就餐次數的公式，再利用自動填充功能完成區域M5：MI 29的計算，則M4單元格中的公式為　 　(多選，填字母：A ．=SUM(C4；L4)；B ．=10-SM(C4；L4)；C ．=10-SM($C$4：$L$4)；D ．=OOUNTIF(C4；L4，"<=1")；E ．=OOUNTIF(C4；L4，"<1")；F ．=COLNTIF(C$4；L$4，"=0")
(提示： OOUNTIF麗數用于統計某個區域滿足條件的單元格個數。例如：=OOUNTIF (B4：B20，"<100")表示在數據區域B4：B20中統計數值小于100的單元格個數。)
（2）若將C129單元格數據被誤刪，則C130單元格中的數據將　 　 (單選，填字母：A .變大\B .變小\C .不變)。
（3）要將圖a數據按班級進行排序，則選擇的數據區域為　 　。
【答案】（1）BE
（2）B
（3）A3:L129 或A3：M129
【知識點】表格數據的處理與計算
14．（2020高三上·杭州月考）創作多媒體作品，用Photoshop處理圖像，Flash 軟件進行合成，請回答下列問題。
（1）多媒體處理軟件Photoshop和Flash會將各元素分別放在不同的圖層中進行處理，制作完成后，依次將作品導出為BMIP和SWF格式文件。下列關于圖層的描述不恰當是　 　(多選，填字母：A .圖層都能方便設置圖層中圖像的大小、顏色和位置/B .導出的文件存儲容量都由圖層數量決定/C .放置圖像的圖層被隱藏后，導出都將不可見/D .導出的文件打開后圖層的參數信息都會丟失/E .圖層都可以存放文字和聲音素材。
（2）用Flash合成動畫界面如下圖所示，在當前狀態下，若要使動畫捕放的時間變為原來一倍，可將幀頻修改為　 　fps。
（3）若要制作從第41幀到第60幀的動畫補間，實現“云"實例向右下方移動并由完全顯示到完全透明的漸變動畫效果，進行$如下操作步驟，請完成劃線處的操作過程：
①在“云”圖層第60幀執行插入　 　 (選填：關鍵幀\空白關鍵幀\幀)：
②在“云”圖層第60幀將庫中“云”元件應用到舞臺，并放置在恰當的位置：　 　。
（4）測試影片時，單擊“空氣運動”按鈕，停止當前場景聲音的播放，然后跳轉到“空氣運動”場景第1幀繼續播放動畫，并播放“空氣運動”場景的音樂，則該“進入”按鈕的動作腳本是on
(press){　 　}。
【答案】（1）BCE
（2）6
（3）空白關鍵幀；將云實例的alpha值變為0，并選第41幀設置動畫補間
（4）stopAllsounds();gotoandplay(“空氣運動”,1)
【知識點】圖層及圖層的基本操作；時間軸、幀、圖層、庫的概念及基本操作；常用影片控制函數的應用
15．（2020高三上·杭州月考）小王基于選擇排序算法編寫了一個VB程序，功能如下：數組a有n*n個元素，按列進行升序排序，例如6*6的數組，第一列將a(1)，a(7)，a(13)，a(19)，a(25)，a(31)進行排序。運行程序，在列表概List1中顯示n*n個數列單擊“排序"按鈕Command1，在列表概List2中顯示排序后的結果，程序運行界面如圖a所示。
圖a
（1）若要修改按鈕上文字“排序”字體的字號，可以修改Command1對象中的　 　屬性(單選。填字母：A . Caption /B . BackColor/ C . Font)
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Const n=6
Dina(1 To n*n)As Integer
Private Sub Form_Load() ' 產生n*n個數組元素，每行按n個數顯示在list1中
Din i As Integer， s As String
　 　
For i=2 To n* n
a(i)=Int(Rnd*90)+10
s =s+ Str(a(i))
If i Mod n = 0 Then List1.AddItem s： s =“”
Next i
End Sub
Private Sub Comnand1_ Click()
Dim i As Integer， j As Integer， k As Integer
For i = 1 To n*n
k= i
For j=　 　 To i+n step -n
If a(k) > a(j) Then k= j
Next j
If Then t= a(k)： a(k) = a(i)： a(i) =t
Next i
‘將排序后數組a的元素，每行按n個數顯示在list2中．
End Sub
（3）若要實現僅對偶數列進行升序排列，加框處的表達式應改為　 　。
【答案】（1）C
（2）s=str(a(1))；（i-1）mod n +31 或（i-1）mod n +1 +n*(n-1)
（3）i mod 2=0 and b(k)<>b(i)
【知識點】排序算法及程序實現
16．（2020高三上·杭州月考）給定一個數組(有n個元素)，小李通過邊分段、邊合并的方式將n個數據處理成一個非降序數據段(a(1)≤a(2)≤a(3)≤……≤a(n))，每一輪數據處理方法如下：
1)查找相鄰兩個非降序數據段：在未處理的數據區域中，從前往后找出第一個最長非降序數據段。若該數據段后面沒有元素，則本輪處理完畢：否則在第1個數據段的后面，從前往后找出數組中第二個最長非降序數據段。
2)合并兩個數據段：借助數組tmp．將查找到的兩個相鄰數據段合并成一個非降序數據段，然后將合并后的數據依次存回到原數組中。
3)若數組中還有未處理的數據，則重復(1)(2)步驟。每一輪數據處理完畢后，重新從數組第1個數據開始進行下一輪處理。若檢測到某一輪沒有合并處理，則說明n個數據已構成非降序數據段，數據處理結束。
（1）根據上述描述，若數組各元素為“3，9，7，6，8，2，1，5，7，4”，則第一輪合并處理完成后，數組中的數據依次是：　 　(用“，”間隔)。
（2）實現上述功能的VB程序如下．請在劃線處填入合適代碼。
Const n = 10
Dim a(1 To n + 5) As Integer
Din tmp(1 To n + 5) As Integer
'讀取n個整數保存到數組a中，并在文本概Text1中顯示，代碼略。
Private Sub Comnand1_ Click()
Do While True
If Not Merge() Then Exit Do
'在列表概List1中輸出這一輪合并后的數據，代碼略。
Loop
End Sub
Function Position(low As Integer) As Integer
Din i As Int eger
For i=low To n-1
If 　 　 Then Exit For
Next i
Position = i
End Function
Function Merge() As Bool ean
Dim i As Integer， flag As Boolean， p1 As Integer， p2 As Integer
Dim low1 As Integer， high1 As Integer， high2 As Integer
flag = False： low1= 1
Do While low1 < n
high1 = Position(low1)
If high1 = n Then Exit Do Else flag = True
high2 = Position(high1 + 1)
p1=low1：p2=high1+1
i = low1
Do While 　 　
If p2>high2 Or p1 <= high1 And a(p1) < a(p2) Then
tmp(i)=a(p1)：p1=p1+1
Else
tmp(i)=a(p2)：p2=p2+1
End If
i =i+1
Loop
For i = low1 To high2
a(i) = tmp(i)
Next i
　 　
Loop
Merge = flag
End Function
【答案】（1）3，7，9，2，6，8，1，4，5，7
（2）a(i) > a(i + 1)；p1 <= high1 Or p2 <= high2或i <= high2；i = high2 + 1
【知識點】過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
1 / 1

展開更多......

收起↑