資源簡介

浙江省百校2021屆高三下學期信息技術3月模擬聯考試卷
一、選擇題（本大題共12小題，每小題2分，共24分。）
1．（2021·浙江模擬）下列關于信息與信息技術的描述，正確的是（　　）
A．無線通訊技術的出現，說明信息可以脫離載體傳播
B．信息技術是在計算機與網絡技術出現之后出現的
C．計算機通過音響播放音樂，人們聽到的聲音屬于模擬信號
D．華為5G技術是指傳輸速率能達到5Gps的通訊技術
【答案】C
【知識點】信息及其特征；信息技術的發展歷史；數字信號與模擬信號
2．（2021·浙江模擬）下列關于信息安全的說法，正確的是（　　）
A．搜索引擎檢索信息時，排名靠前的信息真實性更高
B．智能手機隨意連接公共場所的WIFI，存在感染病毒的風險
C．刷臉認證一定比使用密碼安全性更高
D．使用加密技術后可以保證信息絕對安全
【答案】B
【知識點】信息及其特征；信息系統安全防護
3．（2021·浙江模擬）用 Access 軟件設計某來訪人員登記信息系統的數據庫，其中“來訪人員表”中需要存儲如圖所示的數據。
序號 姓名 身份證號 進校時間 體溫 是否來自高風險地區
1 張三 330621198806544412 2020-12-19 8:23:18 36.8 否
2 李四 330891200202243965 2020-12-25 15:25:55 36.9 否
… … … … … …
下列關于該來訪人員登記信息系統的描述，錯誤的是（　　）
A．“來訪人員表”中數據的字段名可以和上表中表頭名不一致
B．“來訪人員表”中姓名數據的字段不可以設為主鍵
C．“來訪人員表”中身份證號數據的字段類型不能設置為“數字”
D．“來訪人員表”中同一條記錄的各數據項的數據類型一定相同
【答案】D
【知識點】數據表、字段、記錄的概念；數據表、字段、記錄的編輯；字段的數據類型
4．（2021·浙江模擬）使用UltraEdit軟件觀察字符“旻，讀作mín”的內碼，部分界面如圖所示。
下列說法正確的是（　　）
A．字符“旻，讀作mín”中只有4個ASCII碼字符
B．字符“讀”的十六進制碼是“AC B6”
C．字符串“Mn”的十六進制碼是“4D 6E”
D．字符“i”的二進制碼是“01101000”
【答案】C
【知識點】進制及數制轉換；字符編碼
5．（2021·浙江模擬）用Photoshop制作“2021拼搏”作品，部分界面如圖所示：
下列說法正確的是（　　）
A．“文字”圖層添加了圖層樣式
B．可以直接交換“背景”圖層與“福字”圖層順序
C．如果把畫布大小放大到120%，“牛”圖層中的圖像也會放大
D．對“花1”圖層使用“自由變換”命令時，“花2”圖層中的內容同步調整
【答案】D
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作
6．（2021·浙江模擬）一段時長為10秒、24位真彩色、NTSC制式（30幀/秒）的未經壓縮AVI格式無聲視頻，文件存儲容量約為791MB，其分辨率為：（　　）
A．600*800 B．1024*700 C．1280*720 D．1920*1080
【答案】C
【知識點】聲音、圖像、視頻編碼
7．（2021·浙江模擬）VB表達式 3 + 9 \ 7 * 5 的值是（　　）
A．0 B．3 C．6 D．8
【答案】B
【知識點】運算符、基本運算與表達式
8．（2021·浙江模擬）某算法的部分流程圖如圖所示。執行這部分流程，若輸入k的值為“newyear”，則輸出的s值為（　　）
A．“ywn” B．“nwy” C．“eear” D．“raee”
【答案】A
【知識點】流程圖識讀
9．（2021·浙江模擬）有如下VB程序段，實現鏡像數功能，若s的值為123456，則輸出結果t為123456654321，代碼如下：
s = 123456
i = 10: t = 0
Do While s > 0
Loop
Text1.Text = str(t)
方框中的代碼由以下三部分組成：
①i = i * 100
②s = s \ 10
③t = t * 10 + s Mod 10 + (s Mod 10) * i
順序正確的是（　　）
A．①③② B．②③① C．②①③ D．③②①
【答案】D
【知識點】運算符、基本運算與表達式；循環結構語句及程序實現
10．（2021·浙江模擬）某數組a(1)~a(10)中的數值分別為：3,8,5,7,6,1,4,9,2,10，v(1)~v(10)均初始化為True，有如下程序段：
cnt = 0
For i = 1 To 10
If (v(i)) Then
j = i
Do While (v(j))
v(j) = False
j = a(j)
Loop
cnt = cnt + 1
End If
Next i
執行上述程序段后，cnt的值是（　　）
A．3 B．4 C．5 D．6
【答案】B
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
11．（2021·浙江模擬）假定一組記錄為（46，79，56，64，38，40，84，43），在冒泡排序的過程中，進行第一趟排序結束時，元素40不可能在哪個元素之后（　　）
A．38 B．46 C．56 D．64
【答案】C
【知識點】排序算法及程序實現
12．（2021·浙江模擬）有如下 VB 程序段：
s = ""
low = 1: high = 8
Key = Text1.Text
Do While low <= high
m = (low + high) \ 2
If a(m) < Key Then
high = m - 1
Else
low = m + 1
s = s + Str(low)
End If
Loop
數組元素 a(1)到 a(8)的值依次為“27,25,20,15,12,8,6,5”。該程序段執行后s的值為“5,6”，Text1中輸入待查找數可能是（　　）
A．8 B．7 C．12 D．14
【答案】C
【知識點】查找算法及程序實現
二、非選擇題（本大題共4小題，4+8+7+7，共26分）
13．（2021·浙江模擬）用EXCEL對**公司員工工作能力進行量化考核分析，數據如圖a所示：
（1）區域 H3:H14 的數據是通過公式計算得到的，在H3單元格中輸入公式　 　，再使用自動填充功能完成區域 H4:H14 的計算。（提示：綜合分=（溝通能力+組織能力+業務能力+管理能力）/4×60%+(自信心+表達能力)/2×40%，注：需要使用SUM函數，直接求和不得分）
（2）根據圖a數據，制作如圖b所示雷達圖，可以先選中數據區域　 　制作雷達圖，然后對綜合分列執行如圖c所示操作獲得（注：可以通過修改篩選項數，繪制記錄范圍內任意學生數對比雷達圖）。
（3）結合圖a，圖b，下列說法正確的是 （多選，填字母）
A．綜合分最高的三位同學中，桃鄧李同學管理能力、組織能力、業務能力比較突出，但溝通能力較弱。
B．如圖a表格中數據發生變化，圖b圖表數據不會隨之變化。
C．標題行由A1：H1 執行“合并單元格”操作獲得，合并后的單元格名稱為A1
D．對圖a數據按“綜合分”執行升序操作，對圖表b不會產生影響
E．要篩選出溝通能力與表達能力均為前3的員工，可以先按圖c對“溝通能力”列執行“最大3項”篩選操作，再對“表達能力”列執行“最大3項”篩選操作獲得。
【答案】（1）=SUM(B3:E3)*0.6/4+SUM(F3:G3)*0.4/2
（2）A2:G14
（3）A；C；E
【知識點】表格數據的處理與計算
14．（2021·浙江模擬）
小強制作一個主題為“哪吒”的多媒體作品。請回答下列問題：
（1）小強使用GoldWave軟件編輯音頻文件“哪吒主題曲.wav”，選中其中一段音頻界面如圖a所示，會引起存儲容量減少的操作是　 　(多選，填字母：A .執行“淡出”命令后直接保存/B .執行“刪除”命令后直接保存/C . 將采樣頻率修改為“24000 Hz”后直接保存/D .以“PCM signed 32bit，單聲”形式保存)
（2）小強使用Flash軟件編輯“哪吒.fla”。“main”場景的部分制作界面如圖b所示。如圖b所示，“乾坤圈”圖層第1幀到第60幀的補間動畫實現了“乾坤圈”元件實例從完全透明到完全顯示的效果，第60幀中“乾坤圈”元件實例的Alpha值是　 　 ，該補間動畫的類型為　 　。（單選，填字母：A .逐幀動畫 /B .形狀補間動畫 /C .動畫補間動畫）。
（3）如圖b所示，時長2分43秒的音頻文件“哪吒主題曲.mp3”放置于“音樂”圖層，播放至第45幀后聲音停止播放，由此可見，“音樂”圖層中聲音的同步屬性為　 　（選填：事件/開始/數據流），為使聲音能夠延續播放至場景動畫結束，可行的操作是　 　。
（4）小強在“文字”圖層最后一幀設置了動作腳本“Stop();”。測試影片時，單擊“main”場景中的“重播”按鈕，動畫從本場景的第1幀重新開始播放，則“重播”按鈕的動作腳本為: （多選，填字母）
A．on (release){play(　　);}
B．on (release){play(1);}
C．on (release){play("main",1);}
D．on (release){gotoAndPlay();}
E．on (release){gotoAndPlay(1);}
F．on (release){gotoAndPlay("main",1);
【答案】（1）BC
（2）100%；C
（3）數據流；刪除“音樂”圖層第45幀,在第60幀執行“插入幀”操作或選中“音樂”圖層第60幀執行“插入幀”操作,在第45幀執行“清除關鍵幀”操作
（4）E；F
【知識點】聲音素材的基本處理；動畫的類型；時間軸、幀、圖層、庫的概念及基本操作；常用影片控制函數的應用；聲音同步屬性設置
15．（2021·浙江模擬）某地學考等級劃分規則如下：
將考生原始成績從高到低劃分為A、B+、B、C+、C、D+、D、E共8個等級，各等級人數所占比例分別為3%、7%、16%、24%、24%、16%、7%、3%，如下表所示。
等級 A B+ B C+ C D+ D E
比例 3% 7% 16% 24% 24% 16% 7% 3%
比如參加技術學考有20000人，小明卷面分90分，排名為1800名，則他在技術學科中的所處比例是9%。A占3%，B+占7%，因此B+所處的累積比例為4%-%10,可知他所處等級為B+。
編寫一個VB程序計算學生某科目成績的等級，功能如下：從數據庫中讀入學生學號、姓名、班級和原始成績，并在列表框List1中顯示，單擊“等級劃分”按鈕Command1，在列表框List2中按原始成績從高到低顯示成績與等級。等級劃分時，先按原始成績從高到低排序（如原始成績相同，則按“班級”號從小到大排序），再根據人數比例計算切分位置確定等級。若切分位置有相同分數學生，則歸為同一個等級。例如，某等級切分位置是第100位，但第101位學生的原始成績和第100位相同，則這兩名學生的賦分等級相同。程序運行界面如圖a所示。
實現上述功能的VB程序如下，請回答下列問題：
（1）下列屬于VB窗體文件的是 （單選，填字母）。
A．dj.vbp B．dj.frm C．jd.exe D．dj.vbw
（2）請在劃線處填上合適的代碼。
Const max = 1000
Dim n As Integer '存放學生人數
Dim xh(1 To max) As String '數組xh存放學生的學籍號
Dim xm(1 To max) As String '數組xm存放學生的姓名
Dim bj(1 To max) As Integer '數組bj存放學生的班級
Dim fs(0 To max) As Single '數組fs存儲學生的原始分數
Dim ffdj(0 To max) As String '數組ffdj存儲學生的賦分等級
Private Sub Command1_Click()
Dim p(1 To 8)
As Single, dj(1 To 8) As String
Dim i As
Integer, j As Integer, pos As Integer, last As Integer
Dim st As
String, it As Integer, sit As Single
‘從數據庫中讀入學生學號、姓名、班級和原始成績，分別存入數組xh、xm、bj和fz中，代碼略
p(1) = 0.03:
p(2) = 0.07: p(3) = 0.16: p(4) = 0.24：p(5) = 0.24: p(6) = 0.16: p(7) = 0.07:
p(8) = 0.03：dj(1) = "A": dj(2) =
"B+": dj(3) = "B": dj(4) = "C+"：dj(5) = "C": dj(6) = "D+": dj(7) =
"D": dj(8) = "E"
For i = 2 To 8
　 　 '計算到該等級累計所占比例
Next i
For i = 1 To n
- 1
For j = 1 To n - i
If Then
st = xh(j): xh(j) = xh(j + 1): xh(j + 1) = st
st = xm(j): xm(j) = xm(j + 1): xm(j + 1) = st
it = bj(j): bj(j) = bj(j + 1): bj(j + 1) = it
sit = fs(j): fs(j) = fs(j + 1): fs(j + 1) = sit
End If
Next j
Next i
pos = 1
For i = 1 To 8
last =　 　 '人數四舍五入取整
Do While fs(last + 1) = fs(last)
last = last + 1 '處理切分位置的同分數學生
Loop
Do While　 　
ffdj(pos) = dj(i)
pos = pos + 1
Loop
Next i
For i = 1 To n
List2.AddItem xh(i) +" "+xm(i) +" "+Str(bj(i)) +" "+ Str(fs(i)) +" "+ ffdj(i)
Next i
End Sub
（3）請修改方框處錯誤代碼
【答案】（1）B
（2）p(i) = p(i) + p(i - 1)；Int(n * p(i) + 0.5)；pos <= last
（3）fs(j) < fs(j + 1) Or fs(j) = fs(j + 1) And bj(j) > bj(j + 1)
【知識點】排序算法及程序實現；窗體文件、工程文件及其擴展名
16．（2021·浙江模擬）在圖像編碼的算法中，需要將一個給定的方形矩陣進行Z字形掃描(Zigzag
Scan)，以獲得更好的壓縮比。給定一個n×n的矩陣，Z字形掃描的過程如下圖所示：
經過掃描后得到的數據結果為：
57 45 0 23 0 0 0 0
0 0 0 0 0 0 0 0
0 -30 1 0 0 0 0 0
-16 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
“57,45,0,0,0,0,23,0,-30,-16,0,0,1,0,0,0,0,…,0,0”，數據元素個數為64個。進一步經過壓縮后，最終得到行程編碼：“57, 1, 45, 1, 0, 4, 23, 1, 0, 1,-30, 1,-16, 1, 0, 2, 1, 1, 0, 51”,數據元素個數為20個。
（1）行程編碼壓縮最壞情況下，數據壓縮后數據元素的數量將是原來的　 　倍。
（2）根據上述掃描算法，其 VB
代碼實現如下，請在劃線處填入合適的代碼。
Dim a(0 To 1000) As Integer '存儲原矩陣數據，按行優先存儲
Dim b(0 To 1000) As Integer '存儲Z形掃描后數據
Dim c(0 To 1000) As Integer '存儲行程編碼壓縮后數據
Dim n As Integer
‘矩陣導入代碼略，以行優先存儲在a數組中，如例子中數據存儲順序為“57,45,0,23,0,0…”
Private Sub Command2_Click()
Dim choice As
Integer ' 1：向右移動 ；2：向右上移動；3向下移動 4向左下移動
Dim row As
Integer, col As Integer, i As Integer, j As Integer
Dim pre As
Integer, count As Integer
choice = 1: row
= 0: col = 0: i = 0
Do While (row
<> n - 1 Or col <> n - 1)
b(i) =
a(row * n + col):i = i + 1
If
choice = 1 Then
　 　
If
row = 0 Then choice = 4 Else choice = 2
ElseIf choice = 2 Then
row = row - 1: col = col + 1
If 　 　 Then
choice = 1
ElseIf col = n - 1 Then
choice = 3
End
If
ElseIf choice = 3 Then
row
= row + 1
If
col = 0 Then choice = 2 Else choice = 4
ElseIf choice = 4 Then
row = row + 1: col = col - 1
If row = n - 1 Then
choice = 1
ElseIf col = 0 Then
choice = 3
End If
End
If
Loop
b(i) = a(n * n
- 1):j = 0: pre = b(0): count = 0
For i = 0 To n
* n - 1 '輸出Z形序列，并進行行程壓縮
If pre =
b(i) Then
count = count + 1
Else
c(j) = pre: c(j + 1) = count
　 　
pre =
b(i):j = j + 2
End If
Next i
c(j) = pre: c(j
+ 1) = count
Text1.Text =
""
For i = 0 To j
+ 1
Text1.Text
= Text1.Text + Str(c(i)) + ","
Next i
End Sub
【答案】（1）2
（2）col = col + 1；row = 0 And col <> n - 1；count=1
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
1 / 1浙江省百校2021屆高三下學期信息技術3月模擬聯考試卷
一、選擇題（本大題共12小題，每小題2分，共24分。）
1．（2021·浙江模擬）下列關于信息與信息技術的描述，正確的是（　　）
A．無線通訊技術的出現，說明信息可以脫離載體傳播
B．信息技術是在計算機與網絡技術出現之后出現的
C．計算機通過音響播放音樂，人們聽到的聲音屬于模擬信號
D．華為5G技術是指傳輸速率能達到5Gps的通訊技術
2．（2021·浙江模擬）下列關于信息安全的說法，正確的是（　　）
A．搜索引擎檢索信息時，排名靠前的信息真實性更高
B．智能手機隨意連接公共場所的WIFI，存在感染病毒的風險
C．刷臉認證一定比使用密碼安全性更高
D．使用加密技術后可以保證信息絕對安全
3．（2021·浙江模擬）用 Access 軟件設計某來訪人員登記信息系統的數據庫，其中“來訪人員表”中需要存儲如圖所示的數據。
序號 姓名 身份證號 進校時間 體溫 是否來自高風險地區
1 張三 330621198806544412 2020-12-19 8:23:18 36.8 否
2 李四 330891200202243965 2020-12-25 15:25:55 36.9 否
… … … … … …
下列關于該來訪人員登記信息系統的描述，錯誤的是（　　）
A．“來訪人員表”中數據的字段名可以和上表中表頭名不一致
B．“來訪人員表”中姓名數據的字段不可以設為主鍵
C．“來訪人員表”中身份證號數據的字段類型不能設置為“數字”
D．“來訪人員表”中同一條記錄的各數據項的數據類型一定相同
4．（2021·浙江模擬）使用UltraEdit軟件觀察字符“旻，讀作mín”的內碼，部分界面如圖所示。
下列說法正確的是（　　）
A．字符“旻，讀作mín”中只有4個ASCII碼字符
B．字符“讀”的十六進制碼是“AC B6”
C．字符串“Mn”的十六進制碼是“4D 6E”
D．字符“i”的二進制碼是“01101000”
5．（2021·浙江模擬）用Photoshop制作“2021拼搏”作品，部分界面如圖所示：
下列說法正確的是（　　）
A．“文字”圖層添加了圖層樣式
B．可以直接交換“背景”圖層與“福字”圖層順序
C．如果把畫布大小放大到120%，“牛”圖層中的圖像也會放大
D．對“花1”圖層使用“自由變換”命令時，“花2”圖層中的內容同步調整
6．（2021·浙江模擬）一段時長為10秒、24位真彩色、NTSC制式（30幀/秒）的未經壓縮AVI格式無聲視頻，文件存儲容量約為791MB，其分辨率為：（　　）
A．600*800 B．1024*700 C．1280*720 D．1920*1080
7．（2021·浙江模擬）VB表達式 3 + 9 \ 7 * 5 的值是（　　）
A．0 B．3 C．6 D．8
8．（2021·浙江模擬）某算法的部分流程圖如圖所示。執行這部分流程，若輸入k的值為“newyear”，則輸出的s值為（　　）
A．“ywn” B．“nwy” C．“eear” D．“raee”
9．（2021·浙江模擬）有如下VB程序段，實現鏡像數功能，若s的值為123456，則輸出結果t為123456654321，代碼如下：
s = 123456
i = 10: t = 0
Do While s > 0
Loop
Text1.Text = str(t)
方框中的代碼由以下三部分組成：
①i = i * 100
②s = s \ 10
③t = t * 10 + s Mod 10 + (s Mod 10) * i
順序正確的是（　　）
A．①③② B．②③① C．②①③ D．③②①
10．（2021·浙江模擬）某數組a(1)~a(10)中的數值分別為：3,8,5,7,6,1,4,9,2,10，v(1)~v(10)均初始化為True，有如下程序段：
cnt = 0
For i = 1 To 10
If (v(i)) Then
j = i
Do While (v(j))
v(j) = False
j = a(j)
Loop
cnt = cnt + 1
End If
Next i
執行上述程序段后，cnt的值是（　　）
A．3 B．4 C．5 D．6
11．（2021·浙江模擬）假定一組記錄為（46，79，56，64，38，40，84，43），在冒泡排序的過程中，進行第一趟排序結束時，元素40不可能在哪個元素之后（　　）
A．38 B．46 C．56 D．64
12．（2021·浙江模擬）有如下 VB 程序段：
s = ""
low = 1: high = 8
Key = Text1.Text
Do While low <= high
m = (low + high) \ 2
If a(m) < Key Then
high = m - 1
Else
low = m + 1
s = s + Str(low)
End If
Loop
數組元素 a(1)到 a(8)的值依次為“27,25,20,15,12,8,6,5”。該程序段執行后s的值為“5,6”，Text1中輸入待查找數可能是（　　）
A．8 B．7 C．12 D．14
二、非選擇題（本大題共4小題，4+8+7+7，共26分）
13．（2021·浙江模擬）用EXCEL對**公司員工工作能力進行量化考核分析，數據如圖a所示：
（1）區域 H3:H14 的數據是通過公式計算得到的，在H3單元格中輸入公式　 　，再使用自動填充功能完成區域 H4:H14 的計算。（提示：綜合分=（溝通能力+組織能力+業務能力+管理能力）/4×60%+(自信心+表達能力)/2×40%，注：需要使用SUM函數，直接求和不得分）
（2）根據圖a數據，制作如圖b所示雷達圖，可以先選中數據區域　 　制作雷達圖，然后對綜合分列執行如圖c所示操作獲得（注：可以通過修改篩選項數，繪制記錄范圍內任意學生數對比雷達圖）。
（3）結合圖a，圖b，下列說法正確的是 （多選，填字母）
A．綜合分最高的三位同學中，桃鄧李同學管理能力、組織能力、業務能力比較突出，但溝通能力較弱。
B．如圖a表格中數據發生變化，圖b圖表數據不會隨之變化。
C．標題行由A1：H1 執行“合并單元格”操作獲得，合并后的單元格名稱為A1
D．對圖a數據按“綜合分”執行升序操作，對圖表b不會產生影響
E．要篩選出溝通能力與表達能力均為前3的員工，可以先按圖c對“溝通能力”列執行“最大3項”篩選操作，再對“表達能力”列執行“最大3項”篩選操作獲得。
14．（2021·浙江模擬）
小強制作一個主題為“哪吒”的多媒體作品。請回答下列問題：
（1）小強使用GoldWave軟件編輯音頻文件“哪吒主題曲.wav”，選中其中一段音頻界面如圖a所示，會引起存儲容量減少的操作是　 　(多選，填字母：A .執行“淡出”命令后直接保存/B .執行“刪除”命令后直接保存/C . 將采樣頻率修改為“24000 Hz”后直接保存/D .以“PCM signed 32bit，單聲”形式保存)
（2）小強使用Flash軟件編輯“哪吒.fla”。“main”場景的部分制作界面如圖b所示。如圖b所示，“乾坤圈”圖層第1幀到第60幀的補間動畫實現了“乾坤圈”元件實例從完全透明到完全顯示的效果，第60幀中“乾坤圈”元件實例的Alpha值是　 　 ，該補間動畫的類型為　 　。（單選，填字母：A .逐幀動畫 /B .形狀補間動畫 /C .動畫補間動畫）。
（3）如圖b所示，時長2分43秒的音頻文件“哪吒主題曲.mp3”放置于“音樂”圖層，播放至第45幀后聲音停止播放，由此可見，“音樂”圖層中聲音的同步屬性為　 　（選填：事件/開始/數據流），為使聲音能夠延續播放至場景動畫結束，可行的操作是　 　。
（4）小強在“文字”圖層最后一幀設置了動作腳本“Stop();”。測試影片時，單擊“main”場景中的“重播”按鈕，動畫從本場景的第1幀重新開始播放，則“重播”按鈕的動作腳本為: （多選，填字母）
A．on (release){play(　　);}
B．on (release){play(1);}
C．on (release){play("main",1);}
D．on (release){gotoAndPlay();}
E．on (release){gotoAndPlay(1);}
F．on (release){gotoAndPlay("main",1);
15．（2021·浙江模擬）某地學考等級劃分規則如下：
將考生原始成績從高到低劃分為A、B+、B、C+、C、D+、D、E共8個等級，各等級人數所占比例分別為3%、7%、16%、24%、24%、16%、7%、3%，如下表所示。
等級 A B+ B C+ C D+ D E
比例 3% 7% 16% 24% 24% 16% 7% 3%
比如參加技術學考有20000人，小明卷面分90分，排名為1800名，則他在技術學科中的所處比例是9%。A占3%，B+占7%，因此B+所處的累積比例為4%-%10,可知他所處等級為B+。
編寫一個VB程序計算學生某科目成績的等級，功能如下：從數據庫中讀入學生學號、姓名、班級和原始成績，并在列表框List1中顯示，單擊“等級劃分”按鈕Command1，在列表框List2中按原始成績從高到低顯示成績與等級。等級劃分時，先按原始成績從高到低排序（如原始成績相同，則按“班級”號從小到大排序），再根據人數比例計算切分位置確定等級。若切分位置有相同分數學生，則歸為同一個等級。例如，某等級切分位置是第100位，但第101位學生的原始成績和第100位相同，則這兩名學生的賦分等級相同。程序運行界面如圖a所示。
實現上述功能的VB程序如下，請回答下列問題：
（1）下列屬于VB窗體文件的是 （單選，填字母）。
A．dj.vbp B．dj.frm C．jd.exe D．dj.vbw
（2）請在劃線處填上合適的代碼。
Const max = 1000
Dim n As Integer '存放學生人數
Dim xh(1 To max) As String '數組xh存放學生的學籍號
Dim xm(1 To max) As String '數組xm存放學生的姓名
Dim bj(1 To max) As Integer '數組bj存放學生的班級
Dim fs(0 To max) As Single '數組fs存儲學生的原始分數
Dim ffdj(0 To max) As String '數組ffdj存儲學生的賦分等級
Private Sub Command1_Click()
Dim p(1 To 8)
As Single, dj(1 To 8) As String
Dim i As
Integer, j As Integer, pos As Integer, last As Integer
Dim st As
String, it As Integer, sit As Single
‘從數據庫中讀入學生學號、姓名、班級和原始成績，分別存入數組xh、xm、bj和fz中，代碼略
p(1) = 0.03:
p(2) = 0.07: p(3) = 0.16: p(4) = 0.24：p(5) = 0.24: p(6) = 0.16: p(7) = 0.07:
p(8) = 0.03：dj(1) = "A": dj(2) =
"B+": dj(3) = "B": dj(4) = "C+"：dj(5) = "C": dj(6) = "D+": dj(7) =
"D": dj(8) = "E"
For i = 2 To 8
　 　 '計算到該等級累計所占比例
Next i
For i = 1 To n
- 1
For j = 1 To n - i
If Then
st = xh(j): xh(j) = xh(j + 1): xh(j + 1) = st
st = xm(j): xm(j) = xm(j + 1): xm(j + 1) = st
it = bj(j): bj(j) = bj(j + 1): bj(j + 1) = it
sit = fs(j): fs(j) = fs(j + 1): fs(j + 1) = sit
End If
Next j
Next i
pos = 1
For i = 1 To 8
last =　 　 '人數四舍五入取整
Do While fs(last + 1) = fs(last)
last = last + 1 '處理切分位置的同分數學生
Loop
Do While　 　
ffdj(pos) = dj(i)
pos = pos + 1
Loop
Next i
For i = 1 To n
List2.AddItem xh(i) +" "+xm(i) +" "+Str(bj(i)) +" "+ Str(fs(i)) +" "+ ffdj(i)
Next i
End Sub
（3）請修改方框處錯誤代碼
16．（2021·浙江模擬）在圖像編碼的算法中，需要將一個給定的方形矩陣進行Z字形掃描(Zigzag
Scan)，以獲得更好的壓縮比。給定一個n×n的矩陣，Z字形掃描的過程如下圖所示：
經過掃描后得到的數據結果為：
57 45 0 23 0 0 0 0
0 0 0 0 0 0 0 0
0 -30 1 0 0 0 0 0
-16 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
“57,45,0,0,0,0,23,0,-30,-16,0,0,1,0,0,0,0,…,0,0”，數據元素個數為64個。進一步經過壓縮后，最終得到行程編碼：“57, 1, 45, 1, 0, 4, 23, 1, 0, 1,-30, 1,-16, 1, 0, 2, 1, 1, 0, 51”,數據元素個數為20個。
（1）行程編碼壓縮最壞情況下，數據壓縮后數據元素的數量將是原來的　 　倍。
（2）根據上述掃描算法，其 VB
代碼實現如下，請在劃線處填入合適的代碼。
Dim a(0 To 1000) As Integer '存儲原矩陣數據，按行優先存儲
Dim b(0 To 1000) As Integer '存儲Z形掃描后數據
Dim c(0 To 1000) As Integer '存儲行程編碼壓縮后數據
Dim n As Integer
‘矩陣導入代碼略，以行優先存儲在a數組中，如例子中數據存儲順序為“57,45,0,23,0,0…”
Private Sub Command2_Click()
Dim choice As
Integer ' 1：向右移動 ；2：向右上移動；3向下移動 4向左下移動
Dim row As
Integer, col As Integer, i As Integer, j As Integer
Dim pre As
Integer, count As Integer
choice = 1: row
= 0: col = 0: i = 0
Do While (row
<> n - 1 Or col <> n - 1)
b(i) =
a(row * n + col):i = i + 1
If
choice = 1 Then
　 　
If
row = 0 Then choice = 4 Else choice = 2
ElseIf choice = 2 Then
row = row - 1: col = col + 1
If 　 　 Then
choice = 1
ElseIf col = n - 1 Then
choice = 3
End
If
ElseIf choice = 3 Then
row
= row + 1
If
col = 0 Then choice = 2 Else choice = 4
ElseIf choice = 4 Then
row = row + 1: col = col - 1
If row = n - 1 Then
choice = 1
ElseIf col = 0 Then
choice = 3
End If
End
If
Loop
b(i) = a(n * n
- 1):j = 0: pre = b(0): count = 0
For i = 0 To n
* n - 1 '輸出Z形序列，并進行行程壓縮
If pre =
b(i) Then
count = count + 1
Else
c(j) = pre: c(j + 1) = count
　 　
pre =
b(i):j = j + 2
End If
Next i
c(j) = pre: c(j
+ 1) = count
Text1.Text =
""
For i = 0 To j
+ 1
Text1.Text
= Text1.Text + Str(c(i)) + ","
Next i
End Sub
答案解析部分
1．【答案】C
【知識點】信息及其特征；信息技術的發展歷史；數字信號與模擬信號
2．【答案】B
【知識點】信息及其特征；信息系統安全防護
3．【答案】D
【知識點】數據表、字段、記錄的概念；數據表、字段、記錄的編輯；字段的數據類型
4．【答案】C
【知識點】進制及數制轉換；字符編碼
5．【答案】D
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作
6．【答案】C
【知識點】聲音、圖像、視頻編碼
7．【答案】B
【知識點】運算符、基本運算與表達式
8．【答案】A
【知識點】流程圖識讀
9．【答案】D
【知識點】運算符、基本運算與表達式；循環結構語句及程序實現
10．【答案】B
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
11．【答案】C
【知識點】排序算法及程序實現
12．【答案】C
【知識點】查找算法及程序實現
13．【答案】（1）=SUM(B3:E3)*0.6/4+SUM(F3:G3)*0.4/2
（2）A2:G14
（3）A；C；E
【知識點】表格數據的處理與計算
14．【答案】（1）BC
（2）100%；C
（3）數據流；刪除“音樂”圖層第45幀,在第60幀執行“插入幀”操作或選中“音樂”圖層第60幀執行“插入幀”操作,在第45幀執行“清除關鍵幀”操作
（4）E；F
【知識點】聲音素材的基本處理；動畫的類型；時間軸、幀、圖層、庫的概念及基本操作；常用影片控制函數的應用；聲音同步屬性設置
15．【答案】（1）B
（2）p(i) = p(i) + p(i - 1)；Int(n * p(i) + 0.5)；pos <= last
（3）fs(j) < fs(j + 1) Or fs(j) = fs(j + 1) And bj(j) > bj(j + 1)
【知識點】排序算法及程序實現；窗體文件、工程文件及其擴展名
16．【答案】（1）2
（2）col = col + 1；row = 0 And col <> n - 1；count=1
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
1 / 1

展開更多......

收起↑