資源簡介

浙江省杭州市高級中學2020屆高三信息技術5月仿真模擬試卷
一、選擇題（本大題共12小題，每小題2分，共24分，每小題列出的四個備選項中只有一個是符合題目要求的。）
1．（2020·杭州模擬）下列說法正確的是（　　）
A．信息可以脫離載體被存儲、保存和傳播
B．微信朋友圈分享身邊趣聞是一種比較常見的信息表達方式
C．微電子技術、光電子技術、廣播電視技術、計算機網絡都是屬于現代信息技術
D．在淘寶購物頁面中有貨品的好評率，這屬于統計評價
【答案】D
【知識點】信息及其特征；信息技術的概念與關鍵技術；因特網信息資源評價；信息表達方式與表達技術
2．（2020·杭州模擬）某天小王老師從商場開車回學校的途中發生了以下幾件事：
①在開出商場時，出口處的停車閘識別了她的車牌號，并顯示相應的停車費。
②她使用微信掃描二維碼的方式支付停車費
③在出發前，她不熟悉回去的路，于是用百度地圖上搜索了回程路線
④在行車途中她想使用手機，喊了一聲“嘿，Siri”，手機助手回應“你好，我在這兒”
⑤紅綠燈停車時，她聽到廣播里一首歌，不知道叫什么歌名，于是使用“網易云音樂”軟件中“聽歌識曲”的功能。5秒鐘后，軟件內顯示出了該歌曲的名稱
⑥開到校門口，門衛大伯看到她的車，使用紅外線傳感遙控器，將學校的升降閘門打開，她安全地回到了學校。
上述過程中，哪幾件事情運用到了人工智能技術（　　）
A．①②⑤ B．①④⑤ C．②③⑤ D．②③⑥
【答案】B
【知識點】人工智能的應用
3．（2020·杭州模擬）使用Access軟件打開數據庫，部分界面如圖所示。下列說法正確的是 （　　）
圖a
圖b
A．該數據庫能為多個用戶共享、與應用程序彼此獨立
B．當前狀態下，如果添加新紀錄，ID字段值一定為6
C．可以刪除所有記錄和字段，使該表成為一張空表
D．無論是圖a還是圖b，兩個視圖中都無法刪除ID字段，因為該字段為主鍵
【答案】A
【知識點】數據庫、數據庫系統及其特征；數據表、字段、記錄的編輯
4．（2020·杭州模擬）下列關于計算機信息編碼的描述，正確的是（　　）
A．8位二進制數的最大值是128D
B．處理碼是計算機內部用于信息處理的漢字編碼，也稱為交換碼
C．數據具有冗余，所以可以被壓縮，壓縮是編碼的過程
D．16色位圖的每個像素必須用16位二進制數進行編碼
【答案】C
【知識點】信息的編碼；進制及數制轉換
5．（2020·杭州模擬）使用Photoshop軟件制作“抗疫”宣傳圖片,部分界面如圖所示：
下列說法正確的是（　　）
A．“齊心抗疫情”圖層設置了“投影”和“內陰影”效果，僅投影效果可見
B．左下角數值“50%”修改為“100%”，則圖像大小變為原來的2倍
C．選中“中國”兩字，用文字工具可以僅將“中國”兩字變大
D．選擇“背景”圖層，將不透明改成0%，并以PNG格式存儲可以得到背景透明的圖像文件
【答案】C
【知識點】圖層及圖層的基本操作；聲音、圖像、視頻編碼
6．（2020·杭州模擬）未經壓縮的BMP圖像文件a.bmp和b.bmp，a.bmp的尺寸1024*768，顏色類別為RGB/8，b.bmp的尺寸768*512，顏色類別為16色，則圖像文件a.bmp與b.bmp存儲容量之比約為（　　）
A．4：1 B．12：1 C．16：1 D．32 ： 1
【答案】B
【知識點】聲音、圖像、視頻編碼
7．（2020·杭州模擬）某算法的部分流程圖如圖所示，以下說法正確的是（　　）
A．該流程執行后，變量i的值是4
B．該流程執行后，變量f的值是true
C．語句“i mod 3 = 0 ”執行的次數為2次
D．語句“i<-i+1”和“f<- not f”執行的次數為3次
【答案】B
【知識點】常量、變量及變量的賦值；流程圖識讀
8．（2020·杭州模擬）下列VB表達式的值為6的是（　　）
A．36 Mod 30 \ 3 B．Val("3+3")
C．abs(Int(-5.34))+1 D．mid(“2016remember”,4,1)
【答案】A
【知識點】運算符、基本運算與表達式
【解析】【解答】選項A：36 Mod 30 \ 3=36 Mod 10=6；選項B：Val("3+3")=3；選項C：abs(Int(-5.34))+1=abs(-6)+1=6+1=7；選項D：mid("2016remember",4,1)=“6”。故答案選A。
【分析】本題考查VB表達式的運算。Val(X) --將數字字符串轉換為數值，abs(　　)是求一個數的絕對值，Mid (　　)函數是從文本字符串中指定的開始位置起返回指定長度的字符。
9．（2020·杭州模擬）關于排序和查找，以下說法正確的是（　　）
A．冒泡排序算法中，數據的交換次數與比較次數一定相同
B．選擇排序算法中，若某一趟排序中數組元素沒有發生過交換，則數組已有序
C．有10個數據的數組，用順序查找算法查找某個數，查找不成功的時，查找次數為11次
D．有10個數據的有序數組，利用二分查找算法查找某個數，最多的查找次數為4次
【答案】D
【知識點】排序算法及程序實現；查找算法及程序實現
10．（2020·杭州模擬）有如下 VB 程序段：
Dim s As String, ch As String
Dim i As Integer, t As Integer
s = Text1.Text : t = 0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch <> "," Then t = t * 2 + Val(ch)
Text2.Text = Text2.Text + Str(t)
Next i
執行該程序，當文本框text1中輸入了“11,10”時，文本框text2中輸出的是（　　）
A．3 2 B．1 3 7 14
C．1 3 3 7 14 D．1 3 3 7 14 14
【答案】C
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值
11．（2020·杭州模擬）有如下VB程序段如下:
Dim s As String, t As String
s = Text1.Text
For i = 1 To Len(s) - 1
For j = Len(s) To i + 1 Step -1
If Mid(s, j, 1) + Mid(s, j - 1, 1) > Mid(s, j - 1, 1) + Mid(s, j, 1) Then
If j>2 then s = Mid(s, 1, j - 2)
s=s + Mid(s, j, 1) + Mid(s, j - 1, 1)
If jEnd If
Next j
t = t + Mid(s, i, 1)
Next i
Text2.Text = t
執行該程序，當文本框text1中輸入了“b52Ba”時，文本框text2中輸出的是（　　）
A．25Bab B．baB52 C．baB5 D．25Ba
【答案】C
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值
12．（2020·杭州模擬）某對分查找算法的VB程序段如下:
Key = Int(Rnd * 30) * 2 + 41
s = 0: i = 1: j = 10
Do While i <= j
m = (i + j) \ 2
If Key > a(m) Then
i = m + 1: s = 3 * s + 2
Else
j = m - 1: s = 3 * s
End If
Loop
Text1.Text = s
數組a(1)到a(10)的值依次為“2,13,24,31,35,44,45,47,61,101”，執行該程序段后，s的值不可能為（　　）
A．8 B．18 C．60 D．78
【答案】A
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2020·杭州模擬）小王用Excel軟件制作了一張2019年家庭各月份用電統計表，如圖所示。
請回答下列問題：
（1）“執行峰谷電”的電價是根據高峰、低谷不同的電價進行計算。通過I3單元格的公式，對I4：I14進行自動填充，則I7單元格中顯示結果是　 　（單元，填字母：A .53.4 /B .0.0 /C .#REF!
/D .#DIV/0!）
（2）若要正確計算“執行峰谷電”列的數據，可以對I3單元格中的公式進行修改，并對I4:I14進行自動填充，則I3單元格的公式是　 　
（3）下面描述正確的是____________（多選，填字母）
A．C列內容顯示為“#####”，其可能的原因是列寬不足
B．若要對第三季度（七、八、九月份）的數據以“執行峰谷電”為主要關鍵字進行降序排序，則排序時選擇的數據區域是B2：I2，B9：I11
C．若要篩選出“執行峰谷電”和“不執行峰谷電”差值最小的月份，可以以“執行峰谷電”為最大1項、“不執行峰谷電”為最小1項進行篩選
D．若將M3：M5單元格的數值小數位數設置為0，則H3：I14中顯示的值不會發生變化
【答案】（1）B
（2）=E3*$M$3+F3*$M$4
（3）A；D
【知識點】表格數據的基本操作；表格數據的處理與計算
14．（2020·杭州模擬）用Flash軟件打開“致敬逆行者.fla”文件，編輯界面如圖a所示。
圖a
請回答下列問題：
（1）創作多媒體作品需要進行需求分析和規劃設計。下列屬于需求分析的是　 　（多選，填字母：A ．確定作品的結構類型為演示型/ B ．明確作品的工作流程/ C ．確定獲取原始素材的方式/ D ．確定作品的發布方式/ E ．設計作品的三個模塊的交互方式）
（2）文件中導入的聲音設置圖b所示，動畫播放一遍停止時，音樂播放時長是　 　秒。
（3）將動畫GIF文件“飛奔．gif”導入庫中直接得到一個影片剪輯元件，則該元件中動畫的動畫類型是　 　。（選填，填字母，A ．逐幀動畫/B ．形狀補間動畫/C ．動畫補間動畫）
圖b
（4）為了使該場景動畫播放到最后一幀自動退出動畫，可以在按鈕圖層的最后一幀添加動作腳本　 　
（5）測試該場景時，“英雄”圖層內容在播放完第30幀后消失，為了使該圖層第30幀內容再延續2秒，下列操作可行的是______。（多選題）
A．選中“英雄”圖層第31幀執行“清除關鍵幀”操作
B．將“英雄”圖層第50幀執行“插入關鍵幀”操作
C．刪除“英雄”圖層第31幀，在第50幀執行“插入幀”操作
D．將“英雄”圖層第31幀移動至50幀，在第50幀執行“清除關鍵幀”操作
E．選中“英雄”圖層第50幀執行“插入幀”操作，在第31幀執行“清除關鍵幀”操作
【答案】（1）AD
（2）4
（3）A
（4）fscommand(“quit”)
（5）C；D；E
【知識點】多媒體作品的規劃和設計；時間軸、幀、圖層、庫的概念及基本操作；動畫的實現；常用影片控制函數的應用
15．（2020·杭州模擬）某程序功能如下：將自然數從1到100按某種方式排列起來，單擊“輸出”按鈕Command1，在列表框List1中顯示排列后的數表，運行結果如圖所示。
（1）下列對象中不具有Caption屬性的是　 　（單選，填字母：mand1 /B .Form1 /C .List1）
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Private
Sub Command1_Click()
Const
n = 10
Dim
i As Integer, j As Integer
Dim
d(0 To 100) As Integer
For
i = 1 To n
For j = 1 To n
If i = 1 Then
d(j) = j ^ 2
Else
If j = 1 Then
①
d((i - 1) * n + j) = d((i - 2) * n + j) - 1
Else
②
End If
End If
Next j
Next i
‘在列表框List1中按每行10個輸出數組d的所有元素，代碼略
End Sub
①　 　②　 　
（3）程序中加框處代碼有錯，請改正。
【答案】（1）C
（2）d((i - 1) * n + 1) = (i - 1) ^ 2 + 1；d((i - 1) * n + j) = d((i - 1) * n + j - 1) + 1
（3）ElseIf j > i Then
【知識點】常見數據類型、數組；常量、變量及變量的賦值
16．（2020·杭州模擬）某地為各個村之間建立灌溉管道，現需實現用最短的管道距離使得所有村莊可以連通。如圖a所示，[V1,V2,V3,V4,V5]每個節點表示村莊，兩個節點之間的數值表示兩個村莊之間的邊距離。
圖c
算法思路如下：
①首先按邊距離升序排序；
②找到邊距離最小值1，以及相應的兩個節點V1 和V3；
③以V1 或V3 作為起點，搜尋連接新節點且距離最小的邊，發現(V1,V4)邊最小為4；
④以V1、V3、V4 作為起點，搜尋連接新節點且距離最小的邊，發現(V4,V5)邊最小為2；
⑤以V1、V3、V4、V5 作為起點，搜尋連接新節點且距離最小的邊，發現(V2,V5)邊最小為3；因此可知，連通5個村莊的最短管道距離是1+4+2+3=10，效果如圖b所示。
現設計了如下VB 程序，界面如圖c所示，請回答下列問題：
（1）V2到V5的邊距離若為6，則連通5個村莊的最短管道距離是　 　。
（2）請在劃線處填入合適的代碼。
Const n = 5 '村莊數
Const m = 8 '管道線路數
Dim pointAB(1 To 2 * m)
As Integer '存儲連接的兩個村莊節點
Dim length(1 To m) As Integer
'存儲兩個村莊之間的距離
Dim res(1 To 100) As Integer
'存儲管道規劃結果
Private Sub Form_Load()
'村莊節點數據存儲在pointAB數組，兩個村莊的距離數據存儲在length 數組。
'如圖c 所示，(V1,V3)邊距離為1，則pointAB(1)=1，pointAB(2)=3，length(1)=1；
(V1,V2)邊距離為6，則pointAB(3)=1，pointAB(4)=2，length(2)=6；其他依次類推，代碼略。
End Sub
Function check(x As Integer)
As Integer '判斷x 節點是否已在規劃中
check = 0
For i = 1 To 100
If x = res(i) Then check
= 1: Exit Function
Next i
End Function
Private Sub Command1_Click()
Dim i As Integer, j As
Integer, tmp As Integer
Dim total As Integer, sum
As Integer
For i = 1 To m - 1
For j = m To i + 1 Step
-1
If ① Then
tmp= pointAB(2 * j - 1)
:pointAB(2 * j - 1) = pointAB(2 * j - 3) :pointAB(2 * j - 3) = tmp
tmp = pointAB(2 * j) :
pointAB(2 * j) = pointAB(2 * j - 2) :pointAB(2 * j - 2) = tmp
tmp = length(j): length(j)
= length(j - 1): length(j - 1) = tmp
End If
Next j
Next i
'開始規劃管道
total = 1
res(1) = pointAB(1): res(2)
= pointAB(2)
sum = length(1)
Do While total < ②
For i = 2 To m
If ③ Then
total = total + 1
res(2 * total - 1) = pointAB(2
* i - 1)
res(2 * total) = pointAB(2
* i)
sum = sum + length(i)
Exit For
End If
Next i
Loop
'輸出連通結果res 以及管道總長度sum，代碼略。
End Sub
①　 　②　 　③　 　
【答案】（1）12
（2）length(j)【知識點】常量、變量及變量的賦值；過程與自定義函數；排序算法及程序實現
1 / 1浙江省杭州市高級中學2020屆高三信息技術5月仿真模擬試卷
一、選擇題（本大題共12小題，每小題2分，共24分，每小題列出的四個備選項中只有一個是符合題目要求的。）
1．（2020·杭州模擬）下列說法正確的是（　　）
A．信息可以脫離載體被存儲、保存和傳播
B．微信朋友圈分享身邊趣聞是一種比較常見的信息表達方式
C．微電子技術、光電子技術、廣播電視技術、計算機網絡都是屬于現代信息技術
D．在淘寶購物頁面中有貨品的好評率，這屬于統計評價
2．（2020·杭州模擬）某天小王老師從商場開車回學校的途中發生了以下幾件事：
①在開出商場時，出口處的停車閘識別了她的車牌號，并顯示相應的停車費。
②她使用微信掃描二維碼的方式支付停車費
③在出發前，她不熟悉回去的路，于是用百度地圖上搜索了回程路線
④在行車途中她想使用手機，喊了一聲“嘿，Siri”，手機助手回應“你好，我在這兒”
⑤紅綠燈停車時，她聽到廣播里一首歌，不知道叫什么歌名，于是使用“網易云音樂”軟件中“聽歌識曲”的功能。5秒鐘后，軟件內顯示出了該歌曲的名稱
⑥開到校門口，門衛大伯看到她的車，使用紅外線傳感遙控器，將學校的升降閘門打開，她安全地回到了學校。
上述過程中，哪幾件事情運用到了人工智能技術（　　）
A．①②⑤ B．①④⑤ C．②③⑤ D．②③⑥
3．（2020·杭州模擬）使用Access軟件打開數據庫，部分界面如圖所示。下列說法正確的是 （　　）
圖a
圖b
A．該數據庫能為多個用戶共享、與應用程序彼此獨立
B．當前狀態下，如果添加新紀錄，ID字段值一定為6
C．可以刪除所有記錄和字段，使該表成為一張空表
D．無論是圖a還是圖b，兩個視圖中都無法刪除ID字段，因為該字段為主鍵
4．（2020·杭州模擬）下列關于計算機信息編碼的描述，正確的是（　　）
A．8位二進制數的最大值是128D
B．處理碼是計算機內部用于信息處理的漢字編碼，也稱為交換碼
C．數據具有冗余，所以可以被壓縮，壓縮是編碼的過程
D．16色位圖的每個像素必須用16位二進制數進行編碼
5．（2020·杭州模擬）使用Photoshop軟件制作“抗疫”宣傳圖片,部分界面如圖所示：
下列說法正確的是（　　）
A．“齊心抗疫情”圖層設置了“投影”和“內陰影”效果，僅投影效果可見
B．左下角數值“50%”修改為“100%”，則圖像大小變為原來的2倍
C．選中“中國”兩字，用文字工具可以僅將“中國”兩字變大
D．選擇“背景”圖層，將不透明改成0%，并以PNG格式存儲可以得到背景透明的圖像文件
6．（2020·杭州模擬）未經壓縮的BMP圖像文件a.bmp和b.bmp，a.bmp的尺寸1024*768，顏色類別為RGB/8，b.bmp的尺寸768*512，顏色類別為16色，則圖像文件a.bmp與b.bmp存儲容量之比約為（　　）
A．4：1 B．12：1 C．16：1 D．32 ： 1
7．（2020·杭州模擬）某算法的部分流程圖如圖所示，以下說法正確的是（　　）
A．該流程執行后，變量i的值是4
B．該流程執行后，變量f的值是true
C．語句“i mod 3 = 0 ”執行的次數為2次
D．語句“i<-i+1”和“f<- not f”執行的次數為3次
8．（2020·杭州模擬）下列VB表達式的值為6的是（　　）
A．36 Mod 30 \ 3 B．Val("3+3")
C．abs(Int(-5.34))+1 D．mid(“2016remember”,4,1)
9．（2020·杭州模擬）關于排序和查找，以下說法正確的是（　　）
A．冒泡排序算法中，數據的交換次數與比較次數一定相同
B．選擇排序算法中，若某一趟排序中數組元素沒有發生過交換，則數組已有序
C．有10個數據的數組，用順序查找算法查找某個數，查找不成功的時，查找次數為11次
D．有10個數據的有序數組，利用二分查找算法查找某個數，最多的查找次數為4次
10．（2020·杭州模擬）有如下 VB 程序段：
Dim s As String, ch As String
Dim i As Integer, t As Integer
s = Text1.Text : t = 0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch <> "," Then t = t * 2 + Val(ch)
Text2.Text = Text2.Text + Str(t)
Next i
執行該程序，當文本框text1中輸入了“11,10”時，文本框text2中輸出的是（　　）
A．3 2 B．1 3 7 14
C．1 3 3 7 14 D．1 3 3 7 14 14
11．（2020·杭州模擬）有如下VB程序段如下:
Dim s As String, t As String
s = Text1.Text
For i = 1 To Len(s) - 1
For j = Len(s) To i + 1 Step -1
If Mid(s, j, 1) + Mid(s, j - 1, 1) > Mid(s, j - 1, 1) + Mid(s, j, 1) Then
If j>2 then s = Mid(s, 1, j - 2)
s=s + Mid(s, j, 1) + Mid(s, j - 1, 1)
If jEnd If
Next j
t = t + Mid(s, i, 1)
Next i
Text2.Text = t
執行該程序，當文本框text1中輸入了“b52Ba”時，文本框text2中輸出的是（　　）
A．25Bab B．baB52 C．baB5 D．25Ba
12．（2020·杭州模擬）某對分查找算法的VB程序段如下:
Key = Int(Rnd * 30) * 2 + 41
s = 0: i = 1: j = 10
Do While i <= j
m = (i + j) \ 2
If Key > a(m) Then
i = m + 1: s = 3 * s + 2
Else
j = m - 1: s = 3 * s
End If
Loop
Text1.Text = s
數組a(1)到a(10)的值依次為“2,13,24,31,35,44,45,47,61,101”，執行該程序段后，s的值不可能為（　　）
A．8 B．18 C．60 D．78
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2020·杭州模擬）小王用Excel軟件制作了一張2019年家庭各月份用電統計表，如圖所示。
請回答下列問題：
（1）“執行峰谷電”的電價是根據高峰、低谷不同的電價進行計算。通過I3單元格的公式，對I4：I14進行自動填充，則I7單元格中顯示結果是　 　（單元，填字母：A .53.4 /B .0.0 /C .#REF!
/D .#DIV/0!）
（2）若要正確計算“執行峰谷電”列的數據，可以對I3單元格中的公式進行修改，并對I4:I14進行自動填充，則I3單元格的公式是　 　
（3）下面描述正確的是____________（多選，填字母）
A．C列內容顯示為“#####”，其可能的原因是列寬不足
B．若要對第三季度（七、八、九月份）的數據以“執行峰谷電”為主要關鍵字進行降序排序，則排序時選擇的數據區域是B2：I2，B9：I11
C．若要篩選出“執行峰谷電”和“不執行峰谷電”差值最小的月份，可以以“執行峰谷電”為最大1項、“不執行峰谷電”為最小1項進行篩選
D．若將M3：M5單元格的數值小數位數設置為0，則H3：I14中顯示的值不會發生變化
14．（2020·杭州模擬）用Flash軟件打開“致敬逆行者.fla”文件，編輯界面如圖a所示。
圖a
請回答下列問題：
（1）創作多媒體作品需要進行需求分析和規劃設計。下列屬于需求分析的是　 　（多選，填字母：A ．確定作品的結構類型為演示型/ B ．明確作品的工作流程/ C ．確定獲取原始素材的方式/ D ．確定作品的發布方式/ E ．設計作品的三個模塊的交互方式）
（2）文件中導入的聲音設置圖b所示，動畫播放一遍停止時，音樂播放時長是　 　秒。
（3）將動畫GIF文件“飛奔．gif”導入庫中直接得到一個影片剪輯元件，則該元件中動畫的動畫類型是　 　。（選填，填字母，A ．逐幀動畫/B ．形狀補間動畫/C ．動畫補間動畫）
圖b
（4）為了使該場景動畫播放到最后一幀自動退出動畫，可以在按鈕圖層的最后一幀添加動作腳本　 　
（5）測試該場景時，“英雄”圖層內容在播放完第30幀后消失，為了使該圖層第30幀內容再延續2秒，下列操作可行的是______。（多選題）
A．選中“英雄”圖層第31幀執行“清除關鍵幀”操作
B．將“英雄”圖層第50幀執行“插入關鍵幀”操作
C．刪除“英雄”圖層第31幀，在第50幀執行“插入幀”操作
D．將“英雄”圖層第31幀移動至50幀，在第50幀執行“清除關鍵幀”操作
E．選中“英雄”圖層第50幀執行“插入幀”操作，在第31幀執行“清除關鍵幀”操作
15．（2020·杭州模擬）某程序功能如下：將自然數從1到100按某種方式排列起來，單擊“輸出”按鈕Command1，在列表框List1中顯示排列后的數表，運行結果如圖所示。
（1）下列對象中不具有Caption屬性的是　 　（單選，填字母：mand1 /B .Form1 /C .List1）
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Private
Sub Command1_Click()
Const
n = 10
Dim
i As Integer, j As Integer
Dim
d(0 To 100) As Integer
For
i = 1 To n
For j = 1 To n
If i = 1 Then
d(j) = j ^ 2
Else
If j = 1 Then
①
d((i - 1) * n + j) = d((i - 2) * n + j) - 1
Else
②
End If
End If
Next j
Next i
‘在列表框List1中按每行10個輸出數組d的所有元素，代碼略
End Sub
①　 　②　 　
（3）程序中加框處代碼有錯，請改正。
16．（2020·杭州模擬）某地為各個村之間建立灌溉管道，現需實現用最短的管道距離使得所有村莊可以連通。如圖a所示，[V1,V2,V3,V4,V5]每個節點表示村莊，兩個節點之間的數值表示兩個村莊之間的邊距離。
圖c
算法思路如下：
①首先按邊距離升序排序；
②找到邊距離最小值1，以及相應的兩個節點V1 和V3；
③以V1 或V3 作為起點，搜尋連接新節點且距離最小的邊，發現(V1,V4)邊最小為4；
④以V1、V3、V4 作為起點，搜尋連接新節點且距離最小的邊，發現(V4,V5)邊最小為2；
⑤以V1、V3、V4、V5 作為起點，搜尋連接新節點且距離最小的邊，發現(V2,V5)邊最小為3；因此可知，連通5個村莊的最短管道距離是1+4+2+3=10，效果如圖b所示。
現設計了如下VB 程序，界面如圖c所示，請回答下列問題：
（1）V2到V5的邊距離若為6，則連通5個村莊的最短管道距離是　 　。
（2）請在劃線處填入合適的代碼。
Const n = 5 '村莊數
Const m = 8 '管道線路數
Dim pointAB(1 To 2 * m)
As Integer '存儲連接的兩個村莊節點
Dim length(1 To m) As Integer
'存儲兩個村莊之間的距離
Dim res(1 To 100) As Integer
'存儲管道規劃結果
Private Sub Form_Load()
'村莊節點數據存儲在pointAB數組，兩個村莊的距離數據存儲在length 數組。
'如圖c 所示，(V1,V3)邊距離為1，則pointAB(1)=1，pointAB(2)=3，length(1)=1；
(V1,V2)邊距離為6，則pointAB(3)=1，pointAB(4)=2，length(2)=6；其他依次類推，代碼略。
End Sub
Function check(x As Integer)
As Integer '判斷x 節點是否已在規劃中
check = 0
For i = 1 To 100
If x = res(i) Then check
= 1: Exit Function
Next i
End Function
Private Sub Command1_Click()
Dim i As Integer, j As
Integer, tmp As Integer
Dim total As Integer, sum
As Integer
For i = 1 To m - 1
For j = m To i + 1 Step
-1
If ① Then
tmp= pointAB(2 * j - 1)
:pointAB(2 * j - 1) = pointAB(2 * j - 3) :pointAB(2 * j - 3) = tmp
tmp = pointAB(2 * j) :
pointAB(2 * j) = pointAB(2 * j - 2) :pointAB(2 * j - 2) = tmp
tmp = length(j): length(j)
= length(j - 1): length(j - 1) = tmp
End If
Next j
Next i
'開始規劃管道
total = 1
res(1) = pointAB(1): res(2)
= pointAB(2)
sum = length(1)
Do While total < ②
For i = 2 To m
If ③ Then
total = total + 1
res(2 * total - 1) = pointAB(2
* i - 1)
res(2 * total) = pointAB(2
* i)
sum = sum + length(i)
Exit For
End If
Next i
Loop
'輸出連通結果res 以及管道總長度sum，代碼略。
End Sub
①　 　②　 　③　 　
答案解析部分
1．【答案】D
【知識點】信息及其特征；信息技術的概念與關鍵技術；因特網信息資源評價；信息表達方式與表達技術
2．【答案】B
【知識點】人工智能的應用
3．【答案】A
【知識點】數據庫、數據庫系統及其特征；數據表、字段、記錄的編輯
4．【答案】C
【知識點】信息的編碼；進制及數制轉換
5．【答案】C
【知識點】圖層及圖層的基本操作；聲音、圖像、視頻編碼
6．【答案】B
【知識點】聲音、圖像、視頻編碼
7．【答案】B
【知識點】常量、變量及變量的賦值；流程圖識讀
8．【答案】A
【知識點】運算符、基本運算與表達式
【解析】【解答】選項A：36 Mod 30 \ 3=36 Mod 10=6；選項B：Val("3+3")=3；選項C：abs(Int(-5.34))+1=abs(-6)+1=6+1=7；選項D：mid("2016remember",4,1)=“6”。故答案選A。
【分析】本題考查VB表達式的運算。Val(X) --將數字字符串轉換為數值，abs(　　)是求一個數的絕對值，Mid (　　)函數是從文本字符串中指定的開始位置起返回指定長度的字符。
9．【答案】D
【知識點】排序算法及程序實現；查找算法及程序實現
10．【答案】C
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值
11．【答案】C
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值
12．【答案】A
【知識點】運算符、基本運算與表達式；常量、變量及變量的賦值
13．【答案】（1）B
（2）=E3*$M$3+F3*$M$4
（3）A；D
【知識點】表格數據的基本操作；表格數據的處理與計算
14．【答案】（1）AD
（2）4
（3）A
（4）fscommand(“quit”)
（5）C；D；E
【知識點】多媒體作品的規劃和設計；時間軸、幀、圖層、庫的概念及基本操作；動畫的實現；常用影片控制函數的應用
15．【答案】（1）C
（2）d((i - 1) * n + 1) = (i - 1) ^ 2 + 1；d((i - 1) * n + j) = d((i - 1) * n + j - 1) + 1
（3）ElseIf j > i Then
【知識點】常見數據類型、數組；常量、變量及變量的賦值
16．【答案】（1）12
（2）length(j)【知識點】常量、變量及變量的賦值；過程與自定義函數；排序算法及程序實現
1 / 1

展開更多......

收起↑