資源簡介

登錄二一教育在線組卷平臺 助您教考全無憂
浙江省金華十校2022屆高三下學期4月模擬考試信息技術試卷
一、選擇題(本大題共12小題，每小題2分，共24分)
1．（2022·金華模擬）很多學校開設了在線課程，老師通過網絡與學生互動、直播上課。從信息和信息處理的角度分析，以下說法正確的是(　　)
A．攝像頭采集教師上課的實況，實現了“數模轉換"
B．老師可以同時給全班同學上網課，體現了信息可以共享的特性
C．網絡直播授課可以脫離線下的“教室"，這說明了信息的傳播可以脫離載體
D．網課平臺會自動記錄每個同學學習的時長并生成統計報表，這是一種人工智能技術
2．（2022·金華模擬）下列關于網頁和網絡測覽器的說法正確的是(　　)
A．使用搜索引擎查詢，也會搜索到一些虛假的信息，用戶需要辨別真偽
B．網頁文件可以使用記事本編輯，編輯后的網頁必定是txt格式
C．保存網頁時選擇“網頁，僅HTML(<*．htm； *．html)”不能保存超鏈接
D．瀏覽器與web服務器之間進行傳輸網頁數據使用SMTP協議
3．（2022·金華模擬）某十進制偶數n對應的二進制數據為x，下列說法正確的是(　　)
A．n+1轉換為二進制數后，位數可能比x多
B．nmod4的結果一定與x的最右側兩位等值
C．n轉化為十六進制數最低位一定等于0
D．x中1的個數一定比0的個數多
4．（2022·金華模擬）用Access軟件設計數據庫，存儲疫苗接種相關信息，其中已建好的“已接種人員信息"數據表用于存儲如圖所示的數據，其中“接種編號”的前4位表示年份。
接種編號 疫苗廠家 疫苗批號 接種日期 接種間隔 是否需要補種
2021 1201 北京生物 202008092 2021.11.12 10 是
2021 1202 北京生物 202008098 2021.12.21 15 否
2021 1203 北京生物 202008092 2021.12.10 20 否
…… …… …… …… …… ……
下列關于“已接種人員信息”數據表的描述，正確的是(　　)
A．一個數據表就是一個數據庫文件，該表文件名為“已接種人員信息.accdb”
B．“接種編號”字段設置為“自動編號”類型最合適
C．“是否需要補種”字段的數據類型一定是“是/否”
D．圖中6個字段均可設置為“文本”類型
5．（2022·金華模擬）使用GoldWave軟件編輯某音頻文件，部分界面如圖所示。下列說法正確的是(　　)
A．當前聲音文件采用Wave格式，是一種無損壓縮音頻格式
B．當前聲音文件的存儲容量約為6.4MB
C．當前狀態下，執行“刪除”命令后右聲道的第14~19 秒將出現靜音
D．執行“插人靜音”命令，當前狀態下插人15秒靜音，文件播放時有一段靜音
6．（2022·金華模擬）一段未經壓縮的AVI格式無聲視頻參數為：每幀畫面為1024*768像素、16位色，PAL制式(25fps) ，若視頻文件為375MB，則該視頻的時長約為(　　)
A．2秒 B．8秒 C．10秒 D．15秒
7．（2022·金華模擬）若xy都是正整數且x mod y = 3，則下列表達式的值一定為True是(　　)
A．x-y=3 B．x/yy D．xmod3=0
8．（2022·金華模擬）某算法的部分流程圖如第8題圖所示。輸出g的值是(　　)
A．-9 B．-3 C．18 D．63
9．（2022·金華模擬）有如下VB程序段：
s= "Jinhua2022": t="": i= 1
Do While i< Len(s)
c=Mid(s,i,1)：d=Mid(s,i+1,1)
If c <= d Then t=t+ c
Else t=t+d
i=i+2
Loop
Label1.Caption = t
執行該程序段后，標簽Label1中顯示的內容是(　　)
A．iha22 B．Jha02 C．Jna02 D．ihu22
10．（2022·金華模擬）有如下VB程序段：
i =1
Do While i<=5
a(i)= Int(Rnd*10)*2 + 1
If Not flag(a(i)) Then flag(a(i))=True
i= i + 1
Loop
已知數組flag各元素的初值為False，運行以上程序段程序，數組元素a(1)到a(5)的值可能為(　　)
A．3 9 16 15 11 B．5 7 9 7 13
C．9 3 7 1 15 D．9 17 5 21 1
11．（2022·金華模擬）有如下VB程序段：
i =1
Do While i<=5
If i=0 or a(i-1) >= a(i) Then
i=i+1
Else
t = a(i) : a(i) = a(i-1) : a(i-1) = t
i=i-1
End If
Loop
For i =0to5
List1.additem str(a(i))
Next i
數組元素a(0)到a(5)的值依次為“10，77，22，47，79，26”，該程序段運行后，數組元素a(4)的值為(　　)
A．10 B．77 C．22 D．47
12．（2022·金華模擬）某對分查找算法的VB程序段如下：
Key = Val(Text1.Text)
c=0：i=1：j=10
Do While i<=j
m=(i+j)\2
c=c+1
If key >= a(m) Then i=m+1 Else j=m-1
Loop
Text2.Text = Str(c)
數組a(1)到a(10)的值依次為“10，15，15，25，27，28，33，35，36，56”，執行該程序段后，文本框Text2中顯示的值為3，則key值可能是(　　)
A．10 B．15 C．28 D．36
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2022·金華模擬）某同學收集了1980-2021 年浙江省學校教師負擔學生數相關信息，并用Excel軟件進行數據處理，如圖a所示。請回答下列問題：
（1）將D4單元格公式粘貼到G4單元格計算出中等學校學生總數，則G4單元格公式為　 　。
（2）為了更加直觀地比較2014-2021年高等學校“平均每個教師負擔學生人數”的變化情況，建立如圖b所示的圖表。則生成該圖表的數據區域是　 　。
（3）若要整理高等學校“平均每個教師負擔學生人數”大于5.0的年份的信息，下列說法正確的是 (多選，填字母)。
A．將表中A4：G45中數據，以列C為關鍵字降序排序，可自上而下選取C列中大于5.0的記錄
B．對表格中C列數據進行篩選，在如圖c搜索框中輸入“>5.0”
C．對表格中C列數據進行篩選，自定義篩選條件為“大于5.0”
D．若在C列設置篩選條件“大于5.0”，圖b所示的圖表將發生變化
14．（2022·金華模擬）制作“香濃奶茶"多媒體廣告，首先在Photoshop軟件中制作效果圖，然后在Flash軟件中制作動畫，相關界面如下所示，請回答以下問題。
（1）如圖a所示，在photoshop軟件中制作廣告效果圖，其中“奶茶“的畫面區域已經建立了選區，以下說法正確的是 。(多選，填字母)
A．“標題”圖層與“文字”圖層設置了相同的圖層樣式
B．當前狀態下，選中“背景”圖層，可以直接為整個背景畫面設置濾鏡效果
C．當前狀態下，無法使用“自由變換”命令修改“標題”圖層的字體大小
D．“標題”圖層與“奶茶”選區沒有重疊部分，“投影”效果不可見
E．“奶茶”與“文字”圖層鎖定，無法使用“圖像大小”命令調整圖像
F．當前狀態下，有4個圖層可以設置濾鏡效果
（2）根據制作腳本，“標題”圖層要實現“標題文字從完全透明到完全顯示，停留一段時間后再“淡出”的效果，則標題圖層第1幀中的標題文字實例的Alpha屬性值應設置為　 　，第1-20幀的補間類型為　 　。
（3）測試影片，發現“標題”圖層第48-80幀未能實現淡出效果，根據圖b分析，其原因可能是　 　。
（4）結合圖b，以下說法正確的是 (多選，填字母)
A．“背景”圖層第80幀執行“清除關鍵幀”操作可使背景畫面從頭到尾一直顯示
B．“按鈕"圖層第1幀移至第80幀，按鈕將在場景結束時才出現，不改變其它動畫效果
C．“奶茶”圖層的動畫為“逐幀動畫”
D．“音樂”圖層的聲音同步屬性設置為“數據流”或“事件”，播放效果無異
E．若將影片的幀頻調整為10fps，聲音的播放速度不會改變
F．“按鈕”圖層第80幀的動作腳本可能是on(press){stop()；}
（5）點擊“新品上新”按鈕，跳轉到“new”場景第1幀播放，并停止音樂的播放，則在該按鈕上設置的動作腳本為on(press){　 　}。
15．（2022·金華模擬）某校要舉行國際象棋比賽，計劃組織k場對弈。每個人最多參加2場對弈，最少參加0場對弈。每個人都有一個與其他人不相同的等級(用一個正整數來表示)。在對弈中，等級高的人用黑色的棋子，等級低的人用白色的棋子。每個人最多只能用一次黑色的棋子和一次白色的棋子。為增加比賽的可觀度，觀眾希望k場對弈中雙方的等級差的總和最小。
比如有7個選手，他們的等級分別是30，17，26，41，19，38，18，要進行3場比賽。最好的安排是選手2對選手7，選手7對選手5，選手6對選手4。此時等級差的總和等于(18-17)+(19-18)+(41-38)=5達到最小。
窗體form1的運行界面如下圖所示，用戶在文本框Text1中輸入各位選手的等級(以逗號分隔)，在文本框Text2中輸人要對弈的場數k，單擊計算按鈕Commmand1，在文本框Text3中顯示最小等級差總和。程序運行界面如圖所示。
（1）若要使得的在程序啟動時文本框text1中內容自動清空，可在以下哪個事件處理過程中編寫代碼實現 (選填)
A．form1_load() B．Text1 _Change()
C．form_load() D．text1_load()
（2）實現上述功能的VB程序如下，請在劃線處填入合適代碼。
Dim a(0 To 1000) As Integer
Dim b(0 To 1000) As Integer
Private Sub Command1_ Click()
Sum=0
k = Val(Text2. Text)
s =Text1. Text
cnt =1
For i=1 To Len(s)
c=mid(s, i, 1)
If
c="," Then cnt=cnt+1 Else 　 　
Next i
For i=1 To cnt-1
For j=1 To cnt-i
If 　 　 Then
t =
a(j): a(j) = a(j+ 1): a(j+1)= t
End
If
Next
j
Next i
'計算出各等級選手之間差值
For i=1To cnt- 1
b(i)=a(i+1)-a(i)
Next i
For i=1 To k
Min=i
If b(j) < b(Min) Then Min = j
Next j
Sum = Sum + b(Min)
　 　
Next i
Text3. Text = Str(Sum)
End Sub
（3）加框處的程序代碼有錯，應改為　 　。
16．（2022·金華模擬）張老師在籌備一次班級活動，活動的場地可以看成由m*n個小方格組成的矩陣(m，n<=100)，由于活動需要，計劃給這個場地鋪上紅地毯。當前的地毯都是矩形的，但是大小不一每塊地毯鋪設位置由左上角(x1，y1)和右下角(x2，y2)兩個坐標確定，且剛好鋪滿該矩形區域。
張老師想了解每個小方格被多少塊地毯覆蓋，以便更好地調整地毯鋪設位置，他編寫了VB程序，實現以下功能：在文本框Text1中輸人行數m，在文本框Text2中輸入列數n，在Text3中輸入每塊地毯鋪設的坐標x1，y1，x2，y2……坐標之間逗號分隔，地毯數量不超過100)，單擊計算按鈕Commmand1，在列表框List1中顯示每個小方格被多少塊地毯覆蓋。程序運行界面如圖所示。
（1）文本框Text1中輸人行數為5，在文本框Text2中輸人列數5，在Text3中輸人的地毯鋪設的坐標為s=1，1，2，2，1，2，3，3則最后輸出矩陣a(7)的值為　 　。 (填數字)
（2）實現上述功能的VB程序如下，請在劃線處填入合適代碼。
Dim m As Integer
Dim n As Integer
Dim a, b, C, d As Integer
Dim flag(0 To 10000) As Integer
Dim sum(0 To 10000) As Integer
Dim pos(0 To 100) As Integer
Private Sub Command1_Click()
List1. Clear
m = Val(Text1. Text)
n = Val(Text2. Text)
s = Text3. Text
'讀取每塊地毯坐標,并按順序存儲在pos數組中
'地毯總數量存儲在變量k中
For i=1 To k
a= pos(i * 4- 3)：b= pos(i * 4- 2)：c= pos(i * 4- 1)：d= pos(i * 4)
　 　
Next i
For i=1 To m
　 　
For
j=1 To n
sum((i- 1) *n+ j) = sum((i- 1) * n+ j- 1) +
flag((i- 1)*n+ j)
s=s+Str(sum((i-1)*n+j))
Next j
List1. AddItem s
Next i
End Sub
Sub add (ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer,
ByVal y2 As Integer)
'按行標記地毯鋪設情況
For i=x1 To x2
flag((i - 1) * n + y1) =
flag((i- 1)*n+y1) + 1
　 　
Next i
End Sub
答案解析部分
1．【答案】B
【知識點】信息及其特征
2．【答案】A
【知識點】信息來源的選擇與判斷；網絡協議；網絡資源的類型、下載與保存
3．【答案】B
【知識點】進制及數制轉換
4．【答案】D
【知識點】數據表、字段、記錄的編輯
5．【答案】D
【知識點】聲音素材的基本處理
6．【答案】C
【知識點】聲音、圖像、視頻編碼
7．【答案】B
【知識點】運算符、基本運算與表達式
8．【答案】A
【知識點】流程圖識讀
9．【答案】B
【知識點】循環結構語句及程序實現
10．【答案】C
【知識點】循環結構語句及程序實現；常用標準函數
11．【答案】C
【知識點】排序算法及程序實現
12．【答案】A
【知識點】查找算法及程序實現
13．【答案】（1）=E4*F4*10000
（2）C3， C38：C45
（3）A；C
【知識點】表格數據的處理與計算
14．【答案】（1）C；F
（2）0%；動畫補間
（3）標題圖層第48幀為空白關鍵幀(或者無內容)
（4）A；E
（5）gotoAndPlay( "new", 1) ；stopAllSounds(　　)：
【知識點】圖層及圖層的基本操作；動畫的類型；常用影片控制函數的應用；聲音同步屬性設置
15．【答案】（1）C
（2）a(cnt)=a(cnt)*10+val (c)；a(j) > a(j+1)；b(Min) = b(i)
（3）for j=i+1 to cnt-1
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；排序算法及程序實現
16．【答案】（1）2
（2）add(a, b, c, d)；s=""；flag((i - 1) * n+ y2+1) = flag((i-1)*n+y2+1)- 1
【知識點】常見數據類型、數組；分支結構語句及程序實現；循環結構語句及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1登錄二一教育在線組卷平臺 助您教考全無憂
浙江省金華十校2022屆高三下學期4月模擬考試信息技術試卷
一、選擇題(本大題共12小題，每小題2分，共24分)
1．（2022·金華模擬）很多學校開設了在線課程，老師通過網絡與學生互動、直播上課。從信息和信息處理的角度分析，以下說法正確的是(　　)
A．攝像頭采集教師上課的實況，實現了“數模轉換"
B．老師可以同時給全班同學上網課，體現了信息可以共享的特性
C．網絡直播授課可以脫離線下的“教室"，這說明了信息的傳播可以脫離載體
D．網課平臺會自動記錄每個同學學習的時長并生成統計報表，這是一種人工智能技術
【答案】B
【知識點】信息及其特征
2．（2022·金華模擬）下列關于網頁和網絡測覽器的說法正確的是(　　)
A．使用搜索引擎查詢，也會搜索到一些虛假的信息，用戶需要辨別真偽
B．網頁文件可以使用記事本編輯，編輯后的網頁必定是txt格式
C．保存網頁時選擇“網頁，僅HTML(<*．htm； *．html)”不能保存超鏈接
D．瀏覽器與web服務器之間進行傳輸網頁數據使用SMTP協議
【答案】A
【知識點】信息來源的選擇與判斷；網絡協議；網絡資源的類型、下載與保存
3．（2022·金華模擬）某十進制偶數n對應的二進制數據為x，下列說法正確的是(　　)
A．n+1轉換為二進制數后，位數可能比x多
B．nmod4的結果一定與x的最右側兩位等值
C．n轉化為十六進制數最低位一定等于0
D．x中1的個數一定比0的個數多
【答案】B
【知識點】進制及數制轉換
4．（2022·金華模擬）用Access軟件設計數據庫，存儲疫苗接種相關信息，其中已建好的“已接種人員信息"數據表用于存儲如圖所示的數據，其中“接種編號”的前4位表示年份。
接種編號 疫苗廠家 疫苗批號 接種日期 接種間隔 是否需要補種
2021 1201 北京生物 202008092 2021.11.12 10 是
2021 1202 北京生物 202008098 2021.12.21 15 否
2021 1203 北京生物 202008092 2021.12.10 20 否
…… …… …… …… …… ……
下列關于“已接種人員信息”數據表的描述，正確的是(　　)
A．一個數據表就是一個數據庫文件，該表文件名為“已接種人員信息.accdb”
B．“接種編號”字段設置為“自動編號”類型最合適
C．“是否需要補種”字段的數據類型一定是“是/否”
D．圖中6個字段均可設置為“文本”類型
【答案】D
【知識點】數據表、字段、記錄的編輯
5．（2022·金華模擬）使用GoldWave軟件編輯某音頻文件，部分界面如圖所示。下列說法正確的是(　　)
A．當前聲音文件采用Wave格式，是一種無損壓縮音頻格式
B．當前聲音文件的存儲容量約為6.4MB
C．當前狀態下，執行“刪除”命令后右聲道的第14~19 秒將出現靜音
D．執行“插人靜音”命令，當前狀態下插人15秒靜音，文件播放時有一段靜音
【答案】D
【知識點】聲音素材的基本處理
6．（2022·金華模擬）一段未經壓縮的AVI格式無聲視頻參數為：每幀畫面為1024*768像素、16位色，PAL制式(25fps) ，若視頻文件為375MB，則該視頻的時長約為(　　)
A．2秒 B．8秒 C．10秒 D．15秒
【答案】C
【知識點】聲音、圖像、視頻編碼
7．（2022·金華模擬）若xy都是正整數且x mod y = 3，則下列表達式的值一定為True是(　　)
A．x-y=3 B．x/yy D．xmod3=0
【答案】B
【知識點】運算符、基本運算與表達式
8．（2022·金華模擬）某算法的部分流程圖如第8題圖所示。輸出g的值是(　　)
A．-9 B．-3 C．18 D．63
【答案】A
【知識點】流程圖識讀
9．（2022·金華模擬）有如下VB程序段：
s= "Jinhua2022": t="": i= 1
Do While i< Len(s)
c=Mid(s,i,1)：d=Mid(s,i+1,1)
If c <= d Then t=t+ c
Else t=t+d
i=i+2
Loop
Label1.Caption = t
執行該程序段后，標簽Label1中顯示的內容是(　　)
A．iha22 B．Jha02 C．Jna02 D．ihu22
【答案】B
【知識點】循環結構語句及程序實現
10．（2022·金華模擬）有如下VB程序段：
i =1
Do While i<=5
a(i)= Int(Rnd*10)*2 + 1
If Not flag(a(i)) Then flag(a(i))=True
i= i + 1
Loop
已知數組flag各元素的初值為False，運行以上程序段程序，數組元素a(1)到a(5)的值可能為(　　)
A．3 9 16 15 11 B．5 7 9 7 13
C．9 3 7 1 15 D．9 17 5 21 1
【答案】C
【知識點】循環結構語句及程序實現；常用標準函數
11．（2022·金華模擬）有如下VB程序段：
i =1
Do While i<=5
If i=0 or a(i-1) >= a(i) Then
i=i+1
Else
t = a(i) : a(i) = a(i-1) : a(i-1) = t
i=i-1
End If
Loop
For i =0to5
List1.additem str(a(i))
Next i
數組元素a(0)到a(5)的值依次為“10，77，22，47，79，26”，該程序段運行后，數組元素a(4)的值為(　　)
A．10 B．77 C．22 D．47
【答案】C
【知識點】排序算法及程序實現
12．（2022·金華模擬）某對分查找算法的VB程序段如下：
Key = Val(Text1.Text)
c=0：i=1：j=10
Do While i<=j
m=(i+j)\2
c=c+1
If key >= a(m) Then i=m+1 Else j=m-1
Loop
Text2.Text = Str(c)
數組a(1)到a(10)的值依次為“10，15，15，25，27，28，33，35，36，56”，執行該程序段后，文本框Text2中顯示的值為3，則key值可能是(　　)
A．10 B．15 C．28 D．36
【答案】A
【知識點】查找算法及程序實現
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2022·金華模擬）某同學收集了1980-2021 年浙江省學校教師負擔學生數相關信息，并用Excel軟件進行數據處理，如圖a所示。請回答下列問題：
（1）將D4單元格公式粘貼到G4單元格計算出中等學校學生總數，則G4單元格公式為　 　。
（2）為了更加直觀地比較2014-2021年高等學校“平均每個教師負擔學生人數”的變化情況，建立如圖b所示的圖表。則生成該圖表的數據區域是　 　。
（3）若要整理高等學校“平均每個教師負擔學生人數”大于5.0的年份的信息，下列說法正確的是 (多選，填字母)。
A．將表中A4：G45中數據，以列C為關鍵字降序排序，可自上而下選取C列中大于5.0的記錄
B．對表格中C列數據進行篩選，在如圖c搜索框中輸入“>5.0”
C．對表格中C列數據進行篩選，自定義篩選條件為“大于5.0”
D．若在C列設置篩選條件“大于5.0”，圖b所示的圖表將發生變化
【答案】（1）=E4*F4*10000
（2）C3， C38：C45
（3）A；C
【知識點】表格數據的處理與計算
14．（2022·金華模擬）制作“香濃奶茶"多媒體廣告，首先在Photoshop軟件中制作效果圖，然后在Flash軟件中制作動畫，相關界面如下所示，請回答以下問題。
（1）如圖a所示，在photoshop軟件中制作廣告效果圖，其中“奶茶“的畫面區域已經建立了選區，以下說法正確的是 。(多選，填字母)
A．“標題”圖層與“文字”圖層設置了相同的圖層樣式
B．當前狀態下，選中“背景”圖層，可以直接為整個背景畫面設置濾鏡效果
C．當前狀態下，無法使用“自由變換”命令修改“標題”圖層的字體大小
D．“標題”圖層與“奶茶”選區沒有重疊部分，“投影”效果不可見
E．“奶茶”與“文字”圖層鎖定，無法使用“圖像大小”命令調整圖像
F．當前狀態下，有4個圖層可以設置濾鏡效果
（2）根據制作腳本，“標題”圖層要實現“標題文字從完全透明到完全顯示，停留一段時間后再“淡出”的效果，則標題圖層第1幀中的標題文字實例的Alpha屬性值應設置為　 　，第1-20幀的補間類型為　 　。
（3）測試影片，發現“標題”圖層第48-80幀未能實現淡出效果，根據圖b分析，其原因可能是　 　。
（4）結合圖b，以下說法正確的是 (多選，填字母)
A．“背景”圖層第80幀執行“清除關鍵幀”操作可使背景畫面從頭到尾一直顯示
B．“按鈕"圖層第1幀移至第80幀，按鈕將在場景結束時才出現，不改變其它動畫效果
C．“奶茶”圖層的動畫為“逐幀動畫”
D．“音樂”圖層的聲音同步屬性設置為“數據流”或“事件”，播放效果無異
E．若將影片的幀頻調整為10fps，聲音的播放速度不會改變
F．“按鈕”圖層第80幀的動作腳本可能是on(press){stop()；}
（5）點擊“新品上新”按鈕，跳轉到“new”場景第1幀播放，并停止音樂的播放，則在該按鈕上設置的動作腳本為on(press){　 　}。
【答案】（1）C；F
（2）0%；動畫補間
（3）標題圖層第48幀為空白關鍵幀(或者無內容)
（4）A；E
（5）gotoAndPlay( "new", 1) ；stopAllSounds(　　)：
【知識點】圖層及圖層的基本操作；動畫的類型；常用影片控制函數的應用；聲音同步屬性設置
15．（2022·金華模擬）某校要舉行國際象棋比賽，計劃組織k場對弈。每個人最多參加2場對弈，最少參加0場對弈。每個人都有一個與其他人不相同的等級(用一個正整數來表示)。在對弈中，等級高的人用黑色的棋子，等級低的人用白色的棋子。每個人最多只能用一次黑色的棋子和一次白色的棋子。為增加比賽的可觀度，觀眾希望k場對弈中雙方的等級差的總和最小。
比如有7個選手，他們的等級分別是30，17，26，41，19，38，18，要進行3場比賽。最好的安排是選手2對選手7，選手7對選手5，選手6對選手4。此時等級差的總和等于(18-17)+(19-18)+(41-38)=5達到最小。
窗體form1的運行界面如下圖所示，用戶在文本框Text1中輸入各位選手的等級(以逗號分隔)，在文本框Text2中輸人要對弈的場數k，單擊計算按鈕Commmand1，在文本框Text3中顯示最小等級差總和。程序運行界面如圖所示。
（1）若要使得的在程序啟動時文本框text1中內容自動清空，可在以下哪個事件處理過程中編寫代碼實現 (選填)
A．form1_load() B．Text1 _Change()
C．form_load() D．text1_load()
（2）實現上述功能的VB程序如下，請在劃線處填入合適代碼。
Dim a(0 To 1000) As Integer
Dim b(0 To 1000) As Integer
Private Sub Command1_ Click()
Sum=0
k = Val(Text2. Text)
s =Text1. Text
cnt =1
For i=1 To Len(s)
c=mid(s, i, 1)
If
c="," Then cnt=cnt+1 Else 　 　
Next i
For i=1 To cnt-1
For j=1 To cnt-i
If 　 　 Then
t =
a(j): a(j) = a(j+ 1): a(j+1)= t
End
If
Next
j
Next i
'計算出各等級選手之間差值
For i=1To cnt- 1
b(i)=a(i+1)-a(i)
Next i
For i=1 To k
Min=i
If b(j) < b(Min) Then Min = j
Next j
Sum = Sum + b(Min)
　 　
Next i
Text3. Text = Str(Sum)
End Sub
（3）加框處的程序代碼有錯，應改為　 　。
【答案】（1）C
（2）a(cnt)=a(cnt)*10+val (c)；a(j) > a(j+1)；b(Min) = b(i)
（3）for j=i+1 to cnt-1
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；排序算法及程序實現
16．（2022·金華模擬）張老師在籌備一次班級活動，活動的場地可以看成由m*n個小方格組成的矩陣(m，n<=100)，由于活動需要，計劃給這個場地鋪上紅地毯。當前的地毯都是矩形的，但是大小不一每塊地毯鋪設位置由左上角(x1，y1)和右下角(x2，y2)兩個坐標確定，且剛好鋪滿該矩形區域。
張老師想了解每個小方格被多少塊地毯覆蓋，以便更好地調整地毯鋪設位置，他編寫了VB程序，實現以下功能：在文本框Text1中輸人行數m，在文本框Text2中輸入列數n，在Text3中輸入每塊地毯鋪設的坐標x1，y1，x2，y2……坐標之間逗號分隔，地毯數量不超過100)，單擊計算按鈕Commmand1，在列表框List1中顯示每個小方格被多少塊地毯覆蓋。程序運行界面如圖所示。
（1）文本框Text1中輸人行數為5，在文本框Text2中輸人列數5，在Text3中輸人的地毯鋪設的坐標為s=1，1，2，2，1，2，3，3則最后輸出矩陣a(7)的值為　 　。 (填數字)
（2）實現上述功能的VB程序如下，請在劃線處填入合適代碼。
Dim m As Integer
Dim n As Integer
Dim a, b, C, d As Integer
Dim flag(0 To 10000) As Integer
Dim sum(0 To 10000) As Integer
Dim pos(0 To 100) As Integer
Private Sub Command1_Click()
List1. Clear
m = Val(Text1. Text)
n = Val(Text2. Text)
s = Text3. Text
'讀取每塊地毯坐標,并按順序存儲在pos數組中
'地毯總數量存儲在變量k中
For i=1 To k
a= pos(i * 4- 3)：b= pos(i * 4- 2)：c= pos(i * 4- 1)：d= pos(i * 4)
　 　
Next i
For i=1 To m
　 　
For
j=1 To n
sum((i- 1) *n+ j) = sum((i- 1) * n+ j- 1) +
flag((i- 1)*n+ j)
s=s+Str(sum((i-1)*n+j))
Next j
List1. AddItem s
Next i
End Sub
Sub add (ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer,
ByVal y2 As Integer)
'按行標記地毯鋪設情況
For i=x1 To x2
flag((i - 1) * n + y1) =
flag((i- 1)*n+y1) + 1
　 　
Next i
End Sub
【答案】（1）2
（2）add(a, b, c, d)；s=""；flag((i - 1) * n+ y2+1) = flag((i-1)*n+y2+1)- 1
【知識點】常見數據類型、數組；分支結構語句及程序實現；循環結構語句及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1

展開更多......

收起↑