資源簡介

浙江省2021-2022學年高三上學期信息技術10月TBY在線聯考試卷
一、選擇題
1．（2021高三上·浙江月考）下列關于計算機、信息和信息技術的說法，不正確的是（　　）
A．近代信息技術包括攝影技術、電影技術、廣播電視技術、微電子技術等
B．文字、圖像、聲音、代碼等都是信息的載體
C．OCR中的“刪除區域”命令的作用是取消該區域的選中狀態
D．信息可以傳遞和共享，而不會像物質、能源那樣產生消耗
【答案】A
【知識點】信息及其特征；信息技術的概念與關鍵技術；字符識別
2．（2021高三上·浙江月考）下列關于網頁和網絡協議的說法，不正確的是（　　）
A．網上檢索資源的方式包括：搜索引擎、主題目錄、元搜索引擎
B．網頁的三種基本元素是文字、圖形圖像和超鏈接
C．使用瀏覽器登錄郵箱進行收發郵件需要用到HTTP
D．SMTP的全稱是通用郵件傳送協議
【答案】D
【知識點】網絡協議；網絡資源的檢索；網頁組成元素
3．（2021高三上·浙江月考）使用Access軟件設計五校聯考閱卷平臺的數據庫，部分界面如下圖所示：
下列關于該數據庫的說法，正確的是（　　）
A．數據表“五校聯考成績”處于打開狀態
B．“姓名”字段可以輸入“亞里士多德”
C．不能將“姓名”字段的對齊方式設置為居中
D．可以修改整個數據表的字體為楷體
【答案】D
【知識點】數據表、字段、記錄的編輯
4．（2021高三上·浙江月考）已知異或是一個數學運算符，它的數學符號為 ，a b的計算方法為：將a和b轉換為二進制，從最低位開始按位比較，如果不同，則該位異或結果為1，否則該位異或結果為0。例如：9D 7D=1001B 0111B=1110B。用UltraEdit軟件查看字符內碼，部分界面如圖所示。
下列說法中，正確的是（　　）
A．圖中共有16個ASCII碼字符
B．字符“2”的內碼異或字符“5”的內碼的結果是7D
C．漢字“糕”的內碼為B8E2D
D．字符“y”的內碼為31D
【答案】B
【知識點】字符編碼
5．（2021高三上·浙江月考）使用Photoshop軟件制作“將卓越進行到底”作品，部分界面如圖所示：
在當前狀態下，下列說法不正確的是（　　）
A．可以將“背景”圖層移動到“蔡left”圖層下方
B．“文字”圖層是一個文字圖層，其內容一定為“文字”
C．可以移動“文字”圖層里的文字
D．“蔡left”圖層可以移動到“蔡right”圖層的上方
【答案】B
【知識點】圖層及圖層的基本操作
6．（2021高三上·浙江月考）使用GoldWave軟件編輯某音頻文件，選中其中一段音頻后，部分界面如圖所示。
下列說法正確的是（　　）
A．執行插入5秒靜音后直接保存，音頻文件容量約為350KB
B．點擊“刪除”按鈕后直接保存，該文件的容量約為480KB
C．執行刪除后插入5秒靜音然后保存，該文件的容量不變
D．執行“剪裁”后左聲道的5秒至30秒為靜音
【答案】B
【知識點】聲音素材的基本處理；聲音、圖像、視頻編碼
7．（2021高三上·浙江月考）VB表達式20 Mod 3 ^ 2 + Not 1 + 99 = 99 < 2的值是（　　）
A．2 B．3 C．4 D．5
【答案】A
【知識點】運算符、基本運算與表達式
8．（2021高三上·浙江月考）某算法的部分流程圖如圖所示。若輸入n的值為7，則輸出的ans值是（　　）
A．0 B．-2 C．-5 D．-8
【答案】D
【知識點】流程圖識讀
9．（2021高三上·浙江月考）對一個有n個元素的數組進行操作，所有操作均采用未優化的標準算法，下列說法正確的是（　　）
A．若數組有序，對其進行一次對分查找，則最多查找次數為Int(log2n)+1
B．對數組進行一次冒泡排序比進行一次選擇排序的比較次數要多
C．若數組無序，對其進行一次對分查找，一定不能找到要找的數
D．對數組進行一次查找，最少查找次數與n有關
【答案】A
【知識點】排序算法及程序實現；查找算法及程序實現
10．（2021高三上·浙江月考）有如下VB程序段：
Private Sub Command1_Click()
Dim n As Integer， ans As Integer
n = 5
Dim x(1 To 5) As Integer
x(1) = -30: x(2) = 26: x(3) = -18: x(4) = 60: x(5) = 22
ans = 60
For i = 1 To n
If x(i) < 0 Then x(i) = -x(i)
ans = ans + gcd(ans， x(i))
Next i
Text1.Text = Str(ans)
End Sub
Function gcd(a As Integer， b As Integer)
If b = 0 Then
gcd = a
Else
gcd = gcd(b， a Mod b)
End If
End Function
執行該程序段后，Text1. Text中顯示的值為（　　）
A．1 B．2 C．90 D．98
【答案】D
【知識點】過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
11．（2021高三上·浙江月考）為了準備五校聯考，小卷王買了n套卷子，每套卷子數量不等，第i套試卷有a(i)張。小卷王每天可以將第i套到第j套卷子各做完一張。作為同學，小湯想要知道小卷王最快幾天可以做完全部的卷子，因此小湯編寫了下面這個程序，但他有幾個空不知道該寫什么，請求你的幫忙。
Private Sub Command1_Click()
For i = 2 To n
If a(i) > a(i-1) Then ①
Next i
Text1.Text = ②
End Sub
下列選項中，①②中的代碼填寫正確的是（　　）
A．①ans = ans + a(i) - a(i-1) ②Str(a(1) + ans)
B．①ans = ans + a(i) - a(i-1) ②Str(ans)
C．①ans = a(i) - a(i-1) ②Str(a(1) + ans)
D．①ans = a(i) - a(i-1) ②Str(ans)
【答案】A
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
12．（2021高三上·浙江月考）某算法的VB程序段如下：
Private Sub Command1_Click()
Dim key As Integer， i As Integer， j As Integer， ans As Integer
Dim n As Integer
n = 10
Dim x(1 To 10) As Integer
x(1) = 5 : x(2) = 52 : x(3) = 2 : x(4) = 72 : x(5) = 86
x(6) = 3256 : x(7) = 123 : x(8) = 25 : x(9) = 30 : x(10) = 87
key = Val(Text1.Text)
i = 1 : j = n : ans = 0
Do While i < j
m = (i + j + 1) \ 2
If key <= x(m) Then
j = m - 1 : ans = ans + 1
Else
i = m + 1 : ans = ans + 2
End If
Loop
End Sub
在Text1中輸入3256，單擊Command1，程序運行完畢后，以下變量的值不正確的是（　　）
A．i=6 B．j=5 C．ans=5 D．x(m)=5
【答案】D
【知識點】查找算法及程序實現
二、非選擇題
13．（2021高三上·浙江月考）TBY進行了一項調查，收集到了一些數據，并使用Excel軟件對數據進行處理，如圖所示。
（1）在D34單元格輸入“=AVERAGE(D2:D33)”后立即按下回車，D34單元格中將會顯示　 　（單選，填字母：A
.=AVERAGE(D2:D33)/B .4.9/C .#DIV/0!/D .#VALUE!）
（2）當前狀態下，以A1:A33,D1:E33為數據區域創建的圖表可能為 （單選，填字母）
A．
B．
C．
D．
（3）選中A1:G33執行“篩選”后，下列有關說法正確的是（多選） 。
A．在列A上設置篩選條件為“等于8”，篩選結果一定為空
B．在列A上設置篩選條件為“等于1”，篩選完畢后清除篩選，隱藏列會顯示出來
C．復制F2:F33，在I2單元格執行“粘貼鏈接”命令后，修改G2單元格內容為“感謝參與TBY線上聯考”，則I2單元格的內容保持不變
D．可以隱藏列A和列B
【答案】（1）A
（2）A
（3）B；D
【知識點】表格數據的處理與計算
14．（2021高三上·浙江月考）為了迎接五校聯考的到來，TBY創作主題為“將卓越進行到底”的多媒體作品，部分編輯頁面如圖所示。
請回答下列問題：
（1）在創作之前，TBY進行了作品設計，下列說法正確的是 （多選，填字母）
A．為迎接五校聯考的到來，考慮該作品的受眾為五校聯考的考生，屬于作品的應用需求分析
B．考慮背景圖片從杭州第二中學官網下載，屬于腳本編寫
C．為讓五校聯考的考生能看到這一作品，考慮把這一作品以模擬試題的方式發布，屬于應用需求分析
D．為豐富畫面效果，考慮用Photoshop和Flash軟件制作，屬于規劃設計
E．考慮背景音樂和文字的來源，屬于創作需求分析
（2）在測試影片過程中，發現背景圖層的畫面會在播放到一半時消失，怎樣才能使得背景圖層的畫面始終顯示？
（3）為實現點擊按鈕后停止播放背景音樂，該按鈕實例上添加的動作腳本應該為　 　。
（4）關于當前作品，下列說法正確的是 （多選，填字母）
A．可以直接移動“右蔡”圖層的內容
B．可以將“左蔡”圖層的第20幀復制到“右蔡”圖層的第25幀
C．在不點擊按鈕的情況下，觀看者聽不到背景音樂
D．隱藏“圖層6”后發布作品，觀看者可以看到圖層6
E．“測試影片”操作執行后，會在同一目錄下生成“T14．flv”文件
【答案】（1）A；B
（2）將“背景”圖層的第20幀移動到第40幀 或其他等價表述
（3）on(press){stopAllSounds();}或on(release){stopAllSounds();}
（4）B；D
【知識點】多媒體作品的規劃和設計；圖層及圖層的基本操作；常用影片控制函數的應用
15．（2021高三上·浙江月考）校服烘干。五校聯考要求學生統一穿校服參加，但是不幸的是，考試前所有考生的校服全都打濕了。一件衣服在自然條件下用一秒的時間可以曬干a點濕度。現在學校里有且僅有一臺烘衣機，且目前烘衣機全部斷貨（即無法購入新機器）使用用一秒烘衣機可以讓一件衣服額外烘干b點濕度（一秒曬干a+b濕度），但在同一時間內只能烘一件衣服。現在有n件衣服，第i衣服的濕度為w(i)（保證互不相同），要你求出弄干所有衣服的最少時間（濕度為0為干）。編寫VB程序，實現上述功能。運行程序，顯示窗體From1，在文本框Text1輸入衣服總數n，在文本框Text2中輸入a，在文本框Text3中輸入b，在文本框Text4中輸入各件衣服的濕度（共n個數據，數據與數據使用空格隔開），點擊命令按鈕Command1后，在標簽Label1中顯示弄干所有衣服的最少時間。程序運行界面如圖所示。請回答下列問題：
（1）若要使程序運行時，命令按鈕Command1上顯示為“計算”，可以在　 　事件處理過程中添加語句Command1．Caption="計算"。（單選，填字母：A .Form_Load/B .Form1_Load/mand1_Click/D
.Form1_Start）
（2）實現上述功能的VB程序如下，請在劃線處填入合適代碼。
Const maxn = 500005
Dim n As Long， a As Long， b As Long
Dim f(1 To maxn) As Long
Dim i As Long， tby As Long
Private Sub Command1_Click()
tby = 1
n = Val(Text1.Text) : a =
Val(Text2.Text) : b = Val(Text3.Text)
For i = 1 To n
f(i) = Getin()
Next i
Dim l As Long， r As
Long， m As Long
l = 0: r = n
Do While l <= r
m = (l + r) / 2
If 　 　Then
r = m - 1
Else
l = m
+ 1
End If
Loop
Label1.Caption = Str(r + 1)
End Sub
Function check(x As Long)
Dim y As Long
y = x
For i = 1 To n
Dim tmp As Long
　 　
If tmp > 0 Then
If y < 0 Then
check = True
Exit Function
End If
Next i
check = False
End Function
Function Getin() As Long
Dim aaa As String
aaa = Mid(Text4.Text， tby， 1)
If aaa = " " Then tby = tby + 1
aaa = Mid(Text4.Text， tby， 1)
Dim bbb As Long
bbb = 0
Do While aaa <> " " And tby <= Len(Text4.Text)
bbb = bbb * 10 + Val(aaa) : tby = tby + 1
aaa = Mid(Text4.Text， tby， 1)
Loop
Getin = bbb
End Function
（3）程序中加框處代碼有錯，請改正。
【答案】（1）A
（2）Not Check(m) 或 Check(m) = False；tmp = f(i) - a * x
（3）y = y - (tmp \ b + (tmp Mod b <> 0)) 或y = y + Int((tmp / b) * (-1))
【知識點】過程與自定義函數
16．（2021高三上·浙江月考）試卷運送。五校聯考就要到了，本次負責安排運送試卷的路線的是TBY。由于各所學校都參與了一些科目命題工作，所以目前每個學校里都有幾個科目的試卷。為了節省運輸費用，TBY想要找到一種能連接所有學校且線路總長最短的方案。
一共有n（3<=n<=100）個學校，各所學校之間的線路長度以一行共n*n個數據輸入，
第i組的n個數據為從第i個學校出發到其他學校的線路長度，保證第i組的第i個數據為0。
編寫VB程序，實現上述功能。運行程序，在文本框Text1中輸入學校總數，
在文本框Text2中按題述方法輸入各校之間的距離，點擊命令按鈕Command1后，在標簽Label1中顯示最短的線路總長。程序運行界面如圖所示。
請回答下列問題：
（1）若n=4，各校距離為0242831240352528350303125300，則最短的線路總長為　 　。
（2）實現上述功能的VB程序如下，請在劃線處填入合適代碼。
Const INF = 2147483646
Dim n As Long， a As Long
Dim dis(1 To 10001) As Long， flag(1 To 10001) As Boolean
Dim head(1 To 10001) As Long， nxt(1 To 10001) As Long
Dim ed(1 To 10001) As Long， value(1 To 10001) As Long
Dim cnt As Long， tby As Long， sss As String
Dim i As Long， j As Long
Private Sub Command1_Click()
cnt = 0
n = Val(Text1.Text)
For i = 1 To n
dis(i)
= INF : flag(i) = False : head(i) = 0
Next i
tby = 1
sss = Text2.Text
For i = 1 To n
For j = 1 To n
　 　
If i <> j Then
Call addedge(i， j， a)
Next j
Next i
Dim ans As Long
dis(1) = 0 : ans = 0
For i = 1 To n
Dim
hg As Long， u As Long
hg = INF
u = 0
For j = 1 To n
If 　 　 Then
hg = dis(j)
u = j
End If
Next j
　 　
flag(u) = True
Dim p As Long
p = head(u)
Do While p <> 0
Dim v
As Long
v = ed(p)
If Not flag(v) And
dis(v) > value(p) Then
dis(v) = value(p)
End If
p = nxt(p)
Loop
Next i
Label1.Caption = Str(ans)
End Sub
Sub addedge(a As Long， b As Long， x As Long)
cnt = cnt + 1
value(cnt) = x
ed(cnt) = b
nxt(cnt) = head(a)
head(a) = cnt
End Sub
Function Getin() As Long
Dim aaa As String
aaa = Mid(sss， tby，
1)
If aaa = " " Then tby = tby + 1
aaa = Mid(sss， tby，
1)
Dim bbb As Long
bbb = 0
Do While aaa <> " " And tby
<= Len(sss)
bbb = bbb * 10 + Val(aaa) : tby = tby + 1
aaa = Mid(sss， tby， 1)
Loop
Getin = bbb
End Function
【答案】（1）77
（2）a = Getin()；Not flag(j) And dis(j) < hg；ans = ans + hg
【知識點】過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
1 / 1浙江省2021-2022學年高三上學期信息技術10月TBY在線聯考試卷
一、選擇題
1．（2021高三上·浙江月考）下列關于計算機、信息和信息技術的說法，不正確的是（　　）
A．近代信息技術包括攝影技術、電影技術、廣播電視技術、微電子技術等
B．文字、圖像、聲音、代碼等都是信息的載體
C．OCR中的“刪除區域”命令的作用是取消該區域的選中狀態
D．信息可以傳遞和共享，而不會像物質、能源那樣產生消耗
2．（2021高三上·浙江月考）下列關于網頁和網絡協議的說法，不正確的是（　　）
A．網上檢索資源的方式包括：搜索引擎、主題目錄、元搜索引擎
B．網頁的三種基本元素是文字、圖形圖像和超鏈接
C．使用瀏覽器登錄郵箱進行收發郵件需要用到HTTP
D．SMTP的全稱是通用郵件傳送協議
3．（2021高三上·浙江月考）使用Access軟件設計五校聯考閱卷平臺的數據庫，部分界面如下圖所示：
下列關于該數據庫的說法，正確的是（　　）
A．數據表“五校聯考成績”處于打開狀態
B．“姓名”字段可以輸入“亞里士多德”
C．不能將“姓名”字段的對齊方式設置為居中
D．可以修改整個數據表的字體為楷體
4．（2021高三上·浙江月考）已知異或是一個數學運算符，它的數學符號為 ，a b的計算方法為：將a和b轉換為二進制，從最低位開始按位比較，如果不同，則該位異或結果為1，否則該位異或結果為0。例如：9D 7D=1001B 0111B=1110B。用UltraEdit軟件查看字符內碼，部分界面如圖所示。
下列說法中，正確的是（　　）
A．圖中共有16個ASCII碼字符
B．字符“2”的內碼異或字符“5”的內碼的結果是7D
C．漢字“糕”的內碼為B8E2D
D．字符“y”的內碼為31D
5．（2021高三上·浙江月考）使用Photoshop軟件制作“將卓越進行到底”作品，部分界面如圖所示：
在當前狀態下，下列說法不正確的是（　　）
A．可以將“背景”圖層移動到“蔡left”圖層下方
B．“文字”圖層是一個文字圖層，其內容一定為“文字”
C．可以移動“文字”圖層里的文字
D．“蔡left”圖層可以移動到“蔡right”圖層的上方
6．（2021高三上·浙江月考）使用GoldWave軟件編輯某音頻文件，選中其中一段音頻后，部分界面如圖所示。
下列說法正確的是（　　）
A．執行插入5秒靜音后直接保存，音頻文件容量約為350KB
B．點擊“刪除”按鈕后直接保存，該文件的容量約為480KB
C．執行刪除后插入5秒靜音然后保存，該文件的容量不變
D．執行“剪裁”后左聲道的5秒至30秒為靜音
7．（2021高三上·浙江月考）VB表達式20 Mod 3 ^ 2 + Not 1 + 99 = 99 < 2的值是（　　）
A．2 B．3 C．4 D．5
8．（2021高三上·浙江月考）某算法的部分流程圖如圖所示。若輸入n的值為7，則輸出的ans值是（　　）
A．0 B．-2 C．-5 D．-8
9．（2021高三上·浙江月考）對一個有n個元素的數組進行操作，所有操作均采用未優化的標準算法，下列說法正確的是（　　）
A．若數組有序，對其進行一次對分查找，則最多查找次數為Int(log2n)+1
B．對數組進行一次冒泡排序比進行一次選擇排序的比較次數要多
C．若數組無序，對其進行一次對分查找，一定不能找到要找的數
D．對數組進行一次查找，最少查找次數與n有關
10．（2021高三上·浙江月考）有如下VB程序段：
Private Sub Command1_Click()
Dim n As Integer， ans As Integer
n = 5
Dim x(1 To 5) As Integer
x(1) = -30: x(2) = 26: x(3) = -18: x(4) = 60: x(5) = 22
ans = 60
For i = 1 To n
If x(i) < 0 Then x(i) = -x(i)
ans = ans + gcd(ans， x(i))
Next i
Text1.Text = Str(ans)
End Sub
Function gcd(a As Integer， b As Integer)
If b = 0 Then
gcd = a
Else
gcd = gcd(b， a Mod b)
End If
End Function
執行該程序段后，Text1. Text中顯示的值為（　　）
A．1 B．2 C．90 D．98
11．（2021高三上·浙江月考）為了準備五校聯考，小卷王買了n套卷子，每套卷子數量不等，第i套試卷有a(i)張。小卷王每天可以將第i套到第j套卷子各做完一張。作為同學，小湯想要知道小卷王最快幾天可以做完全部的卷子，因此小湯編寫了下面這個程序，但他有幾個空不知道該寫什么，請求你的幫忙。
Private Sub Command1_Click()
For i = 2 To n
If a(i) > a(i-1) Then ①
Next i
Text1.Text = ②
End Sub
下列選項中，①②中的代碼填寫正確的是（　　）
A．①ans = ans + a(i) - a(i-1) ②Str(a(1) + ans)
B．①ans = ans + a(i) - a(i-1) ②Str(ans)
C．①ans = a(i) - a(i-1) ②Str(a(1) + ans)
D．①ans = a(i) - a(i-1) ②Str(ans)
12．（2021高三上·浙江月考）某算法的VB程序段如下：
Private Sub Command1_Click()
Dim key As Integer， i As Integer， j As Integer， ans As Integer
Dim n As Integer
n = 10
Dim x(1 To 10) As Integer
x(1) = 5 : x(2) = 52 : x(3) = 2 : x(4) = 72 : x(5) = 86
x(6) = 3256 : x(7) = 123 : x(8) = 25 : x(9) = 30 : x(10) = 87
key = Val(Text1.Text)
i = 1 : j = n : ans = 0
Do While i < j
m = (i + j + 1) \ 2
If key <= x(m) Then
j = m - 1 : ans = ans + 1
Else
i = m + 1 : ans = ans + 2
End If
Loop
End Sub
在Text1中輸入3256，單擊Command1，程序運行完畢后，以下變量的值不正確的是（　　）
A．i=6 B．j=5 C．ans=5 D．x(m)=5
二、非選擇題
13．（2021高三上·浙江月考）TBY進行了一項調查，收集到了一些數據，并使用Excel軟件對數據進行處理，如圖所示。
（1）在D34單元格輸入“=AVERAGE(D2:D33)”后立即按下回車，D34單元格中將會顯示　 　（單選，填字母：A
.=AVERAGE(D2:D33)/B .4.9/C .#DIV/0!/D .#VALUE!）
（2）當前狀態下，以A1:A33,D1:E33為數據區域創建的圖表可能為 （單選，填字母）
A．
B．
C．
D．
（3）選中A1:G33執行“篩選”后，下列有關說法正確的是（多選） 。
A．在列A上設置篩選條件為“等于8”，篩選結果一定為空
B．在列A上設置篩選條件為“等于1”，篩選完畢后清除篩選，隱藏列會顯示出來
C．復制F2:F33，在I2單元格執行“粘貼鏈接”命令后，修改G2單元格內容為“感謝參與TBY線上聯考”，則I2單元格的內容保持不變
D．可以隱藏列A和列B
14．（2021高三上·浙江月考）為了迎接五校聯考的到來，TBY創作主題為“將卓越進行到底”的多媒體作品，部分編輯頁面如圖所示。
請回答下列問題：
（1）在創作之前，TBY進行了作品設計，下列說法正確的是 （多選，填字母）
A．為迎接五校聯考的到來，考慮該作品的受眾為五校聯考的考生，屬于作品的應用需求分析
B．考慮背景圖片從杭州第二中學官網下載，屬于腳本編寫
C．為讓五校聯考的考生能看到這一作品，考慮把這一作品以模擬試題的方式發布，屬于應用需求分析
D．為豐富畫面效果，考慮用Photoshop和Flash軟件制作，屬于規劃設計
E．考慮背景音樂和文字的來源，屬于創作需求分析
（2）在測試影片過程中，發現背景圖層的畫面會在播放到一半時消失，怎樣才能使得背景圖層的畫面始終顯示？
（3）為實現點擊按鈕后停止播放背景音樂，該按鈕實例上添加的動作腳本應該為　 　。
（4）關于當前作品，下列說法正確的是 （多選，填字母）
A．可以直接移動“右蔡”圖層的內容
B．可以將“左蔡”圖層的第20幀復制到“右蔡”圖層的第25幀
C．在不點擊按鈕的情況下，觀看者聽不到背景音樂
D．隱藏“圖層6”后發布作品，觀看者可以看到圖層6
E．“測試影片”操作執行后，會在同一目錄下生成“T14．flv”文件
15．（2021高三上·浙江月考）校服烘干。五校聯考要求學生統一穿校服參加，但是不幸的是，考試前所有考生的校服全都打濕了。一件衣服在自然條件下用一秒的時間可以曬干a點濕度。現在學校里有且僅有一臺烘衣機，且目前烘衣機全部斷貨（即無法購入新機器）使用用一秒烘衣機可以讓一件衣服額外烘干b點濕度（一秒曬干a+b濕度），但在同一時間內只能烘一件衣服。現在有n件衣服，第i衣服的濕度為w(i)（保證互不相同），要你求出弄干所有衣服的最少時間（濕度為0為干）。編寫VB程序，實現上述功能。運行程序，顯示窗體From1，在文本框Text1輸入衣服總數n，在文本框Text2中輸入a，在文本框Text3中輸入b，在文本框Text4中輸入各件衣服的濕度（共n個數據，數據與數據使用空格隔開），點擊命令按鈕Command1后，在標簽Label1中顯示弄干所有衣服的最少時間。程序運行界面如圖所示。請回答下列問題：
（1）若要使程序運行時，命令按鈕Command1上顯示為“計算”，可以在　 　事件處理過程中添加語句Command1．Caption="計算"。（單選，填字母：A .Form_Load/B .Form1_Load/mand1_Click/D
.Form1_Start）
（2）實現上述功能的VB程序如下，請在劃線處填入合適代碼。
Const maxn = 500005
Dim n As Long， a As Long， b As Long
Dim f(1 To maxn) As Long
Dim i As Long， tby As Long
Private Sub Command1_Click()
tby = 1
n = Val(Text1.Text) : a =
Val(Text2.Text) : b = Val(Text3.Text)
For i = 1 To n
f(i) = Getin()
Next i
Dim l As Long， r As
Long， m As Long
l = 0: r = n
Do While l <= r
m = (l + r) / 2
If 　 　Then
r = m - 1
Else
l = m
+ 1
End If
Loop
Label1.Caption = Str(r + 1)
End Sub
Function check(x As Long)
Dim y As Long
y = x
For i = 1 To n
Dim tmp As Long
　 　
If tmp > 0 Then
If y < 0 Then
check = True
Exit Function
End If
Next i
check = False
End Function
Function Getin() As Long
Dim aaa As String
aaa = Mid(Text4.Text， tby， 1)
If aaa = " " Then tby = tby + 1
aaa = Mid(Text4.Text， tby， 1)
Dim bbb As Long
bbb = 0
Do While aaa <> " " And tby <= Len(Text4.Text)
bbb = bbb * 10 + Val(aaa) : tby = tby + 1
aaa = Mid(Text4.Text， tby， 1)
Loop
Getin = bbb
End Function
（3）程序中加框處代碼有錯，請改正。
16．（2021高三上·浙江月考）試卷運送。五校聯考就要到了，本次負責安排運送試卷的路線的是TBY。由于各所學校都參與了一些科目命題工作，所以目前每個學校里都有幾個科目的試卷。為了節省運輸費用，TBY想要找到一種能連接所有學校且線路總長最短的方案。
一共有n（3<=n<=100）個學校，各所學校之間的線路長度以一行共n*n個數據輸入，
第i組的n個數據為從第i個學校出發到其他學校的線路長度，保證第i組的第i個數據為0。
編寫VB程序，實現上述功能。運行程序，在文本框Text1中輸入學校總數，
在文本框Text2中按題述方法輸入各校之間的距離，點擊命令按鈕Command1后，在標簽Label1中顯示最短的線路總長。程序運行界面如圖所示。
請回答下列問題：
（1）若n=4，各校距離為0242831240352528350303125300，則最短的線路總長為　 　。
（2）實現上述功能的VB程序如下，請在劃線處填入合適代碼。
Const INF = 2147483646
Dim n As Long， a As Long
Dim dis(1 To 10001) As Long， flag(1 To 10001) As Boolean
Dim head(1 To 10001) As Long， nxt(1 To 10001) As Long
Dim ed(1 To 10001) As Long， value(1 To 10001) As Long
Dim cnt As Long， tby As Long， sss As String
Dim i As Long， j As Long
Private Sub Command1_Click()
cnt = 0
n = Val(Text1.Text)
For i = 1 To n
dis(i)
= INF : flag(i) = False : head(i) = 0
Next i
tby = 1
sss = Text2.Text
For i = 1 To n
For j = 1 To n
　 　
If i <> j Then
Call addedge(i， j， a)
Next j
Next i
Dim ans As Long
dis(1) = 0 : ans = 0
For i = 1 To n
Dim
hg As Long， u As Long
hg = INF
u = 0
For j = 1 To n
If 　 　 Then
hg = dis(j)
u = j
End If
Next j
　 　
flag(u) = True
Dim p As Long
p = head(u)
Do While p <> 0
Dim v
As Long
v = ed(p)
If Not flag(v) And
dis(v) > value(p) Then
dis(v) = value(p)
End If
p = nxt(p)
Loop
Next i
Label1.Caption = Str(ans)
End Sub
Sub addedge(a As Long， b As Long， x As Long)
cnt = cnt + 1
value(cnt) = x
ed(cnt) = b
nxt(cnt) = head(a)
head(a) = cnt
End Sub
Function Getin() As Long
Dim aaa As String
aaa = Mid(sss， tby，
1)
If aaa = " " Then tby = tby + 1
aaa = Mid(sss， tby，
1)
Dim bbb As Long
bbb = 0
Do While aaa <> " " And tby
<= Len(sss)
bbb = bbb * 10 + Val(aaa) : tby = tby + 1
aaa = Mid(sss， tby， 1)
Loop
Getin = bbb
End Function
答案解析部分
1．【答案】A
【知識點】信息及其特征；信息技術的概念與關鍵技術；字符識別
2．【答案】D
【知識點】網絡協議；網絡資源的檢索；網頁組成元素
3．【答案】D
【知識點】數據表、字段、記錄的編輯
4．【答案】B
【知識點】字符編碼
5．【答案】B
【知識點】圖層及圖層的基本操作
6．【答案】B
【知識點】聲音素材的基本處理；聲音、圖像、視頻編碼
7．【答案】A
【知識點】運算符、基本運算與表達式
8．【答案】D
【知識點】流程圖識讀
9．【答案】A
【知識點】排序算法及程序實現；查找算法及程序實現
10．【答案】D
【知識點】過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
11．【答案】A
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
12．【答案】D
【知識點】查找算法及程序實現
13．【答案】（1）A
（2）A
（3）B；D
【知識點】表格數據的處理與計算
14．【答案】（1）A；B
（2）將“背景”圖層的第20幀移動到第40幀 或其他等價表述
（3）on(press){stopAllSounds();}或on(release){stopAllSounds();}
（4）B；D
【知識點】多媒體作品的規劃和設計；圖層及圖層的基本操作；常用影片控制函數的應用
15．【答案】（1）A
（2）Not Check(m) 或 Check(m) = False；tmp = f(i) - a * x
（3）y = y - (tmp \ b + (tmp Mod b <> 0)) 或y = y + Int((tmp / b) * (-1))
【知識點】過程與自定義函數
16．【答案】（1）77
（2）a = Getin()；Not flag(j) And dis(j) < hg；ans = ans + hg
【知識點】過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
1 / 1

展開更多......

收起↑