資源簡介

浙江省麗水市普通高中2020-2021學年高二下學期信息技術期末教學質量監控試卷
一、選擇題（本大題共12小題，每小題2分，共24分。）
1．（2021高二下·麗水期末）下列有關信息和信息技術的說法，錯誤的是（　　）
A．信息在傳遞和共享的過程中不會產生損耗
B．信息經過加工、處理后，往往具有更高的價值
C．常用的信息表達方式有語言、文字、圖像、書籍、報紙、網絡等
D．現代信息技術包括微電子技術、光電子技術、現代通信技術、計算機網絡等
【答案】C
【知識點】信息及其特征；信息技術的概念與關鍵技術；信息表達方式與表達技術
2．（2021高二下·麗水期末）下列關于信息安全的說法，正確的是（　　）
A．計算機安裝了殺毒軟件，就不會被病毒感染
B．經常修改信息系統的密碼，有利于提高信息的安全性
C．某支付軟件使用人臉識別支付，可確保財產絕對安全
D．在信息傳遞時使用壓縮技術主要是為了提高信息的安全性
【答案】B
【知識點】信息系統安全防護
3．（2021高二下·麗水期末）要創建一個名為“報名表”的 Access 數據表，存放下列表格數據：
序號 班級 姓名 性別 參賽項目1 參賽項目2 參賽項目3
1 201 張忠明 男 100 米 鉛球 跳遠
2 202 李敏 女 800 米 跳高 鐵餅
… … … … … … …
下列關于“報名表”數據表的描述，正確的是（　　）
A．該數據表中必定有一個名為“班級”的字段
B．該數據表不能通過“導入Excel 電子表格”的操作來添加記錄
C．“報名表”的字段順序與圖中數據的列順序可以不一致
D．“報名表”中同一字段的字段值的數據類型不一定相同
【答案】C
【知識點】數據表、字段、記錄的編輯；字段的數據類型
4．（2021高二下·麗水期末）使用 UltraEdit 軟件查看字符內碼，部分界面如圖所示。
下列說法正確的是（　　）
A．圖中內碼所對應的 ASCII 碼字符共有 7 個
B．內碼十六進制“48”轉換為十進制為 72
C．圖中內碼所對應的字符可能是“happy！”
D．內碼“70”是字符“p”的十六進制內碼，則字符“o”的十六進制內碼為“69”
【答案】B
【知識點】進制及數制轉換；字符編碼
5．（2021高二下·麗水期末）用Photoshop軟件制作“致青春”作品，部分界面如圖所示。
下列說法正確的是（　　）
A．可以使用文字工具更改“青春有夢”圖層文字的大小
B．可以使用油漆桶工具修改“勇敢前行”圖層中“前”字的顏色
C．可以拷貝“青春有夢”圖層的圖層樣式，粘貼到“背景”圖層
D．移動“拳頭”圖層到“勇敢前行”圖層上方，不影響圖像的呈現效果
【答案】D
【知識點】圖層及圖層的基本操作
6．（2021高二下·麗水期末）某音頻文件相關參數如圖所示。
則該音頻文件存儲容量約為（　　）
A．0.5MB B．0.84MB C．1.68MB D．13.44MB
【答案】C
【知識點】聲音、圖像、視頻編碼
7．（2021高二下·麗水期末）下列 VB 表達式值最大的是（　　）
A．Sqr(Abs(-9.7)) B．Len(Mid("麗水 2021",3,2))
C．Int(Rnd()*3+1) D．123 Mod 100 \10
【答案】A
【知識點】運算符、基本運算與表達式
8．（2021高二下·麗水期末）某算法的部分流程圖如圖所示。執行這部分流程后，輸出ｓ的值是（　　）
A．1101 B．0010 C．1111 D．1110
【答案】A
【知識點】流程圖識讀
9．（2021高二下·麗水期末）有如下VB程序段：
s1 = "python": s2 = "visual" i = 1: j = 1: s = ""
Do While i <= Len(s1) And j <= Len(s2)
If Mid(s1, i, 1) >= Mid(s2, j, 1) Then s = s + Mid(s1, i, 1)
Else
j = j + 1
End If
i = i + 1
Loop
執行該程序后，ｊ的值是（　　）
A．2 B．3 C．5 D．7
【答案】C
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
10．（2021高二下·麗水期末）超級素數是指一個素數，每次去掉最后面的一個數字，依然為素數。如 37，去掉最后的7 后，3 仍為素數。統計 1000 以內的超級素數的個數的 VB 程序段如下：
For i = 2 To 1000
flag = True：s = i
Do While flag And s >1
For j = 2 To Int(Sqr(s))
If s Mod j = 0 Then
Exit For
End If
Next j
Loop
If flag And s<>1 Then
End If
Next i
Label1.caption=str(c)
上述程序段中方框處可選語句為：
①flag = False ②c = c + 1 ③s = s \ 10
則（1）（2）（3）處語句依次可為（　　）
A．①②③ B．②①③ C．③②① D．①③②
【答案】D
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
11．（2021高二下·麗水期末）某算法的VB程序段如下：
i=1: flag=True
Do While i<6 And flag=True
flag=False
For j =6 To i+1 step -1
If a(j) > a(j-1) Then
t = a(j): a(j) = a(j-1): a(j-1) = t
flag=True
End If
Next j
f(i)=1 'f 數組初值均為 0
i=i+1
Loop
For i=1 To 6
s=s+f(i)
Next i
數組元素a(1)到a(6)的值依次為“17,79,93,55,15,13”，執行該程序段后，s的值是（　　）
A．3 B．4 C．5 D．6
【答案】B
【知識點】排序算法及程序實現
12．（2021高二下·麗水期末）某對分查找算法的VB程序段如下：
key=Val(Text1.Text)
i=1: j=8
Text2.Text=“ ”
Do While i<=j
m=Int(i+j)/2)
If key=a(m) Then Exit Do 'Exit Do 表示退出循環
If keyText2.Text=Str(a(m))+Text2.Text
Loop
數組元素a(1)到a(8)的數據依次為“12，25，36，47，68，79，87，99”，文本框Text1中輸入的值是12，執行該程序段后，文本框Text2中顯示的是（　　）
A．68 47 25 12 B．47 25 12 C．68 36 12 D．25 47
【答案】D
【知識點】查找算法及程序實現
二、非選擇題（本大題共4小題，4+8+7+7，共26分。）
13．（2021高二下·麗水期末）小李收集了某書店主要暢銷書銷售情況的數據，并使用Excel軟件對數據進行處理，如圖所示。
（1）區域G3:G100的數據是通過公式計算得到的，在G3單元格中輸入公式　 　，再利用自動填充功能完成區域G4:G100的計算。
（2）對銷售情況的數據以“定價（元）”為主要關鍵字按降序進行排序，則排序的數據區域是　 　；
（3）若在上圖所示工作表中對數據進行進一步的操作，下列說法正確的是 （多選，填字母）。
A．若要制作一張關于《西游記》四個季度銷量情況折線圖，則圖表的數據區域是A2:A3,C2:F3
B．在“書籍名稱”列前插入一列，“年銷售金額”列的數值不會發生變化
C．將對B3單元格的數值小數位數設置為0，則G3單元格的數值將變小
D．分別篩選出第一季度銷量和第二季度銷量最大的3項，即可獲得上半年銷量排在前三的書籍
【答案】（1）=B3*SUM(C3:F3)
（2）A2:G100或A3:G100或A2:F100或A3:F100
（3）A；B
【知識點】表格數據的處理與計算；表格數據的圖表呈現
14．（2021高二下·麗水期末）小李使用Flash軟件創作“致青春”多媒體作品。請回答下列問題：
（1）在制作動畫之前，小李先進行了作品的設計，下列屬于需求分析的是　 　（多選，填字母：A .確定作品面向對象為高中學生 / B .確定作品的發布方式 /C .編寫場景的制作腳本 / D .設計作品的主要界面 / E .制作一張媒體元素分解表）
（2）“main”場景制作腳本如下表所示：”
場景名：main 序號類別：2 進入方式：由“load”場景單擊“Erter”按鈕進入
呈現方式： ①標題在舞臺左上角出現，第1秒從完全透明到完全顯示的效果，最后1秒從完全顯示到完全透明的效果。 ②“女孩”從舞臺的左側駛向右側。 ③“退出”按鈕位于舞臺右下方，單擊該按鈕，播放下一場景動畫，并停止聲音的播放 ④其他動畫略。 吳觀順序說明： ①開始出現背景、女孩、標題和聲音； ②最后停止動畫播放，并出現“退出”按鈕“女孩”依然在騎行運動，聲音繼續播放。
使用Flash軟件編輯界面如圖a所示：
圖a
“女孩”圖層關鍵幀中的對象是由“女孩”元件生成的實例，則該圖層第1幀到第60幀的補間類型是　 　（單選，填字母：A .動畫補間動畫 / B .形狀補間動畫 / C . 逐幀動畫）。“聲音”圖層的聲音同步屬性設置為　 　（選填：事件 / 數據流）。
（3）測試當前場景時，“標題”圖層中的“文字”實例并沒有實現淡出直至消失的效果，要實現該效果，則應進行的操作是　 　。
（4）測試影片時，彈出如圖b所示的錯誤提示，下列說法正確的是　 　（多選，填字母：A .“按鈕”圖層第60幀上沒有添加按鈕實例 / B .添加在按鈕實例中的動作命令有誤
/C .stopAllSounds()；命令無需添加參數 /D .“按鈕”圖層最后一幀沒有添加stop();/E .把按鈕中的命令修改為on (release) {play();stopAllSounds();}也能達到腳本要求）。
圖b
【答案】（1）AB
（2）A；事件
（3）在“標題”圖層第60幀執行“插入關鍵幀”操作，并將“文字”實例的Alpha值改為0%或在“標題”圖層的最后一幀執行“插入關鍵幀”操作，并將“文字”實例的Alpha值改為0%或在“標題”圖層的第48幀執行“復制幀”操作，第60幀執行“粘貼幀”操作，并將“文字”實例的Alpha值改為0%
（4）BCE
【知識點】多媒體作品的規劃和設計；動畫的類型；時間軸、幀、圖層、庫的概念及基本操作；程序的調試及運行；聲音同步屬性設置
15．（2021高二下·麗水期末）某地區開展新冠疫苗接種工作，疫苗共有ABC三類，數量有限。符合下列條件的人員，可安排接種：①待接種第一針的；②已接種某類疫苗30天以上可接種該類第二針的。待接種人員按優先級進行排序（優先級數值小的表示優先級高）。
編寫程序，實現接種序號發放的功能：運行程序，列表框List1中顯示待安排接種人員信息（其中A32表示已經接種A類疫苗32天，B2表示已經接種B類疫苗2天，以此類推；F表示待接種第一針），在文本框Text1中輸入可使用的疫苗情況（A-100代表有A類疫苗100劑），單擊“序號發放”按鈕Command1，在列表框List2中顯示持接種序號人員信息。程序運行界面如圖所示：
請回答下列問題：
（1）要使命令按鈕Command1上顯示“序號發放”，是通過設置其　 　屬性得到。
（2）請在劃線處填入合適的代碼。
Dim bh(1 to 2000）As Integer, yxj(1 to 2000) As
Integer
Dim xm(1 to 2000) As String,qk(1 to 2000) As String
Dim num As Integer
Private Sub Form_Load()
'讀取編號，優先級，姓名，接種情況分別存在bh,yxj,xm,qk 數組并輸出到List1中
'接種總人數存入num，代碼略
End Sub
Private Sub Command1_click(　　)
Dim s As
String, p As String, x As String
Dim n As
Integer, i As Integer, j As Integer, k As Integer, t As Integer
s =
Text1.Text
p =
Mid(s,1,1)
n =
Val(Mid(s, 3, Len(s) - 2))
For i = 1
To n
　 　
For j
= i + 1 To num
If
Then k= j
ElseIf check(qk(k), p) = True Or check(qk(j), p) = True Then
If yxj(k) > yxj(j) Then k = j
End If
Next j
If k<> i Then
t = bh(k): bh(k) = bh(i): bh(i) = t
t = yxj(k): yxj(k) = yxj(i): yxj(i) = t
x = xm(k): xm(k) = xm(i): xm(i) = x
x = qk(k): qk(k) = qk(i): qk(i) = x
End If
Next i
List2.AddItem "接種序號" + " " + "姓名"
For i = 1 To n
List2.AddItem " " + Str(i) + " " + xm(i)
Next i
End Sub
'check 函數用于判斷是否符合該類疫苗的接種條件
Function check(ch As String, key As String) As Boolean
If　 　Then
check = True
Else
If Mid(ch, 1, 1) = key And Val(Mid(ch, 2, Len(ch) - 1)) > 30 Then check = True
Else
check = False
End If
End If
End Function
（3）程序中加框處代碼有錯，請改正。
【答案】（1）Caption
（2）k=i；ch= " F " 或 Mid(ch,1,1)= " F "
（3）check(qk(k), p)=True And check(qk(j), p)=True
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；過程與自定義函數；排序算法及程序實現
16．（2021高二下·麗水期末）將某字符串按“V”的形狀進行變換，其變換方法描述如下：
1）將字符串中的字母轉換為大寫字母后按升序進行排序；
2）根據給定的行數，將字符串從上往下、從左到右進行“V”字形排列；
3）從左往右逐行讀取字符串并輸出；
例如：輸入字符串為：“NoThingIsImpossible”，
經過排序得到字符串：“BEGHIIIILMNNOOPSSST”，行數輸入為3時，排列如下：
經過變換后得到新字符串為：“BILOSEHIIMNOSSGINPT”。
編寫VB程序，實現如下功能:在文本框Text1中輸入行數，在文本框Text2中輸入字符串（限定字母），單擊“變換”按鈕Command1，在標簽Label3中輸出變換結果。程序運行效果如圖所示。
（1）若小明在文本框Text1中輸入3，在文本框Text2中輸入的的字符串為“NOTHING”，則在標簽框Label3中輸出的結果為　 　。
（2）實現該功能的VB程序如下，請在劃線處填入合適的代碼。
Private Sub Command1_Click(　　)
Dim n As
Integer, i As Integer, j As Integer Dim s As String, result As String
Dim a(1 To
26) As Integer, res(1 To 100) As String
Dim flag
As Integer '變量flag用于上下換方向
n =
Val(Text1.Text) s = conv(Text2.Text)
For i = 1
To Len(s)
c =
Mid(s, i, 1)
　 　
Next i
s =
""
For i = 1
To 26
For j
= 1 To a(i)
s
= s + Chr(i + 64)
Next j
Next i
j = 1:
flag = -1
For i = 1
To Len(s)
c =
Mid(s, i, 1)
res(j)
= res(j) + c
If　 　 Then flag = -flag
End If
　 　
Next i
For i = 1
To n
result
= result + res(i)
Next i
Label3.Caption
= result
End Sub
'小寫字母轉大寫
Function conv(word As String) As String Dim i As
Integer, c As String, s As String
For i = 1
To Len(word)
c =
Mid(word, i, 1)
If c
>= "a" And c <= "z" Then c = Chr(Asc(c) - 32)
s = s
+ c
Next i
conv = s
End Function
【答案】（1）GNHNOIT
（2）a(Asc(c)-64) = a(Asc(c)-64)+1 或a(Asc(c)-Asc(“A”)+1) = a(Asc(c)-Asc(“A”)+1)+1；j=1 Or j=n或 j Mod n < 2或 j Mod n < =1 或i Mod (n-1)=1或其他等價答案；j=j+flag
【知識點】過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
1 / 1浙江省麗水市普通高中2020-2021學年高二下學期信息技術期末教學質量監控試卷
一、選擇題（本大題共12小題，每小題2分，共24分。）
1．（2021高二下·麗水期末）下列有關信息和信息技術的說法，錯誤的是（　　）
A．信息在傳遞和共享的過程中不會產生損耗
B．信息經過加工、處理后，往往具有更高的價值
C．常用的信息表達方式有語言、文字、圖像、書籍、報紙、網絡等
D．現代信息技術包括微電子技術、光電子技術、現代通信技術、計算機網絡等
2．（2021高二下·麗水期末）下列關于信息安全的說法，正確的是（　　）
A．計算機安裝了殺毒軟件，就不會被病毒感染
B．經常修改信息系統的密碼，有利于提高信息的安全性
C．某支付軟件使用人臉識別支付，可確保財產絕對安全
D．在信息傳遞時使用壓縮技術主要是為了提高信息的安全性
3．（2021高二下·麗水期末）要創建一個名為“報名表”的 Access 數據表，存放下列表格數據：
序號 班級 姓名 性別 參賽項目1 參賽項目2 參賽項目3
1 201 張忠明 男 100 米 鉛球 跳遠
2 202 李敏 女 800 米 跳高 鐵餅
… … … … … … …
下列關于“報名表”數據表的描述，正確的是（　　）
A．該數據表中必定有一個名為“班級”的字段
B．該數據表不能通過“導入Excel 電子表格”的操作來添加記錄
C．“報名表”的字段順序與圖中數據的列順序可以不一致
D．“報名表”中同一字段的字段值的數據類型不一定相同
4．（2021高二下·麗水期末）使用 UltraEdit 軟件查看字符內碼，部分界面如圖所示。
下列說法正確的是（　　）
A．圖中內碼所對應的 ASCII 碼字符共有 7 個
B．內碼十六進制“48”轉換為十進制為 72
C．圖中內碼所對應的字符可能是“happy！”
D．內碼“70”是字符“p”的十六進制內碼，則字符“o”的十六進制內碼為“69”
5．（2021高二下·麗水期末）用Photoshop軟件制作“致青春”作品，部分界面如圖所示。
下列說法正確的是（　　）
A．可以使用文字工具更改“青春有夢”圖層文字的大小
B．可以使用油漆桶工具修改“勇敢前行”圖層中“前”字的顏色
C．可以拷貝“青春有夢”圖層的圖層樣式，粘貼到“背景”圖層
D．移動“拳頭”圖層到“勇敢前行”圖層上方，不影響圖像的呈現效果
6．（2021高二下·麗水期末）某音頻文件相關參數如圖所示。
則該音頻文件存儲容量約為（　　）
A．0.5MB B．0.84MB C．1.68MB D．13.44MB
7．（2021高二下·麗水期末）下列 VB 表達式值最大的是（　　）
A．Sqr(Abs(-9.7)) B．Len(Mid("麗水 2021",3,2))
C．Int(Rnd()*3+1) D．123 Mod 100 \10
8．（2021高二下·麗水期末）某算法的部分流程圖如圖所示。執行這部分流程后，輸出ｓ的值是（　　）
A．1101 B．0010 C．1111 D．1110
9．（2021高二下·麗水期末）有如下VB程序段：
s1 = "python": s2 = "visual" i = 1: j = 1: s = ""
Do While i <= Len(s1) And j <= Len(s2)
If Mid(s1, i, 1) >= Mid(s2, j, 1) Then s = s + Mid(s1, i, 1)
Else
j = j + 1
End If
i = i + 1
Loop
執行該程序后，ｊ的值是（　　）
A．2 B．3 C．5 D．7
10．（2021高二下·麗水期末）超級素數是指一個素數，每次去掉最后面的一個數字，依然為素數。如 37，去掉最后的7 后，3 仍為素數。統計 1000 以內的超級素數的個數的 VB 程序段如下：
For i = 2 To 1000
flag = True：s = i
Do While flag And s >1
For j = 2 To Int(Sqr(s))
If s Mod j = 0 Then
Exit For
End If
Next j
Loop
If flag And s<>1 Then
End If
Next i
Label1.caption=str(c)
上述程序段中方框處可選語句為：
①flag = False ②c = c + 1 ③s = s \ 10
則（1）（2）（3）處語句依次可為（　　）
A．①②③ B．②①③ C．③②① D．①③②
11．（2021高二下·麗水期末）某算法的VB程序段如下：
i=1: flag=True
Do While i<6 And flag=True
flag=False
For j =6 To i+1 step -1
If a(j) > a(j-1) Then
t = a(j): a(j) = a(j-1): a(j-1) = t
flag=True
End If
Next j
f(i)=1 'f 數組初值均為 0
i=i+1
Loop
For i=1 To 6
s=s+f(i)
Next i
數組元素a(1)到a(6)的值依次為“17,79,93,55,15,13”，執行該程序段后，s的值是（　　）
A．3 B．4 C．5 D．6
12．（2021高二下·麗水期末）某對分查找算法的VB程序段如下：
key=Val(Text1.Text)
i=1: j=8
Text2.Text=“ ”
Do While i<=j
m=Int(i+j)/2)
If key=a(m) Then Exit Do 'Exit Do 表示退出循環
If keyText2.Text=Str(a(m))+Text2.Text
Loop
數組元素a(1)到a(8)的數據依次為“12，25，36，47，68，79，87，99”，文本框Text1中輸入的值是12，執行該程序段后，文本框Text2中顯示的是（　　）
A．68 47 25 12 B．47 25 12 C．68 36 12 D．25 47
二、非選擇題（本大題共4小題，4+8+7+7，共26分。）
13．（2021高二下·麗水期末）小李收集了某書店主要暢銷書銷售情況的數據，并使用Excel軟件對數據進行處理，如圖所示。
（1）區域G3:G100的數據是通過公式計算得到的，在G3單元格中輸入公式　 　，再利用自動填充功能完成區域G4:G100的計算。
（2）對銷售情況的數據以“定價（元）”為主要關鍵字按降序進行排序，則排序的數據區域是　 　；
（3）若在上圖所示工作表中對數據進行進一步的操作，下列說法正確的是 （多選，填字母）。
A．若要制作一張關于《西游記》四個季度銷量情況折線圖，則圖表的數據區域是A2:A3,C2:F3
B．在“書籍名稱”列前插入一列，“年銷售金額”列的數值不會發生變化
C．將對B3單元格的數值小數位數設置為0，則G3單元格的數值將變小
D．分別篩選出第一季度銷量和第二季度銷量最大的3項，即可獲得上半年銷量排在前三的書籍
14．（2021高二下·麗水期末）小李使用Flash軟件創作“致青春”多媒體作品。請回答下列問題：
（1）在制作動畫之前，小李先進行了作品的設計，下列屬于需求分析的是　 　（多選，填字母：A .確定作品面向對象為高中學生 / B .確定作品的發布方式 /C .編寫場景的制作腳本 / D .設計作品的主要界面 / E .制作一張媒體元素分解表）
（2）“main”場景制作腳本如下表所示：”
場景名：main 序號類別：2 進入方式：由“load”場景單擊“Erter”按鈕進入
呈現方式： ①標題在舞臺左上角出現，第1秒從完全透明到完全顯示的效果，最后1秒從完全顯示到完全透明的效果。 ②“女孩”從舞臺的左側駛向右側。 ③“退出”按鈕位于舞臺右下方，單擊該按鈕，播放下一場景動畫，并停止聲音的播放 ④其他動畫略。 吳觀順序說明： ①開始出現背景、女孩、標題和聲音； ②最后停止動畫播放，并出現“退出”按鈕“女孩”依然在騎行運動，聲音繼續播放。
使用Flash軟件編輯界面如圖a所示：
圖a
“女孩”圖層關鍵幀中的對象是由“女孩”元件生成的實例，則該圖層第1幀到第60幀的補間類型是　 　（單選，填字母：A .動畫補間動畫 / B .形狀補間動畫 / C . 逐幀動畫）。“聲音”圖層的聲音同步屬性設置為　 　（選填：事件 / 數據流）。
（3）測試當前場景時，“標題”圖層中的“文字”實例并沒有實現淡出直至消失的效果，要實現該效果，則應進行的操作是　 　。
（4）測試影片時，彈出如圖b所示的錯誤提示，下列說法正確的是　 　（多選，填字母：A .“按鈕”圖層第60幀上沒有添加按鈕實例 / B .添加在按鈕實例中的動作命令有誤
/C .stopAllSounds()；命令無需添加參數 /D .“按鈕”圖層最后一幀沒有添加stop();/E .把按鈕中的命令修改為on (release) {play();stopAllSounds();}也能達到腳本要求）。
圖b
15．（2021高二下·麗水期末）某地區開展新冠疫苗接種工作，疫苗共有ABC三類，數量有限。符合下列條件的人員，可安排接種：①待接種第一針的；②已接種某類疫苗30天以上可接種該類第二針的。待接種人員按優先級進行排序（優先級數值小的表示優先級高）。
編寫程序，實現接種序號發放的功能：運行程序，列表框List1中顯示待安排接種人員信息（其中A32表示已經接種A類疫苗32天，B2表示已經接種B類疫苗2天，以此類推；F表示待接種第一針），在文本框Text1中輸入可使用的疫苗情況（A-100代表有A類疫苗100劑），單擊“序號發放”按鈕Command1，在列表框List2中顯示持接種序號人員信息。程序運行界面如圖所示：
請回答下列問題：
（1）要使命令按鈕Command1上顯示“序號發放”，是通過設置其　 　屬性得到。
（2）請在劃線處填入合適的代碼。
Dim bh(1 to 2000）As Integer, yxj(1 to 2000) As
Integer
Dim xm(1 to 2000) As String,qk(1 to 2000) As String
Dim num As Integer
Private Sub Form_Load()
'讀取編號，優先級，姓名，接種情況分別存在bh,yxj,xm,qk 數組并輸出到List1中
'接種總人數存入num，代碼略
End Sub
Private Sub Command1_click(　　)
Dim s As
String, p As String, x As String
Dim n As
Integer, i As Integer, j As Integer, k As Integer, t As Integer
s =
Text1.Text
p =
Mid(s,1,1)
n =
Val(Mid(s, 3, Len(s) - 2))
For i = 1
To n
　 　
For j
= i + 1 To num
If
Then k= j
ElseIf check(qk(k), p) = True Or check(qk(j), p) = True Then
If yxj(k) > yxj(j) Then k = j
End If
Next j
If k<> i Then
t = bh(k): bh(k) = bh(i): bh(i) = t
t = yxj(k): yxj(k) = yxj(i): yxj(i) = t
x = xm(k): xm(k) = xm(i): xm(i) = x
x = qk(k): qk(k) = qk(i): qk(i) = x
End If
Next i
List2.AddItem "接種序號" + " " + "姓名"
For i = 1 To n
List2.AddItem " " + Str(i) + " " + xm(i)
Next i
End Sub
'check 函數用于判斷是否符合該類疫苗的接種條件
Function check(ch As String, key As String) As Boolean
If　 　Then
check = True
Else
If Mid(ch, 1, 1) = key And Val(Mid(ch, 2, Len(ch) - 1)) > 30 Then check = True
Else
check = False
End If
End If
End Function
（3）程序中加框處代碼有錯，請改正。
16．（2021高二下·麗水期末）將某字符串按“V”的形狀進行變換，其變換方法描述如下：
1）將字符串中的字母轉換為大寫字母后按升序進行排序；
2）根據給定的行數，將字符串從上往下、從左到右進行“V”字形排列；
3）從左往右逐行讀取字符串并輸出；
例如：輸入字符串為：“NoThingIsImpossible”，
經過排序得到字符串：“BEGHIIIILMNNOOPSSST”，行數輸入為3時，排列如下：
經過變換后得到新字符串為：“BILOSEHIIMNOSSGINPT”。
編寫VB程序，實現如下功能:在文本框Text1中輸入行數，在文本框Text2中輸入字符串（限定字母），單擊“變換”按鈕Command1，在標簽Label3中輸出變換結果。程序運行效果如圖所示。
（1）若小明在文本框Text1中輸入3，在文本框Text2中輸入的的字符串為“NOTHING”，則在標簽框Label3中輸出的結果為　 　。
（2）實現該功能的VB程序如下，請在劃線處填入合適的代碼。
Private Sub Command1_Click(　　)
Dim n As
Integer, i As Integer, j As Integer Dim s As String, result As String
Dim a(1 To
26) As Integer, res(1 To 100) As String
Dim flag
As Integer '變量flag用于上下換方向
n =
Val(Text1.Text) s = conv(Text2.Text)
For i = 1
To Len(s)
c =
Mid(s, i, 1)
　 　
Next i
s =
""
For i = 1
To 26
For j
= 1 To a(i)
s
= s + Chr(i + 64)
Next j
Next i
j = 1:
flag = -1
For i = 1
To Len(s)
c =
Mid(s, i, 1)
res(j)
= res(j) + c
If　 　 Then flag = -flag
End If
　 　
Next i
For i = 1
To n
result
= result + res(i)
Next i
Label3.Caption
= result
End Sub
'小寫字母轉大寫
Function conv(word As String) As String Dim i As
Integer, c As String, s As String
For i = 1
To Len(word)
c =
Mid(word, i, 1)
If c
>= "a" And c <= "z" Then c = Chr(Asc(c) - 32)
s = s
+ c
Next i
conv = s
End Function
答案解析部分
1．【答案】C
【知識點】信息及其特征；信息技術的概念與關鍵技術；信息表達方式與表達技術
2．【答案】B
【知識點】信息系統安全防護
3．【答案】C
【知識點】數據表、字段、記錄的編輯；字段的數據類型
4．【答案】B
【知識點】進制及數制轉換；字符編碼
5．【答案】D
【知識點】圖層及圖層的基本操作
6．【答案】C
【知識點】聲音、圖像、視頻編碼
7．【答案】A
【知識點】運算符、基本運算與表達式
8．【答案】A
【知識點】流程圖識讀
9．【答案】C
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
10．【答案】D
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
11．【答案】B
【知識點】排序算法及程序實現
12．【答案】D
【知識點】查找算法及程序實現
13．【答案】（1）=B3*SUM(C3:F3)
（2）A2:G100或A3:G100或A2:F100或A3:F100
（3）A；B
【知識點】表格數據的處理與計算；表格數據的圖表呈現
14．【答案】（1）AB
（2）A；事件
（3）在“標題”圖層第60幀執行“插入關鍵幀”操作，并將“文字”實例的Alpha值改為0%或在“標題”圖層的最后一幀執行“插入關鍵幀”操作，并將“文字”實例的Alpha值改為0%或在“標題”圖層的第48幀執行“復制幀”操作，第60幀執行“粘貼幀”操作，并將“文字”實例的Alpha值改為0%
（4）BCE
【知識點】多媒體作品的規劃和設計；動畫的類型；時間軸、幀、圖層、庫的概念及基本操作；程序的調試及運行；聲音同步屬性設置
15．【答案】（1）Caption
（2）k=i；ch= " F " 或 Mid(ch,1,1)= " F "
（3）check(qk(k), p)=True And check(qk(j), p)=True
【知識點】類、對象、屬性、方法、事件和事件處理的概念及應用；過程與自定義函數；排序算法及程序實現
16．【答案】（1）GNHNOIT
（2）a(Asc(c)-64) = a(Asc(c)-64)+1 或a(Asc(c)-Asc(“A”)+1) = a(Asc(c)-Asc(“A”)+1)+1；j=1 Or j=n或 j Mod n < 2或 j Mod n < =1 或i Mod (n-1)=1或其他等價答案；j=j+flag
【知識點】過程與自定義函數；分支結構語句及程序實現；循環結構語句及程序實現
1 / 1

展開更多......

收起↑