資源簡介

登錄二一教育在線組卷平臺 助您教考全無憂
浙江省湖州市2021-2022學年高三上學期信息技術高考考前模擬試卷（五）
一、選擇題（本大題共12小題，每小題2分，共24分。）
1．（2021·湖州模擬）下列有關信息及信息技術的說法，正確的是（　?。?br/>A．轉發量高，點贊率高的信息，其可信度一定高
B．文字、語言、圖形、圖像、人腦都是信息的載體
C．古代沒有電腦、沒有網絡，也沒有信息技術
D．語言、文字、聲音、網絡等都屬于信息的表達方式
【答案】B
【知識點】信息及其特征；信息技術的概念與關鍵技術；信息來源的選擇與判斷；信息表達方式與表達技術
2．（2021·湖州模擬）下列有關網絡與瀏覽器的說法，正確的是（　　）
A．實現登錄網頁發送郵件只需用到POP3協議與HTTP協議
B．在IE瀏覽器中，以“web檔案，單一文件（*.mht）”類型保存網頁，可以保存網頁中的圖片
C．為方便瀏覽常用的網頁，可以把網頁的內容添加到收藏夾中
D．IE瀏覽器可以對網頁文件(.html)進行編輯、解釋并執行
【答案】B
【知識點】網絡協議；網絡資源的類型、下載與保存；瀏覽器
3．（2021·湖州模擬）用Access軟件設計某賓館客房管理系統的數據庫，其中已建好的“客房入住情況實時數據表”用于存儲如圖所示的數據。
序號 時 間 層 房號 客房入住情況 屬性
1 2021-5-1 08: 30: 00 3 8305 已入住 普通單人房
2 2021-5-1 10: 30: 00 3 8310 未入住 普通雙人房
3 2021-5-1 12: 30: 00 4 8421 已預定 豪華單人房
4 2021-5-1 14: 35: 00 6 8618 未入住 普通雙房人
… … … … … …
下列說法正確的是（　　）
A．該數據表的字段數只能是6個
B．圖中“客房入住情況”列在該數據表中相應字段的數據類型可以是“是/否”
C．該數據表中“序號”字段的字段類型可以設置為“自動編號”類型
D．在該數據表所在的數據庫中，可以有兩個相同名字的數據表
【答案】C
【知識點】數據表、字段、記錄的概念；字段的數據類型
4．（2021·湖州模擬）下列關于信息編碼的說法，正確的是（　?。?br/>A．二進制數100101與十進制數35的值相等
B．某8位二進制數的最高位是0，最低位是1，將其轉換為十進制的最大值為127
C．已知大寫字母“B”的ASCII碼值為42H,則小寫字母“b”的ASCII碼值是74H
D．若字母“A”為全角輸入，則其在計算機中存儲空間為2bit
【答案】B
【知識點】進制及數制轉換；字符編碼
5．（2021·湖州模擬）用Photoshop軟件制作“花開富貴”作品，如圖所示
下列說法正確的是（　　）
A．可以直接用橡皮擦工具擦除“文字”圖層中的文字
B．復制“花開富貴”圖層的圖層樣式到“荷花”圖層，可以看到“內發光”效果
C．可以直接對“筆架”圖層進行重命名操作
D．可以將“荷花”圖層移動到“背景”圖層下方
【答案】C
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作
6．（2021·湖州模擬）一幅1024*768像素256色的BMP位圖保存為JPG后容量為59KB，則圖像的壓縮比約為（　?。?br/>A．18:1 B．10:1 C．20:1 D．13:1
【答案】D
【知識點】聲音、圖像、視頻編碼
7．（2021·湖州模擬）vb表達式 3^2-13 mod 5*2 的值是(　　)
A．3 B．6 C．9 D．11
【答案】B
【知識點】運算符、基本運算與表達式
8．（2021·湖州模擬）某算法的部分流程圖如圖所示，執行這部分流程后，變量C的值是(　　)
A．2 B．3 C．4 D．5
【答案】B
【知識點】流程圖識讀
9．（2021·湖州模擬）在文本框Text1中輸入十進制數x，將其轉換為十六進制數后在標簽Label1上輸出。VB程序段如下：
Dim x As Integer Dim s As String
Dim st As String
Dim t As Integer
st=“0123456789ABCDEF”
x = Val(Text1.Text)
Do While x > 0
Loop
Label1.Caption=s
方框中的代碼由以下三部分組成：
① x = x \ 16 ② s = Mid(st,t+1,1)+ s ③ t = x Mod 16
下列選項中代碼順序正確的是（　?。?br/>A．③②① B．①③② C．②③① D．②①③
【答案】A
【知識點】循環結構語句及程序實現；常用標準函數
10．（2021·湖州模擬）某對分查找的VB程序如下：
i = 1: j = 8 : n = 0
key = Val(Text1.Text)
Do While i <= j
m = (i + j- 1) \ 2
n=n+1
If a(m) >=key Then
i = m + 1
Else
j = m - 1
End If
Loop
Label1.Caption=Str(n)+Str(i)
數組元素a(1)到a(8)的值依次為“ 35,32,29,26,21,19,16,12”。在文本框Text1中輸入17，執行該程序段后，標簽Label1上顯示的內容是（　?。?br/>A．3 7 B．2 7 C．4 8 D．2 8
【答案】A
【知識點】查找算法及程序實現
11．（2021·湖州模擬）有如下VB程序段：
s1 = "567898765"
s2 = ""
n = Len(s1) \ 2
For i = 1 To n
If Mid(s1,i,1) < Mid(s1, n + 1, 1) Then
s2 = s2 + Mid(s1, i, 1)
Else
s2 = Mid(s1, n + i, 1) + s2
End If
Next i
Text1.Text = s2
A．98765 B．7898 C．5678 D．56789
【答案】C
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
12．（2021·湖州模擬）有如下VB程序段：
n = 8
m = Int(Rnd *5 + 1)
For i = 1 To n - m +1
k = i
For j = m To n - i
If a(j) > a(j + 1) Then
t = a(j) : a(j) = a(j + 1) : a(j + 1) = t
ElseIf a(j) > a(k) Then
k = j
End If
Next j
tmp = a(k) : a(k) = a(i) : a(i) = tmp
Next i
數組元素a(1)到 a(8)的值依次為“25,77,82,71,53,42，69，83”。經過該程序段加工后數組元素a(1)到a(8)的值不可能是（　　）
A．71 77 82 25 42 53 69 83 B．82 77 25 42 53 69 71 83
C．82 25 42 53 69 71 77 83 D．83 42 53 69 71 77 82 25
【答案】D
【知識點】排序算法及程序實現
二、非選擇題（本大題共4小題，4+8+7+7，共26分）
13．（2021·湖州模擬）收集2020年全國部分城市1-4月降雨量，并用Excel軟件對數據進行處理，如圖a所示。
圖a
請回答下列問題：
（1）區域G3:G36的數據要通過公式計算得到，在G3單元格中輸入公式　 　，再使用自動填充功能完成區域 G4:G36的計算。(rank函數的作用求某一個數值在某一區域內一組數值中的排名。rank函數的語法格式=rank(number,ref,[order])number
——參與排名的數值,ref ——排名的數值區域,order——有1和0兩種。0——從大到小排名（降序），1——從小到大排名（升序）。0默認不用輸入，得到的就是從大到小的排名。)
（2）對區域A2:G36進行相關數據分析，下列說法正確的是 (多選，填字母)
A．為了顯示華北地區4月降雨量大于60的城市，可以先對“地區”進行篩選選擇的值為“華北地區”，再對“4月”進行篩選，設置的篩選條件是大于60
B．為了找出3月降雨量最高的三個城市，可以對“3月”進行篩選，選擇“10個最大的值”并顯示最大的3項
C．若不小心刪除C列數據，G列2月降雨量排名的值也會隨之變化
D．從數據表中可以看出，華北地區1月幾乎不降雨
（3）要對2020年華東地區4月的降雨量為主要關鍵字降序排序 ，則所選擇的數據區域是　 　。
【答案】（1）=Rank( D3，$D$3: $D$36)或: =Rank( D3，D$3: D$36)
（2）B；D
（3）B8: G13
【知識點】表格數據的處理與計算；數據分析
14．（2021·湖州模擬）使用Flash軟件制作“中國茶文化”多媒體作品，部分編輯界面如圖所示。
請回答下列問題：
（1）在創作之前進行了作品設計，下列說法正確的是 （多選，填字母）
A．設計作品的主要界面、工作流程屬于系統結構設計
B．確定獲取原始素材的方式屬于應用需求分析
C．設計多媒體作品的第一步是模塊設計
D．包含制作中所需的各種素材文件名、獲取方法等信息的是媒體元素分解
E．確定該作品面向茶藝愛好者的學習屬于應用需求分析
（2）如圖所示，“音樂”圖層聲音的同步方式設置為“事件”，為使動畫播放到當前場景第24幀時“音樂”圖層中的音頻停止播放，在不影響其他動畫播放的前提下，下列方法可行的是　 　( 單選，填字母：A .把“音樂”圖層第48幀移動到第24幀 / B .在“詩句”圖層第24幀添加動作命令“StopAllSounds();”)，單擊第48幀中的“茶文化”按鈕實現在瀏覽器中顯示位于同一目錄下“茶文化.txt”文件的內容，則該按鈕實例上添加的動作腳本是on(press){　 　}(單選，填字母：A .gotoAndplay(“茶文化.txt”)；/ B .getURL(“茶文 化.txt”);).
（3）“詩句”圖層中的詩句在動畫播放2秒末才出現，要想讓動畫播放1秒后詩句就出現，并持續到本場景播放結束，該如何操作？
（4）“金魚”圖層中金魚都是“魚”元件的實例，在不改變其他動畫播放效果的前提下，使金魚一直出現在舞臺上，下列操作方法可行的是 (多選，填字母)
A．對“金魚”圖層第25幀執行“清除關鍵幀”操作
B．對“金魚”圖層第一幀執行“復制幀”操作，并在25幀執行“粘貼幀”操作
C．把“金魚”圖層第25幀移動到第48幀
D．在“金魚”圖層第25幀，把“魚”元件添加到舞臺相同位置上
E．對“金魚”圖層第25幀執行“清除幀”操作
【答案】（1）A；D；E
（2）B；B
（3）把“詩句”圖層第24幀移動到第13幀
（4）A；B；D
【知識點】多媒體作品的規劃和設計；時間軸、幀、圖層、庫的概念及基本操作；常用影片控制函數的應用
15．（2021·湖州模擬）為防止機密通知被盜，某公司制定了網上發通知的加密要求：
1）通知中包含的空格，標點符號等按原格式輸出
2）通知中涉及到字母的內容，所發文件的英語單詞全部都是倒序的。如：This is a dog!通知顯示內容為：sihT si a
god!
3）通知中涉及到數字的內容，把本組數字的最后一位移動到第一位,例如原文為1234，通知顯示內容為：4123
小王編寫了一個VB程序，實現加密功能，在文本框Text1中輸入原文，單擊“加密”按鈕Command1后，在文本框Text2中顯示加密后的密文。程序運行界面如圖所示。
實現上述功能的VB程序如下，請回答下列問題：
（1）若要修改按鈕Command1上顯示的文字，應修改的屬性名是　 　（單選，填字母：A .Text/B .Caption /C . List ）
（2）實現上述功能的VB程序代碼如下，請在劃線處填入合適的代碼
Private
Sub command1_Click()
Dim s As String, ch As String, rv As
String, rv1 As String
Dim i As Integer, j As Integer, k As
Integer
s = Text1.Text
rv = ""
i = 1
Do While True
ch = Mid(s, i, 1)
Do While
And i <= Len(s)
rv = rv + ch
i = i + 1
ch = Mid(s, i, 1)
Loop
j = i
ch =　 　
Do While sz(ch) And j <= Len(s)
j = j + 1
If j > Len(s) Then Exit Do
ch = Mid(s, j, 1)
Loop
rv1 = ""
rv1 = Mid(s, j - 1, 1) + Mid(s, i, j - i - 1)
rv = rv + rv1
i =　 　
If i > Len(s) Then Exit Do
Do While zf(ch) And j <= Len(s)
j = j + 1
If j > Len(s) Then Exit Do
ch = Mid(s, j, 1)
Loop
rv1 = ""
For k = i - 1 To j - 1
rv1 = Mid(s, k, 1) + rv1
Next k
rv = rv + rv1
If j <= Len(s) Then rv = rv + Mid(s, j, 1)
i = j + 1
If i > Len(s) Then Exit Do
Loop
Text2.Text = rv
End Sub
Function zf(s As String) As Boolean
zf = False
If s >= "A" And s <= "Z" Or s >= "a" And s <= "z" Then
zf = True
End If
End Function
Function sz(s As String) As Boolean
sz = False
If 　 　Then
sz = True
End If
End Function
（3）程序中加框處代碼有錯，請改正
【答案】（1）B
（2）Mid(s, j, 1)；j+1；s>="0"Ands<="g"
（3）Not zf(ch) And Not sz (ch)
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
16．（2021·湖州模擬）某校舉行拔河比賽，參賽選手隊列要求如下：
1)每班參賽男、女選手各5人
2)男女穿插站隊，即：男女男女……隊列
3)男生身高從低到高排列，女生身高從高到低排列
小明設計了一個程序實現如下功能：在文本框Text1中輸入學生身高，奇數位置上存放男生的身高，偶數位置上存放女生身高，兩個數之間用逗號隔開。單擊“排序”按鈕，使男生身高升序排序，結果輸出在文本框Text2中，女生按身高降序排序結果存放在文本框Text3中。
程序運行界面如圖所示
（1）請在劃線處填入合適的代碼
Private
Sub Command1_Click()
Dim n As Integer
Dim a(1 To 10) As Integer
Dim i As Integer, j As Integer, tmp As
Integer
Dim s1 As String, s2 As String, t As
Integer
Dim s As String, c As String
s = Text1.Text
n = 1
For i = 1 To Len(s)
c = Mid(s, i, 1)
If c >= "0" And c <=
"9" Then
a(n) = a(n) * 10 + Val(c)
Else
n = n + 1
End If
Next i
t = -1
For i = 1 To n - 2
For j =　 　
If a(i) * t < a(j) * t Then
tmp = a(i): a(i) = a(j): a(j) =
tmp
End If
Next j
　 　
Next i
For i = 1 To n
If i Mod 2 = 1 Then
s1 = s1 + Str(a(i))
Else
　 　
End If
Next i
Text2.Text = s1
Text3.Text = s2
End
Sub
（2）若男生甲和男生乙的身高都是 180，在Text1中的輸入順序是：男生甲，女生甲，男生乙……，則經過排序后，男生甲排在男生乙的 　 　(單選，填字母：A .前面 / B .后面)
【答案】（1）i+2 To n Step 2；t=-t；s2=s2+ Str(a(i))
（2）A
【知識點】排序算法及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1登錄二一教育在線組卷平臺 助您教考全無憂
浙江省湖州市2021-2022學年高三上學期信息技術高考考前模擬試卷（五）
一、選擇題（本大題共12小題，每小題2分，共24分。）
1．（2021·湖州模擬）下列有關信息及信息技術的說法，正確的是（　?。?br/>A．轉發量高，點贊率高的信息，其可信度一定高
B．文字、語言、圖形、圖像、人腦都是信息的載體
C．古代沒有電腦、沒有網絡，也沒有信息技術
D．語言、文字、聲音、網絡等都屬于信息的表達方式
2．（2021·湖州模擬）下列有關網絡與瀏覽器的說法，正確的是（　?。?br/>A．實現登錄網頁發送郵件只需用到POP3協議與HTTP協議
B．在IE瀏覽器中，以“web檔案，單一文件（*.mht）”類型保存網頁，可以保存網頁中的圖片
C．為方便瀏覽常用的網頁，可以把網頁的內容添加到收藏夾中
D．IE瀏覽器可以對網頁文件(.html)進行編輯、解釋并執行
3．（2021·湖州模擬）用Access軟件設計某賓館客房管理系統的數據庫，其中已建好的“客房入住情況實時數據表”用于存儲如圖所示的數據。
序號 時 間 層 房號 客房入住情況 屬性
1 2021-5-1 08: 30: 00 3 8305 已入住 普通單人房
2 2021-5-1 10: 30: 00 3 8310 未入住 普通雙人房
3 2021-5-1 12: 30: 00 4 8421 已預定 豪華單人房
4 2021-5-1 14: 35: 00 6 8618 未入住 普通雙房人
… … … … … …
下列說法正確的是（　?。?br/>A．該數據表的字段數只能是6個
B．圖中“客房入住情況”列在該數據表中相應字段的數據類型可以是“是/否”
C．該數據表中“序號”字段的字段類型可以設置為“自動編號”類型
D．在該數據表所在的數據庫中，可以有兩個相同名字的數據表
4．（2021·湖州模擬）下列關于信息編碼的說法，正確的是（　　）
A．二進制數100101與十進制數35的值相等
B．某8位二進制數的最高位是0，最低位是1，將其轉換為十進制的最大值為127
C．已知大寫字母“B”的ASCII碼值為42H,則小寫字母“b”的ASCII碼值是74H
D．若字母“A”為全角輸入，則其在計算機中存儲空間為2bit
5．（2021·湖州模擬）用Photoshop軟件制作“花開富貴”作品，如圖所示
下列說法正確的是（　　）
A．可以直接用橡皮擦工具擦除“文字”圖層中的文字
B．復制“花開富貴”圖層的圖層樣式到“荷花”圖層，可以看到“內發光”效果
C．可以直接對“筆架”圖層進行重命名操作
D．可以將“荷花”圖層移動到“背景”圖層下方
6．（2021·湖州模擬）一幅1024*768像素256色的BMP位圖保存為JPG后容量為59KB，則圖像的壓縮比約為（　?。?br/>A．18:1 B．10:1 C．20:1 D．13:1
7．（2021·湖州模擬）vb表達式 3^2-13 mod 5*2 的值是(　　)
A．3 B．6 C．9 D．11
8．（2021·湖州模擬）某算法的部分流程圖如圖所示，執行這部分流程后，變量C的值是(　　)
A．2 B．3 C．4 D．5
9．（2021·湖州模擬）在文本框Text1中輸入十進制數x，將其轉換為十六進制數后在標簽Label1上輸出。VB程序段如下：
Dim x As Integer Dim s As String
Dim st As String
Dim t As Integer
st=“0123456789ABCDEF”
x = Val(Text1.Text)
Do While x > 0
Loop
Label1.Caption=s
方框中的代碼由以下三部分組成：
① x = x \ 16 ② s = Mid(st,t+1,1)+ s ③ t = x Mod 16
下列選項中代碼順序正確的是（　?。?br/>A．③②① B．①③② C．②③① D．②①③
10．（2021·湖州模擬）某對分查找的VB程序如下：
i = 1: j = 8 : n = 0
key = Val(Text1.Text)
Do While i <= j
m = (i + j- 1) \ 2
n=n+1
If a(m) >=key Then
i = m + 1
Else
j = m - 1
End If
Loop
Label1.Caption=Str(n)+Str(i)
數組元素a(1)到a(8)的值依次為“ 35,32,29,26,21,19,16,12”。在文本框Text1中輸入17，執行該程序段后，標簽Label1上顯示的內容是（　?。?br/>A．3 7 B．2 7 C．4 8 D．2 8
11．（2021·湖州模擬）有如下VB程序段：
s1 = "567898765"
s2 = ""
n = Len(s1) \ 2
For i = 1 To n
If Mid(s1,i,1) < Mid(s1, n + 1, 1) Then
s2 = s2 + Mid(s1, i, 1)
Else
s2 = Mid(s1, n + i, 1) + s2
End If
Next i
Text1.Text = s2
A．98765 B．7898 C．5678 D．56789
12．（2021·湖州模擬）有如下VB程序段：
n = 8
m = Int(Rnd *5 + 1)
For i = 1 To n - m +1
k = i
For j = m To n - i
If a(j) > a(j + 1) Then
t = a(j) : a(j) = a(j + 1) : a(j + 1) = t
ElseIf a(j) > a(k) Then
k = j
End If
Next j
tmp = a(k) : a(k) = a(i) : a(i) = tmp
Next i
數組元素a(1)到 a(8)的值依次為“25,77,82,71,53,42，69，83”。經過該程序段加工后數組元素a(1)到a(8)的值不可能是（　?。?br/>A．71 77 82 25 42 53 69 83 B．82 77 25 42 53 69 71 83
C．82 25 42 53 69 71 77 83 D．83 42 53 69 71 77 82 25
二、非選擇題（本大題共4小題，4+8+7+7，共26分）
13．（2021·湖州模擬）收集2020年全國部分城市1-4月降雨量，并用Excel軟件對數據進行處理，如圖a所示。
圖a
請回答下列問題：
（1）區域G3:G36的數據要通過公式計算得到，在G3單元格中輸入公式　 　，再使用自動填充功能完成區域 G4:G36的計算。(rank函數的作用求某一個數值在某一區域內一組數值中的排名。rank函數的語法格式=rank(number,ref,[order])number
——參與排名的數值,ref ——排名的數值區域,order——有1和0兩種。0——從大到小排名（降序），1——從小到大排名（升序）。0默認不用輸入，得到的就是從大到小的排名。)
（2）對區域A2:G36進行相關數據分析，下列說法正確的是 (多選，填字母)
A．為了顯示華北地區4月降雨量大于60的城市，可以先對“地區”進行篩選選擇的值為“華北地區”，再對“4月”進行篩選，設置的篩選條件是大于60
B．為了找出3月降雨量最高的三個城市，可以對“3月”進行篩選，選擇“10個最大的值”并顯示最大的3項
C．若不小心刪除C列數據，G列2月降雨量排名的值也會隨之變化
D．從數據表中可以看出，華北地區1月幾乎不降雨
（3）要對2020年華東地區4月的降雨量為主要關鍵字降序排序 ，則所選擇的數據區域是　 　。
14．（2021·湖州模擬）使用Flash軟件制作“中國茶文化”多媒體作品，部分編輯界面如圖所示。
請回答下列問題：
（1）在創作之前進行了作品設計，下列說法正確的是 （多選，填字母）
A．設計作品的主要界面、工作流程屬于系統結構設計
B．確定獲取原始素材的方式屬于應用需求分析
C．設計多媒體作品的第一步是模塊設計
D．包含制作中所需的各種素材文件名、獲取方法等信息的是媒體元素分解
E．確定該作品面向茶藝愛好者的學習屬于應用需求分析
（2）如圖所示，“音樂”圖層聲音的同步方式設置為“事件”，為使動畫播放到當前場景第24幀時“音樂”圖層中的音頻停止播放，在不影響其他動畫播放的前提下，下列方法可行的是　 　( 單選，填字母：A .把“音樂”圖層第48幀移動到第24幀 / B .在“詩句”圖層第24幀添加動作命令“StopAllSounds();”)，單擊第48幀中的“茶文化”按鈕實現在瀏覽器中顯示位于同一目錄下“茶文化.txt”文件的內容，則該按鈕實例上添加的動作腳本是on(press){　 　}(單選，填字母：A .gotoAndplay(“茶文化.txt”)；/ B .getURL(“茶文 化.txt”);).
（3）“詩句”圖層中的詩句在動畫播放2秒末才出現，要想讓動畫播放1秒后詩句就出現，并持續到本場景播放結束，該如何操作？
（4）“金魚”圖層中金魚都是“魚”元件的實例，在不改變其他動畫播放效果的前提下，使金魚一直出現在舞臺上，下列操作方法可行的是 (多選，填字母)
A．對“金魚”圖層第25幀執行“清除關鍵幀”操作
B．對“金魚”圖層第一幀執行“復制幀”操作，并在25幀執行“粘貼幀”操作
C．把“金魚”圖層第25幀移動到第48幀
D．在“金魚”圖層第25幀，把“魚”元件添加到舞臺相同位置上
E．對“金魚”圖層第25幀執行“清除幀”操作
15．（2021·湖州模擬）為防止機密通知被盜，某公司制定了網上發通知的加密要求：
1）通知中包含的空格，標點符號等按原格式輸出
2）通知中涉及到字母的內容，所發文件的英語單詞全部都是倒序的。如：This is a dog!通知顯示內容為：sihT si a
god!
3）通知中涉及到數字的內容，把本組數字的最后一位移動到第一位,例如原文為1234，通知顯示內容為：4123
小王編寫了一個VB程序，實現加密功能，在文本框Text1中輸入原文，單擊“加密”按鈕Command1后，在文本框Text2中顯示加密后的密文。程序運行界面如圖所示。
實現上述功能的VB程序如下，請回答下列問題：
（1）若要修改按鈕Command1上顯示的文字，應修改的屬性名是　 ?。▎芜x，填字母：A .Text/B .Caption /C . List ）
（2）實現上述功能的VB程序代碼如下，請在劃線處填入合適的代碼
Private
Sub command1_Click()
Dim s As String, ch As String, rv As
String, rv1 As String
Dim i As Integer, j As Integer, k As
Integer
s = Text1.Text
rv = ""
i = 1
Do While True
ch = Mid(s, i, 1)
Do While
And i <= Len(s)
rv = rv + ch
i = i + 1
ch = Mid(s, i, 1)
Loop
j = i
ch =　 　
Do While sz(ch) And j <= Len(s)
j = j + 1
If j > Len(s) Then Exit Do
ch = Mid(s, j, 1)
Loop
rv1 = ""
rv1 = Mid(s, j - 1, 1) + Mid(s, i, j - i - 1)
rv = rv + rv1
i =　 　
If i > Len(s) Then Exit Do
Do While zf(ch) And j <= Len(s)
j = j + 1
If j > Len(s) Then Exit Do
ch = Mid(s, j, 1)
Loop
rv1 = ""
For k = i - 1 To j - 1
rv1 = Mid(s, k, 1) + rv1
Next k
rv = rv + rv1
If j <= Len(s) Then rv = rv + Mid(s, j, 1)
i = j + 1
If i > Len(s) Then Exit Do
Loop
Text2.Text = rv
End Sub
Function zf(s As String) As Boolean
zf = False
If s >= "A" And s <= "Z" Or s >= "a" And s <= "z" Then
zf = True
End If
End Function
Function sz(s As String) As Boolean
sz = False
If 　 　Then
sz = True
End If
End Function
（3）程序中加框處代碼有錯，請改正
16．（2021·湖州模擬）某校舉行拔河比賽，參賽選手隊列要求如下：
1)每班參賽男、女選手各5人
2)男女穿插站隊，即：男女男女……隊列
3)男生身高從低到高排列，女生身高從高到低排列
小明設計了一個程序實現如下功能：在文本框Text1中輸入學生身高，奇數位置上存放男生的身高，偶數位置上存放女生身高，兩個數之間用逗號隔開。單擊“排序”按鈕，使男生身高升序排序，結果輸出在文本框Text2中，女生按身高降序排序結果存放在文本框Text3中。
程序運行界面如圖所示
（1）請在劃線處填入合適的代碼
Private
Sub Command1_Click()
Dim n As Integer
Dim a(1 To 10) As Integer
Dim i As Integer, j As Integer, tmp As
Integer
Dim s1 As String, s2 As String, t As
Integer
Dim s As String, c As String
s = Text1.Text
n = 1
For i = 1 To Len(s)
c = Mid(s, i, 1)
If c >= "0" And c <=
"9" Then
a(n) = a(n) * 10 + Val(c)
Else
n = n + 1
End If
Next i
t = -1
For i = 1 To n - 2
For j =　 　
If a(i) * t < a(j) * t Then
tmp = a(i): a(i) = a(j): a(j) =
tmp
End If
Next j
　 　
Next i
For i = 1 To n
If i Mod 2 = 1 Then
s1 = s1 + Str(a(i))
Else
　 　
End If
Next i
Text2.Text = s1
Text3.Text = s2
End
Sub
（2）若男生甲和男生乙的身高都是 180，在Text1中的輸入順序是：男生甲，女生甲，男生乙……，則經過排序后，男生甲排在男生乙的 　 　(單選，填字母：A .前面 / B .后面)
答案解析部分
1．【答案】B
【知識點】信息及其特征；信息技術的概念與關鍵技術；信息來源的選擇與判斷；信息表達方式與表達技術
2．【答案】B
【知識點】網絡協議；網絡資源的類型、下載與保存；瀏覽器
3．【答案】C
【知識點】數據表、字段、記錄的概念；字段的數據類型
4．【答案】B
【知識點】進制及數制轉換；字符編碼
5．【答案】C
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作
6．【答案】D
【知識點】聲音、圖像、視頻編碼
7．【答案】B
【知識點】運算符、基本運算與表達式
8．【答案】B
【知識點】流程圖識讀
9．【答案】A
【知識點】循環結構語句及程序實現；常用標準函數
10．【答案】A
【知識點】查找算法及程序實現
11．【答案】C
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
12．【答案】D
【知識點】排序算法及程序實現
13．【答案】（1）=Rank( D3，$D$3: $D$36)或: =Rank( D3，D$3: D$36)
（2）B；D
（3）B8: G13
【知識點】表格數據的處理與計算；數據分析
14．【答案】（1）A；D；E
（2）B；B
（3）把“詩句”圖層第24幀移動到第13幀
（4）A；B；D
【知識點】多媒體作品的規劃和設計；時間軸、幀、圖層、庫的概念及基本操作；常用影片控制函數的應用
15．【答案】（1）B
（2）Mid(s, j, 1)；j+1；s>="0"Ands<="g"
（3）Not zf(ch) And Not sz (ch)
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
16．【答案】（1）i+2 To n Step 2；t=-t；s2=s2+ Str(a(i))
（2）A
【知識點】排序算法及程序實現
二一教育在線組卷平臺（zujuan.21cnjy.com）自動生成 1 / 1

展開更多......

收起↑