資源簡介

登錄二一教育在線組卷平臺 助您教考全無憂
浙江省普通高中強基聯盟2021-2022學年高三信息技術3月統測試卷
一、選擇題(本大題共12小題，每小題2分，共24分。)
1．（2022·浙江模擬）下列有關信息和信息技術說法正確的是(　　)
A．信息的形態在傳遞過程中不能轉換
B．信息可以傳遞和共享，加工處理后的信息是真實可靠的
C．同一種信息內容可以采用不同的表達方式
D．信息可以脫離載體但不能脫離它所反映的事物
2．（2022·浙江模擬）下列關于網絡與瀏覽器的說法正確的是(　　)
A．網站的地址用URL(統一資源地址)標識，即該網站所有網頁都有相同的URL
B．實現將郵件從發件服務器發送到收件人客戶端的協議是SMTP協議
C．在搜索引擎中可以利用增加關鍵字的方式來擴大搜索范圍
D．選擇“網頁，全部”保存方式保存的網頁被打開后，不能在地址欄看到該網頁的URL
3．（2022·浙江模擬）使用UltraEdit軟件查看字符內碼部分界面如圖所示。
下列說法正確的是(　　)
A．該字符串共有7個ASCI字符
B．字符“C”與字符“b”內碼的差值為1111B
C．字符“J”的十六進制內碼是“54”
D．“虎虎”兩字在存儲時占16bit
4．（2022·浙江模擬）小使用Access軟件為班級采購設計了如下數據表。
下列說法正確的是(　　)
A．圖中的6個字段中，有5個可以作為主鍵
B．在數據表視圖下添加新的字段，可以撤銷
C．“價格”字段的數據類型可能是貨幣
D．將數據表導出到Excel，則該工作表共有5行數據
5．（2022·浙江模擬）用Photoshop軟件制作“虎嘯山林”作品，如下圖所示：
下列說法正確的是(　　)
A．可以直接對“背景”圖層使用自由變換操作
B．“虎嘯山林，氣吞天下”圖層進行柵格化后，才能添加圖層樣式
C．“魚”圖層的圖層樣式效果中，只有“投影”可見
D．“松樹”圖層可以移動到“魚”圖層的上方
6．（2022·浙江模擬）有一副分辨率為1024*512的BMP圖像，其存儲容量約為0.5MB，則該幅圖像每個像素點能表達的顏色數量是(　　)
A．2種 B．8種 C．256種 D．65536種
7．（2022·浙江模擬）某算法的部分流程圖如圖所示，若輸人k的值為9，最終i，s的值分別為(　　)
A．11 0 B．11 -11 C．9 0 D．9 -9
8．（2022·浙江模擬）VB表達式Abs(Int(-6.1)) Mod 42的值是(　　)
A．2 B．4 C．6 D．7
9．（2022·浙江模擬）在一篇英語短文中統計某字母開頭的單詞個數的程序，短文以“．”結束，單詞之間用空格分隔，單詞首寫沒有大寫字母，沒有縮寫或其他特殊形式。部分程序代碼如下所示：
s= Text1. Text '輸人的英語短文
t= Text2. Text '要統計的開頭字母
b=Len(s): f = True
For i=1 To b
c = Mid(s, i, 1)
If ① Then
n= n+1
②
ElseIf c = "" Or c= "." Then
③
Else
f = False
End If
Next i
Label1.Caption= "以" + t + "為開頭的單詞個數：" + Str(n)
為實現上述程序，劃線處應填入的代碼是(　　)
A．①f and c=t②f= False ③f= True
B．①f=False and c=t②f= False ③f= True
C．①c=t②f= True③f= False
D．①f= True and c=t②f= True③f= False
10．（2022·浙江模擬）有如下VB程序段：
a(0)= Int(Rnd() * 6+95)
For i=1 to 5
a(i)=a(i-1)-Int(Rnd() * 6)
If i Mod 2=0 then
a(i)=a(i)+a(i) Mod 2
End if
Next i
執行該程序段后，在下列選項中，a(0)~a(5)各元素值可能是(　　)
A．96，95，90，89，86，82 B．95，92，89，87，86，84
C．95，92，88，86，84，85 D．100，92，88，86，86，84
11．（2022·浙江模擬）某程序代碼如下所示：
i=1：j=100：Key=20
Do While i<=j
a = i+(j- i)\4： b= i+(j- i)\ 2：c=j-(j-i)\4
If a=Key Or b=Key Or c=Key Then ExitD o
If i<= Key And Key< a Then j= a- 1： w= w+ 1
If a< Key And Key < b Theni = a+ 1： j= b-1：x=x+1
If b < Key And Key < c Then i= b+1：j=c-l：y=y+1
If cLoop
n=w+x+y+z
程序運行結束后，變量n的值是(　　)
A．1 B．2 C．3 D．4
12．（2022·浙江模擬）有如下VB程序段：
n = 8: flag = True: c=0: x=1: y=n
Do While flag
p = False: flag = False
For j=y To x+1 Step-1
c=c+1
If a(j) < a(j- 1) Then
t=a(j): a(j)=a(j-1): a(j-1)=t
x =j: flag =True
If p=False Then y=j: p=True
End If
Next j
If y <> n Then y= y+ 1
Loop
數組a(1)到a(8)值依次為“4，10，15，18，16，17，20，25”，程序運行后，變量c的值為(　　)
A．2 B．9 C．14 D．21
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2022·浙江模擬）下面是某校高三年級第一學期期末和期初考試成績各班各科的平均分匯總表，其中“總平均”一行的值是利用平均值函數計算，現通過期初和期末考試成績，對各班各學科計算離差值(如圖13-1所示)，請回答下列問題：
（1）該校高三年級1班化學學科離差值計算公式(如圖13-1所示)，2班的地理學科離差值通過復制F15單元格公式得到的，則J16單元格的公式為　 　。
（2）下列說法正確的是 (多選)
A．在《期末考各科平均分匯總表》中篩選出選考地理的班級后，上述圖表會發生變化；
B．對《期末考各科平均分匯總表》以語文為關鍵字進降序排序后，上述圖表會發生變化；
C．該圖表的數據區域為A15：A22，C15：C22；
D．不小心把單元格B3的數據清除，則B15單元格的值會變成負數，而B16：B22區域的值幾乎不變；
（3）復制A13：K22區域到新工作表中，對數學學科執行篩選操作(如圖13-2所示) ，則篩選出　 　條記錄。
14．（2022·浙江模擬）使用Flash軟件制作“冬奧會．fla”多媒體作品，部分編輯界面(如圖14-1所示)：
（1）有關多媒體作品設計，下列說法正確的是 (多選)
A．確定作品的主題思想、結構類型、作品內容、作品效益、作品發布方式等均屬于創作需求分析；
B．Flash是以時間序列為基礎的多媒體創作工具；
C．文字腳本能作為多媒體作品制作的直接依據；
D．在結構設計時需要考慮屏幕布局合理規范和交互設計友好快速；
E．媒體元素分解將進一步細化“媒體素材”中所列出的媒體元素；
（2）“音樂”圖層的音樂是從第18 幀開始出現的，要使音樂一開始就出現，不重復播放，則下列說法正確的是 (多選)
A．選擇“音樂”圖層的第18幀執行“復制幀”，并在該圖層的第1幀執行“粘貼幀”命令；
B．選擇“音樂”圖層的第1幀執行“刪除關鍵幀”命令；
C．選擇“音樂”圖層的第1幀執行“清除關鍵幀”命令；
D．選擇“音樂”圖層的第18幀移至該圖層的第1幀；
E．選擇“音樂”圖層的第1幀執行“清除幀”命令；
（3）“吉祥物”圖層中文字“冰墩墩”漸變成冬奧吉祥物圖像冰墩墩，但是未創建成功，其第1幀和第15幀的內容分別(如圖14-2所示)，要成功創建，該如何修改？
（4）在播放生成的“冬奧會．swf”影片文件時，發現動畫播放到最后一幀時出現“看冬奧”按鈕，單擊按鈕鏈接到網址： https：//www．
beijing2022． cn，并關閉動畫，則“看冬奧”按鈕的動作腳本為：　 　。
15．（2022·浙江模擬）某省級醫院為了掌握醫院內所有患者的體溫異常情況，以便做出分類醫治處理?，F編寫了一個VB程序，功能如下：程序運行時，在列表框List1中顯示從數據庫中讀取的所有患者的地區、姓名、體溫信息，單擊“統計人數”按鈕Command1 ，統計出各地區體溫異常(大于等于37.4 ℃)的人數，并按照體溫異常人數進行降序排序，在列表框List2中顯示這些體溫有異常的地區和對應的人數；單擊“顯示名單”按鈕Command2，列表框List3中顯示有異常體溫的地區的人員相關信息。
（1）代碼“Private Sub Command1_ Click(　　)”中的Command1是　 　(單選，填字母：A .事件名/B .屬性名/C .對象名)
（2）加框處代碼有誤，請改正
Dim n As Integer '總人數
Dim dq(1 To 2000) As String
Dim xm(1 To 2000) As String
Dim tw(1 To 2000) As Single
Dim city(1 To 100) As String
Dim citynum(1 To 100) As Integer
Dim citys As Integer
Private Sub Form_ Load()
'該過程的作用從數據庫讀取n個患者的信息，并在列表框List1輸出所有患者的地區、姓名、體溫信息。
'dq數組存儲患者的地區信息
'xm數組存儲患者的姓名信息
'tw數組存儲患者的體溫信息
'代碼略
End Sub
Private Sub Command1_Click()
Dim i, j As Integer
Dim s As String, t As Integer
citys=0
For i=1 To n
If tw(i)>>=37.4 Then
For j = 1 To citys
If 　 　Then citynum(j) = citynum(j) +1:
Exit For
Next j
If j> citys Then citys =
citys +1: city(citys) = dq(i) : citynum(citys) = 1
End If
Next i
For i=1 To citys-1
For j = citys Toi + 1 Step -1
If Then
s = city(j): city(j) = city(i): city(i) = s
t = citynum(j): citynum(j) = citynum(i): citynum(i) = t
End If
Next j
Next i
For i=1 To citys
List2． AddItem city(i)+" "+Str( citynum(i))
Next i
End Sub
Private Sub Command2_ Click(　　)
Dimi， j As Integer
For 　 　
For j=1 To n
If dq(j) = city(i) And tw(j) >= 37.4 Then
List3． AddItem dq(j) + ""+ xm(j) + ""+ Str(tw(j))
End If
Next j
Next i
End Sub
（3）請在劃線處填入合適的代碼
16．（2022·浙江模擬）某城市有一條橫貫東西的大河，河有筆直的南北兩岸，岸上有位置各不相同的N個城市。城市按照地理位置先后進行從小到大編號，兩岸的部分城市結成--對一的友好城市，即南岸的每個城市有且僅有一個友好城市在北岸，且不同城市的友好城市不能相同。每對友好城市都向政府申請在河上開辟一條直線航道連接兩個城市，政府決定避免任意兩條航道交叉，以避免事故(如圖16-1所示)，請幫助政府做出一些批準和拒絕申請的決定，使得在保證任意兩條航道不相交的情況下，被批準的申請盡量多。
小王設計VB程序如下，在標簽．上顯示南岸城市的位置序號，例如“1，2，3，4，5，"(兩岸城市序號之間用逗號分隔)，然后按照南岸城市的順序在Text1中輸入相應的北岸友好城市序號“3，2，4，1，5，”，其中南岸1號城市與北岸3號城市為友好城市，南岸2號城市與北岸2號城市為友好城市，以此類推，單擊“分析”按鈕，顯示最多可批準的申請數量為3個(如圖16-2所示)，最終政府批準的3條航道為南岸城市2-北岸城市 2，南岸城市3-北岸城市 4，南岸城市5-北岸城市5。
（1）南岸城市標簽顯示“1，2，3，4，5，6，7，”，文本框Text1中輸人“3，1，2，5，6，4，7，"，最多批準申請數是　 　個。
（2）請在劃線處填入合適的代碼。
Private Sub Command1_ Click()
Dim b(1 To 100) As Integer 'b(i)表示編號i南岸城市對應的北岸友好城市
Dim c(1 To 100) As Integer
Dim n1, lenc As Integer
Dim i, j As Integer
Dim s1 As String
Dim st, ch As String
Dim flag As Boolean
n1=0
s1 = Text1. Text
st =""
For i = 1 To Len(s1)
ch = Mid(s1, i, 1)
If ch = "," Then
n1 =
n1+1
　 　
st =""
Else
st=st+ch
End If
Next i
c(1) = b(1)
lenc = 1
For i=2 To n1
If b(i) > c(lenc) Then
lenc=lenc+1
c(lenc) = b(i)
Else
j=lenc-1: flag=True
Do While j>= 1 And flag
If 　 　 Then
c(j+1)=b(i)
flag
= Flase
End If
j=j-1
Loop
If j = 0 And flag Then
　 　
End If
End If
Next i
Label1. Caption = "最多批準申請數：" + Str(lenc) + "個"
End Sub
答案解析部分
1．【答案】C
【知識點】信息及其特征；信息表達方式與表達技術
2．【答案】D
【知識點】網絡協議；網址與統一資源定位器；網絡資源的類型、下載與保存；網絡資源的檢索
3．【答案】B
【知識點】字符編碼
4．【答案】D
【知識點】數據表、字段、記錄的編輯
5．【答案】D
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作
6．【答案】C
【知識點】聲音、圖像、視頻編碼
7．【答案】B
【知識點】流程圖識讀
8．【答案】D
【知識點】運算符、基本運算與表達式
9．【答案】A
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
10．【答案】A
【知識點】分支結構語句及程序實現；循環結構語句及程序實現；常用標準函數
11．【答案】C
【知識點】查找算法及程序實現
12．【答案】B
【知識點】排序算法及程序實現
13．【答案】（1）=(J4/J$11-V4/V$11)* (J$11+V$11)/2
（2）B；D
（3）1
【知識點】表格數據的處理與計算
14．【答案】（1）B；E
（2）C；D
（3）右鍵單擊“吉祥物”圖層第一幀在舞臺上的實例“冰墩墩”，在彈出快捷菜單中選擇“分離”命令后，再次選擇“分離”命令，共執行兩次。
（4）on( press) {getUrl( *https：//www． beijing2022． cn”")； fscommand(“quit")}
【知識點】多媒體作品的規劃和設計；時間軸、幀、圖層、庫的概念及基本操作；常用影片控制函數的應用
15．【答案】（1）C
（2）dq(i) = city(j)；i=1Tocitys
（3）citynum(j) > > citynum(i)
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；排序算法及程序實現
16．【答案】（1）5
（2）b(n1) = Val(st)；b(i) > c(j)；c(1) = b(i)
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1登錄二一教育在線組卷平臺 助您教考全無憂
浙江省普通高中強基聯盟2021-2022學年高三信息技術3月統測試卷
一、選擇題(本大題共12小題，每小題2分，共24分。)
1．（2022·浙江模擬）下列有關信息和信息技術說法正確的是(　　)
A．信息的形態在傳遞過程中不能轉換
B．信息可以傳遞和共享，加工處理后的信息是真實可靠的
C．同一種信息內容可以采用不同的表達方式
D．信息可以脫離載體但不能脫離它所反映的事物
【答案】C
【知識點】信息及其特征；信息表達方式與表達技術
2．（2022·浙江模擬）下列關于網絡與瀏覽器的說法正確的是(　　)
A．網站的地址用URL(統一資源地址)標識，即該網站所有網頁都有相同的URL
B．實現將郵件從發件服務器發送到收件人客戶端的協議是SMTP協議
C．在搜索引擎中可以利用增加關鍵字的方式來擴大搜索范圍
D．選擇“網頁，全部”保存方式保存的網頁被打開后，不能在地址欄看到該網頁的URL
【答案】D
【知識點】網絡協議；網址與統一資源定位器；網絡資源的類型、下載與保存；網絡資源的檢索
3．（2022·浙江模擬）使用UltraEdit軟件查看字符內碼部分界面如圖所示。
下列說法正確的是(　　)
A．該字符串共有7個ASCI字符
B．字符“C”與字符“b”內碼的差值為1111B
C．字符“J”的十六進制內碼是“54”
D．“虎虎”兩字在存儲時占16bit
【答案】B
【知識點】字符編碼
4．（2022·浙江模擬）小使用Access軟件為班級采購設計了如下數據表。
下列說法正確的是(　　)
A．圖中的6個字段中，有5個可以作為主鍵
B．在數據表視圖下添加新的字段，可以撤銷
C．“價格”字段的數據類型可能是貨幣
D．將數據表導出到Excel，則該工作表共有5行數據
【答案】D
【知識點】數據表、字段、記錄的編輯
5．（2022·浙江模擬）用Photoshop軟件制作“虎嘯山林”作品，如下圖所示：
下列說法正確的是(　　)
A．可以直接對“背景”圖層使用自由變換操作
B．“虎嘯山林，氣吞天下”圖層進行柵格化后，才能添加圖層樣式
C．“魚”圖層的圖層樣式效果中，只有“投影”可見
D．“松樹”圖層可以移動到“魚”圖層的上方
【答案】D
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作
6．（2022·浙江模擬）有一副分辨率為1024*512的BMP圖像，其存儲容量約為0.5MB，則該幅圖像每個像素點能表達的顏色數量是(　　)
A．2種 B．8種 C．256種 D．65536種
【答案】C
【知識點】聲音、圖像、視頻編碼
7．（2022·浙江模擬）某算法的部分流程圖如圖所示，若輸人k的值為9，最終i，s的值分別為(　　)
A．11 0 B．11 -11 C．9 0 D．9 -9
【答案】B
【知識點】流程圖識讀
8．（2022·浙江模擬）VB表達式Abs(Int(-6.1)) Mod 42的值是(　　)
A．2 B．4 C．6 D．7
【答案】D
【知識點】運算符、基本運算與表達式
9．（2022·浙江模擬）在一篇英語短文中統計某字母開頭的單詞個數的程序，短文以“．”結束，單詞之間用空格分隔，單詞首寫沒有大寫字母，沒有縮寫或其他特殊形式。部分程序代碼如下所示：
s= Text1. Text '輸人的英語短文
t= Text2. Text '要統計的開頭字母
b=Len(s): f = True
For i=1 To b
c = Mid(s, i, 1)
If ① Then
n= n+1
②
ElseIf c = "" Or c= "." Then
③
Else
f = False
End If
Next i
Label1.Caption= "以" + t + "為開頭的單詞個數：" + Str(n)
為實現上述程序，劃線處應填入的代碼是(　　)
A．①f and c=t②f= False ③f= True
B．①f=False and c=t②f= False ③f= True
C．①c=t②f= True③f= False
D．①f= True and c=t②f= True③f= False
【答案】A
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
10．（2022·浙江模擬）有如下VB程序段：
a(0)= Int(Rnd() * 6+95)
For i=1 to 5
a(i)=a(i-1)-Int(Rnd() * 6)
If i Mod 2=0 then
a(i)=a(i)+a(i) Mod 2
End if
Next i
執行該程序段后，在下列選項中，a(0)~a(5)各元素值可能是(　　)
A．96，95，90，89，86，82 B．95，92，89，87，86，84
C．95，92，88，86，84，85 D．100，92，88，86，86，84
【答案】A
【知識點】分支結構語句及程序實現；循環結構語句及程序實現；常用標準函數
11．（2022·浙江模擬）某程序代碼如下所示：
i=1：j=100：Key=20
Do While i<=j
a = i+(j- i)\4： b= i+(j- i)\ 2：c=j-(j-i)\4
If a=Key Or b=Key Or c=Key Then ExitD o
If i<= Key And Key< a Then j= a- 1： w= w+ 1
If a< Key And Key < b Theni = a+ 1： j= b-1：x=x+1
If b < Key And Key < c Then i= b+1：j=c-l：y=y+1
If cLoop
n=w+x+y+z
程序運行結束后，變量n的值是(　　)
A．1 B．2 C．3 D．4
【答案】C
【知識點】查找算法及程序實現
12．（2022·浙江模擬）有如下VB程序段：
n = 8: flag = True: c=0: x=1: y=n
Do While flag
p = False: flag = False
For j=y To x+1 Step-1
c=c+1
If a(j) < a(j- 1) Then
t=a(j): a(j)=a(j-1): a(j-1)=t
x =j: flag =True
If p=False Then y=j: p=True
End If
Next j
If y <> n Then y= y+ 1
Loop
數組a(1)到a(8)值依次為“4，10，15，18，16，17，20，25”，程序運行后，變量c的值為(　　)
A．2 B．9 C．14 D．21
【答案】B
【知識點】排序算法及程序實現
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2022·浙江模擬）下面是某校高三年級第一學期期末和期初考試成績各班各科的平均分匯總表，其中“總平均”一行的值是利用平均值函數計算，現通過期初和期末考試成績，對各班各學科計算離差值(如圖13-1所示)，請回答下列問題：
（1）該校高三年級1班化學學科離差值計算公式(如圖13-1所示)，2班的地理學科離差值通過復制F15單元格公式得到的，則J16單元格的公式為　 　。
（2）下列說法正確的是 (多選)
A．在《期末考各科平均分匯總表》中篩選出選考地理的班級后，上述圖表會發生變化；
B．對《期末考各科平均分匯總表》以語文為關鍵字進降序排序后，上述圖表會發生變化；
C．該圖表的數據區域為A15：A22，C15：C22；
D．不小心把單元格B3的數據清除，則B15單元格的值會變成負數，而B16：B22區域的值幾乎不變；
（3）復制A13：K22區域到新工作表中，對數學學科執行篩選操作(如圖13-2所示) ，則篩選出　 　條記錄。
【答案】（1）=(J4/J$11-V4/V$11)* (J$11+V$11)/2
（2）B；D
（3）1
【知識點】表格數據的處理與計算
14．（2022·浙江模擬）使用Flash軟件制作“冬奧會．fla”多媒體作品，部分編輯界面(如圖14-1所示)：
（1）有關多媒體作品設計，下列說法正確的是 (多選)
A．確定作品的主題思想、結構類型、作品內容、作品效益、作品發布方式等均屬于創作需求分析；
B．Flash是以時間序列為基礎的多媒體創作工具；
C．文字腳本能作為多媒體作品制作的直接依據；
D．在結構設計時需要考慮屏幕布局合理規范和交互設計友好快速；
E．媒體元素分解將進一步細化“媒體素材”中所列出的媒體元素；
（2）“音樂”圖層的音樂是從第18 幀開始出現的，要使音樂一開始就出現，不重復播放，則下列說法正確的是 (多選)
A．選擇“音樂”圖層的第18幀執行“復制幀”，并在該圖層的第1幀執行“粘貼幀”命令；
B．選擇“音樂”圖層的第1幀執行“刪除關鍵幀”命令；
C．選擇“音樂”圖層的第1幀執行“清除關鍵幀”命令；
D．選擇“音樂”圖層的第18幀移至該圖層的第1幀；
E．選擇“音樂”圖層的第1幀執行“清除幀”命令；
（3）“吉祥物”圖層中文字“冰墩墩”漸變成冬奧吉祥物圖像冰墩墩，但是未創建成功，其第1幀和第15幀的內容分別(如圖14-2所示)，要成功創建，該如何修改？
（4）在播放生成的“冬奧會．swf”影片文件時，發現動畫播放到最后一幀時出現“看冬奧”按鈕，單擊按鈕鏈接到網址： https：//www．
beijing2022． cn，并關閉動畫，則“看冬奧”按鈕的動作腳本為：　 　。
【答案】（1）B；E
（2）C；D
（3）右鍵單擊“吉祥物”圖層第一幀在舞臺上的實例“冰墩墩”，在彈出快捷菜單中選擇“分離”命令后，再次選擇“分離”命令，共執行兩次。
（4）on( press) {getUrl( *https：//www． beijing2022． cn”")； fscommand(“quit")}
【知識點】多媒體作品的規劃和設計；時間軸、幀、圖層、庫的概念及基本操作；常用影片控制函數的應用
15．（2022·浙江模擬）某省級醫院為了掌握醫院內所有患者的體溫異常情況，以便做出分類醫治處理?，F編寫了一個VB程序，功能如下：程序運行時，在列表框List1中顯示從數據庫中讀取的所有患者的地區、姓名、體溫信息，單擊“統計人數”按鈕Command1 ，統計出各地區體溫異常(大于等于37.4 ℃)的人數，并按照體溫異常人數進行降序排序，在列表框List2中顯示這些體溫有異常的地區和對應的人數；單擊“顯示名單”按鈕Command2，列表框List3中顯示有異常體溫的地區的人員相關信息。
（1）代碼“Private Sub Command1_ Click(　　)”中的Command1是　 　(單選，填字母：A .事件名/B .屬性名/C .對象名)
（2）加框處代碼有誤，請改正
Dim n As Integer '總人數
Dim dq(1 To 2000) As String
Dim xm(1 To 2000) As String
Dim tw(1 To 2000) As Single
Dim city(1 To 100) As String
Dim citynum(1 To 100) As Integer
Dim citys As Integer
Private Sub Form_ Load()
'該過程的作用從數據庫讀取n個患者的信息，并在列表框List1輸出所有患者的地區、姓名、體溫信息。
'dq數組存儲患者的地區信息
'xm數組存儲患者的姓名信息
'tw數組存儲患者的體溫信息
'代碼略
End Sub
Private Sub Command1_Click()
Dim i, j As Integer
Dim s As String, t As Integer
citys=0
For i=1 To n
If tw(i)>>=37.4 Then
For j = 1 To citys
If 　 　Then citynum(j) = citynum(j) +1:
Exit For
Next j
If j> citys Then citys =
citys +1: city(citys) = dq(i) : citynum(citys) = 1
End If
Next i
For i=1 To citys-1
For j = citys Toi + 1 Step -1
If Then
s = city(j): city(j) = city(i): city(i) = s
t = citynum(j): citynum(j) = citynum(i): citynum(i) = t
End If
Next j
Next i
For i=1 To citys
List2． AddItem city(i)+" "+Str( citynum(i))
Next i
End Sub
Private Sub Command2_ Click(　　)
Dimi， j As Integer
For 　 　
For j=1 To n
If dq(j) = city(i) And tw(j) >= 37.4 Then
List3． AddItem dq(j) + ""+ xm(j) + ""+ Str(tw(j))
End If
Next j
Next i
End Sub
（3）請在劃線處填入合適的代碼
【答案】（1）C
（2）dq(i) = city(j)；i=1Tocitys
（3）citynum(j) > > citynum(i)
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；排序算法及程序實現
16．（2022·浙江模擬）某城市有一條橫貫東西的大河，河有筆直的南北兩岸，岸上有位置各不相同的N個城市。城市按照地理位置先后進行從小到大編號，兩岸的部分城市結成--對一的友好城市，即南岸的每個城市有且僅有一個友好城市在北岸，且不同城市的友好城市不能相同。每對友好城市都向政府申請在河上開辟一條直線航道連接兩個城市，政府決定避免任意兩條航道交叉，以避免事故(如圖16-1所示)，請幫助政府做出一些批準和拒絕申請的決定，使得在保證任意兩條航道不相交的情況下，被批準的申請盡量多。
小王設計VB程序如下，在標簽．上顯示南岸城市的位置序號，例如“1，2，3，4，5，"(兩岸城市序號之間用逗號分隔)，然后按照南岸城市的順序在Text1中輸入相應的北岸友好城市序號“3，2，4，1，5，”，其中南岸1號城市與北岸3號城市為友好城市，南岸2號城市與北岸2號城市為友好城市，以此類推，單擊“分析”按鈕，顯示最多可批準的申請數量為3個(如圖16-2所示)，最終政府批準的3條航道為南岸城市2-北岸城市 2，南岸城市3-北岸城市 4，南岸城市5-北岸城市5。
（1）南岸城市標簽顯示“1，2，3，4，5，6，7，”，文本框Text1中輸人“3，1，2，5，6，4，7，"，最多批準申請數是　 　個。
（2）請在劃線處填入合適的代碼。
Private Sub Command1_ Click()
Dim b(1 To 100) As Integer 'b(i)表示編號i南岸城市對應的北岸友好城市
Dim c(1 To 100) As Integer
Dim n1, lenc As Integer
Dim i, j As Integer
Dim s1 As String
Dim st, ch As String
Dim flag As Boolean
n1=0
s1 = Text1. Text
st =""
For i = 1 To Len(s1)
ch = Mid(s1, i, 1)
If ch = "," Then
n1 =
n1+1
　 　
st =""
Else
st=st+ch
End If
Next i
c(1) = b(1)
lenc = 1
For i=2 To n1
If b(i) > c(lenc) Then
lenc=lenc+1
c(lenc) = b(i)
Else
j=lenc-1: flag=True
Do While j>= 1 And flag
If 　 　 Then
c(j+1)=b(i)
flag
= Flase
End If
j=j-1
Loop
If j = 0 And flag Then
　 　
End If
End If
Next i
Label1. Caption = "最多批準申請數：" + Str(lenc) + "個"
End Sub
【答案】（1）5
（2）b(n1) = Val(st)；b(i) > c(j)；c(1) = b(i)
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1

展開更多......

收起↑