資源簡介

浙江省普通高中2022屆高三上學期信息技術12月統測試卷
一、選擇題(本大題共12小題，每小題2分，共24分)
1．（2021高三上·浙江月考）下列關于信息和信息技術說法正確的是(　　)
A．文字、語言聲音、圖像、廣播、電視等都是信息的表達方式
B．信息的載體依附性是指信息的傳播不可以脫離它所反映的事物
C．因特網信息資源的三種主要評價方式分別是統計評價、核心刊物評價和專家推薦
D．國際標準化組織制定了各種通信協議(如TCP/IP等)，目的是為了信息表達的規范化
2．（2021高三上·浙江月考）下列有關網頁與瀏覽器的說法，正確的是(　　)
A．使用搜索引擎，關鍵字越多，搜索結果也越多
B．用FLASH導出影片不可以選擇導出html格式文件
C．HTTP協議用于瀏覽器與Web服務器之間的信息傳輸
D．搜索引擎的兩大核心技術是自動網頁搜索技術和主題目錄檢索
3．（2021高三上·浙江月考）使用Access軟件創建的“學校信息”數據表，其設計視圖的部分學校信息界面如圖所示，下列說法正確的是(　　)
A．“備注”字段值可以包含任意多個字符
B．該數據表中，“學校序號”字段值可以是“ZJ01”
C．“是”或者“否”可以是“公辦學校”字段的有效輸入值
D．“2021\10\01”可以是“建校日期”字段的有效輸入值
4．（2021高三上·浙江月考）如圖，下列關于計算機字符編碼的描述，正確的是(　　)
A．字符“S”在計算機內部的二進制編碼是“01010011”
B．字符“Z”的內碼值是60H
C．“奧”字的字符內碼是“B9”
D．圖中“中國奧運軍團YYDS”共占15個字節
5．（2021高三上·浙江月考）用Photoshop軟件制作“致敬抗疫英雄海報”作品，如圖所示。
下列說法正確的是(　　)
A．可以使用油漆桶工具將“背景”圖層填充成其他顏色
B．使用“縮放工具”后，左下角的“4.01M/14.7M”也會隨之改變
C．當前狀態下使用“自由變換”命令可以調整“陰影”圖層內容大小
D．將“抗疫英雄”圖層的圖層樣式拷貝至“抗擊疫情”圖層，則“抗擊疫情”圖層的“描邊”效果將消失
6．（2021高三上·浙江月考）一個時長為10秒、24位真彩色、總幀數300幀的未經壓縮的AVI格式無聲視頻文件約為675MB，則其分辨率可能是(　　)
A．800 * 600 B．1024 * 768 C．1366 * 768 D．2048 * 1536
7．（2021高三上·浙江月考）VB表達式3^2*6Mod24\2*3的值是(　　)
A．2 B．1 C．4 D．3
8．（2021高三上·浙江月考）某算法部分流程圖如圖所示，執行這部分流程后，輸出s的值是(　　)
A．20 B．45 C．55 D．65
9．（2021高三上·浙江月考）有如下VB程序段：
s ="ATCGCGCTACTGA"
s1 =" ACGT"
n= Len(s)
i=1：j=1：c=0
Do While i <= n and j <=4
If Mid(s， i， 1)=Mid(s1， j，1) Then
j=j+1
End If
i=i+1
Loop
s= Mid(s， 1， i-1)
執行該程序段后，變量s的值是(　　)
A．ATCCCG B．ATCC C．ATCGCGCT D．ATCCCGC
10．（2021高三上·浙江月考）有如下VB程序段：
i=1：j=10：n=0
Do While i<=j
m=(i+j)\2
If a(m)i=m+1
n=n+ m
Else
j=m-1
n=n-m
End If
Loop
數組元素a(1)至a(10)中的值依次為“32，39，44，49，51，54，61，61，68，76”，當key值為61時，執行該程序段后，變量n的值是(　　)
A．-4 B．4 C．-5 D．5
11．（2021高三上·浙江月考）有如下VB程序段：
Dim a(1 To 6) As Integer
For i=1 To 6
a(i)= Int(Rnd * 4)+1
If a(i) Mod 2=0 And i Mod 2=0 Then
a(i)=2 * a(i) - a(i - 1)
End If
s=s+Str(a(i))
Next i
執行該程序段后，變量s的值可能是(　　)
A．242221 B．333126 C．043513 D．323117
12．（2021高三上·浙江月考）數組a中各元素在列表框List1中以“個數逐行遞增”的形式分布如圖所示，在文本框Text11中輸人行號，單擊“排序”按鈕，對該行數據做排序處理，并將排序之后的數據顯示在文本框Text2。VB程序段如下：
Dim a(1 To 15) As Integer
'生成數組a， a(1)=24：a(2)= 17：a(3)=21：
a(4)=15：a(5)=14 …代碼略
n= Val(Text1. Text)
For i=1 To n-1
For j=(n+1) * n/2 To ① Step-1
If ② Then
t=a(j)：a(j)=a(j- 1)：a(j- 1)=t
End If
Next j
Next i
'將處理后的數組，以金字塔形顯示，代碼略
上述程序段中①②處的語句分別為(　　)
A．(n-1) *n/2+1+I a(j)>a(j- 1)
B．(n-1) *n/2+1+i a(j)C．(n+1) * n/2+i-1 a(j)D．(n+1) * n/2+i-1 a(j)>a(j-1)
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2021高三上·浙江月考）小陳從網上收集的關于部分國家的疫情數據情況，并使用Excel軟件進行數據處理，如圖a所示，請回答下列問題：
圖a
（1）區域F3：F25是計算各國新增病例的排名，該數據是通過公式計算得到的：在F3單元格中輸入公式　 　，再利用自動填充功能完成區域F4：F25的計算(注：公式= RANK(A1，A1：A5)表示A1單元格在區域A1：A5中的排名)。
（2）根據表格中數據制作圖表如圖b所示，創建該圖表的數據區域是　 　。
圖b
（3）為顯示“狀況”屬于“較輕”的國家中“新增”數量排名前三的數據，以下方法可行的是 (多選：填字母)
A．先對“狀況”進行篩選，選擇值為“較輕”，再對“新增”進行篩選，選擇“10個最大的值”，并顯示最大的3項
B．先對“狀況”進行篩選，選擇值為“較輕”，再選擇“新增”為關鍵字進行降序排序，選擇排在前面的國家
C．先對“狀況”進行篩選，選擇值為“較輕”，再選擇“排名”為關鍵字進行升序排序，選擇排在前面的國家
D．以“新增”為主要關鍵字、“狀況”為次要關鍵字均按降序排序，選擇排在前面的國家
14．（2021高三上·浙江月考）用Flash軟件創作“川劇變臉”多媒體作品，部分編輯界面如圖所示。
請回答下列問題：
（1）以下關于多媒體設計的選項中錯誤的是 (多選，填字母)。
A．作品的模塊設計描述了作品的組成部分、工作流程和主要界面
B．該多媒體作品主要是面向京劇愛好者，此定位屬于應用需求分析
C．確定Flash中音樂素材的獲取方式屬于多媒體設計的腳本編寫部分
D．選擇將此動畫發布在網頁上屬于創作需求分析
E．在腳本編寫時，先設計制作腳本，再設計文字腳本
（2）測試影片，動畫開始后停在第1幀，但臉譜會不斷變化著各種花臉，由此可見，“臉譜”元件應該是　 　(單選，填字母：A .圖形元件/B .影片剪輯/C .按鈕元件)。
（3）動畫中“文字1”“文字2”“文字3”圖層在第25幀開始由三個字“川劇場”逐漸變成“歡迎您”，則“文字3”圖層第25幀到第55幀的動畫類型為　 　(單選，填字母：A .動畫補間/B .形狀補間)。
（4）動畫播放過程中發現“文字3”圖層在55幀后內容消失，為使第55幀中內容延續至最
后，正確的操作是：
　 　。
（5）點擊“小花”按鈕，動畫繼續播放，并且音樂停止，則該按鈕上的腳本動作為：　 　。
15．（2021高三上·浙江月考）某車管所計劃設計-款選車牌的程序，規則如下：
規則一：隨機選取10個車牌號，其中2個車牌的尾數是字母，其余8個車牌的尾數是數字。
規則二：車牌尾數按從小到大排列。
規則三：若規則一隨機選取的車牌中，第1個車牌尾數為數字，則經過規則二排列后，還需要將字母尾數車牌進行穿插，最終形成：數字一字母一數字一字母一數字一數字……；若規則一隨機選取的車牌中，第1個車牌尾數為字母，則經過規則二排列后，還需要將字母尾數車牌進行穿插，最終形成：字母一數字一字母一數字一數字……
程序運行后，列表框List1中顯示隨機選取的車牌，單擊“排序”按鈕，在列表框List2 中顯示按以上規則排序后的待選車牌。
（1）該界面中至少用到　 　(填數字)類控件。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Const n = 10
Dima(1 To 10) As String
Private Sub Form_ Load(　　)
'從數據庫里隨機選取10個車牌號(其中有2個尾號帶字母)，車牌號依次存儲于數組a(1)至a(10)，代碼略
End Sub
Private Sub Command1_ Click(　　)
If Then
m= 1
Else
m=0
End If
For i=1 To n-1
k=i
For j=i+1 To n
If 　 　 Then k=j
Next j
If k <> i then tmp=a(k)： a(k)=a(i)：a(i)= tmp
Next i
pos= 9
For i=0 To 1
j=　 　
tmp = a(pos)
Do While j>=m+1+2*i
a(j+1)=a(j)
j=j-1
Loop
　 　
pos= pos+1
Next i
For i=1 To 10
List2.AddItem a(i)
Next i
End Sub
Function judge(s As String) As Boolean
If Mid(s，7)>。="0"AndMid(s，7)<<="9"Then
judge = True
Else
judge = False
End If
End Function
（3）程序中加框處代碼有誤，請改正。
16．（2021高三上·浙江月考）小明接受了一個任務：要對照賦分表完成對本次高三技術摸底考試的卷面成績賦分，賦分表數據如下：
賦分成績 100 99 98 97 96 …… 42 43 41
卷面成績 90 88 86 85 83 …… 30 30 30
賦分成績最低40分，卷面成績低于30分則賦0分。賦分表數據存人數組ffb，如ffb(100)=90，則表示卷面成績90時，賦分100分。小明設計的賦分具體步驟如下：
第一步：對學生的卷面成績進行降序排序；
第二步：對照賦分表，對每-名學生卷面成績進行賦分。
小明編寫了VB賦分程序，在列表框List1中顯示學號和學生卷面成績，在列表框List2中顯示賦分表數據，單擊按鈕“我要賦分”后，按照之前的學號順序在列表框List3中顯示學號、卷面成績和賦分成績。VB程序界面如下：
Const m = 10000
Dim xh(1 to 10000) As String '存儲學生學號
Dim cj(1 To 10000) As Integer '存儲學生卷面成績
Dim ffcj(1 To 10000) As Integer '存儲學生賦分成績
Dim ffb(40 To 100) As Integer '存儲賦分表數據
Private Sub Form_ Load()
'讀入m名學生的學號、技術考試卷面成績分別存人數組xh和cj中，并在List1中顯示；讀入賦分表成績存人數組ffb中，代碼略
End Sub
Private Sub Command1_ Click()
Dim a(0 To 100) As Integer
Dim b(0 To 100) As Integer
Dim c(1 To 10000) As Integer
List2.AddItem "賦分成績卷面成績"
For i=100 To 40 Step-1 '在List2顯示賦分表數據
List2. AddItem Str(i)+ "" +Str( ffb(i))
Next i
For i=1 To m '統計各分數段的人數
①
a(t)=a(t)+1
Next i
j= 100
Do While a(j)=0
j=j-1
Loop
b(j)=1
For k=j- 1 To 0 Step -1
b(k)=b(k+1) + a(k+ 1)
Next k
For i=1 To m
t=cj(i)
c(b(t))=i
②
Next i
p=1：q= 100
Do While p<=m
If cj(c(p))> = ffb(q) Then
③
p=p+1
ElseIf q=40 Then
ffcj(c(p))=0
p=p+1
Else
q=q-1
End If
Loop
List3. AddItem "學號卷面成績賦分成績"
For i=1 To m
List3. AddItem xh(i)+" " + Str(cj(i)) + ""+Str(ffcj(i))
Next i
End Sub
（1）從圖中賦分表數據可知ffb(92)= 77，ffb(91)=77，ffb(90)=77。結合閱讀程序，請問學號為“30311”的同學卷面成績為77分，則其賦分成績為　 　 。
（2）請在劃線處填寫合適的代碼。
①　 ?、凇? ?、邸? 　
答案解析部分
1．【答案】D
【知識點】信息及其特征；因特網信息資源評價；信息表達方式與表達技術；信息表達要求
2．【答案】C
【知識點】網絡協議；網絡資源的檢索
3．【答案】B
【知識點】字段的數據類型
4．【答案】A
【知識點】進制及數制轉換；字符編碼
5．【答案】D
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作
6．【答案】B
【知識點】聲音、圖像、視頻編碼
7．【答案】A
【知識點】運算符、基本運算與表達式
8．【答案】C
【知識點】流程圖識讀
9．【答案】C
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
10．【答案】A
【知識點】查找算法及程序實現
11．【答案】B
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
12．【答案】B
【知識點】排序算法及程序實現
13．【答案】（1）= RANK(B3， $B$3： $ B$ 25) 或= RANK(B3，B$ 3：B$ 25) 或= RANK(B3，B$ 3：B$ 25，0) 或= RANK(B3， $B$3： $B$ 25，0) 或其他等價答案
（2）A2 ： A6，C2 ： C6
（3）B；C
【知識點】表格數據的處理與計算
14．【答案】（1）A；E
（2）B
（3）B
（4）在“文字3”圖層第60幀插人幀(或者插人關鍵幀)
（5）on( press){ play(　　);stopallsounds(　　);}
【知識點】多媒體作品的規劃和設計；動畫的類型；元件的類型與應用；常用影片控制函數的應用
15．【答案】（1）4
（2）Mid(a(k)，7，1)> Mid(a(j)，7，1)；pos- 1(或 8+i)；a(j+1)= tmp
（3）judge(a(1))= True
【知識點】排序算法及程序實現；程序設計工具及編程環境
16．【答案】（1）92
（2）t=cj(i)；b(t)=b(t)+1；ffcj(c(p))=q
【知識點】排序算法及程序實現
1 / 1浙江省普通高中2022屆高三上學期信息技術12月統測試卷
一、選擇題(本大題共12小題，每小題2分，共24分)
1．（2021高三上·浙江月考）下列關于信息和信息技術說法正確的是(　　)
A．文字、語言聲音、圖像、廣播、電視等都是信息的表達方式
B．信息的載體依附性是指信息的傳播不可以脫離它所反映的事物
C．因特網信息資源的三種主要評價方式分別是統計評價、核心刊物評價和專家推薦
D．國際標準化組織制定了各種通信協議(如TCP/IP等)，目的是為了信息表達的規范化
【答案】D
【知識點】信息及其特征；因特網信息資源評價；信息表達方式與表達技術；信息表達要求
2．（2021高三上·浙江月考）下列有關網頁與瀏覽器的說法，正確的是(　　)
A．使用搜索引擎，關鍵字越多，搜索結果也越多
B．用FLASH導出影片不可以選擇導出html格式文件
C．HTTP協議用于瀏覽器與Web服務器之間的信息傳輸
D．搜索引擎的兩大核心技術是自動網頁搜索技術和主題目錄檢索
【答案】C
【知識點】網絡協議；網絡資源的檢索
3．（2021高三上·浙江月考）使用Access軟件創建的“學校信息”數據表，其設計視圖的部分學校信息界面如圖所示，下列說法正確的是(　　)
A．“備注”字段值可以包含任意多個字符
B．該數據表中，“學校序號”字段值可以是“ZJ01”
C．“是”或者“否”可以是“公辦學?！弊侄蔚挠行л斎胫?br/>D．“2021\10\01”可以是“建校日期”字段的有效輸入值
【答案】B
【知識點】字段的數據類型
4．（2021高三上·浙江月考）如圖，下列關于計算機字符編碼的描述，正確的是(　　)
A．字符“S”在計算機內部的二進制編碼是“01010011”
B．字符“Z”的內碼值是60H
C．“奧”字的字符內碼是“B9”
D．圖中“中國奧運軍團YYDS”共占15個字節
【答案】A
【知識點】進制及數制轉換；字符編碼
5．（2021高三上·浙江月考）用Photoshop軟件制作“致敬抗疫英雄海報”作品，如圖所示。
下列說法正確的是(　　)
A．可以使用油漆桶工具將“背景”圖層填充成其他顏色
B．使用“縮放工具”后，左下角的“4.01M/14.7M”也會隨之改變
C．當前狀態下使用“自由變換”命令可以調整“陰影”圖層內容大小
D．將“抗疫英雄”圖層的圖層樣式拷貝至“抗擊疫情”圖層，則“抗擊疫情”圖層的“描邊”效果將消失
【答案】D
【知識點】圖片加工常用工具的使用；圖層及圖層的基本操作
6．（2021高三上·浙江月考）一個時長為10秒、24位真彩色、總幀數300幀的未經壓縮的AVI格式無聲視頻文件約為675MB，則其分辨率可能是(　　)
A．800 * 600 B．1024 * 768 C．1366 * 768 D．2048 * 1536
【答案】B
【知識點】聲音、圖像、視頻編碼
7．（2021高三上·浙江月考）VB表達式3^2*6Mod24\2*3的值是(　　)
A．2 B．1 C．4 D．3
【答案】A
【知識點】運算符、基本運算與表達式
8．（2021高三上·浙江月考）某算法部分流程圖如圖所示，執行這部分流程后，輸出s的值是(　　)
A．20 B．45 C．55 D．65
【答案】C
【知識點】流程圖識讀
9．（2021高三上·浙江月考）有如下VB程序段：
s ="ATCGCGCTACTGA"
s1 =" ACGT"
n= Len(s)
i=1：j=1：c=0
Do While i <= n and j <=4
If Mid(s， i， 1)=Mid(s1， j，1) Then
j=j+1
End If
i=i+1
Loop
s= Mid(s， 1， i-1)
執行該程序段后，變量s的值是(　　)
A．ATCCCG B．ATCC C．ATCGCGCT D．ATCCCGC
【答案】C
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
10．（2021高三上·浙江月考）有如下VB程序段：
i=1：j=10：n=0
Do While i<=j
m=(i+j)\2
If a(m)i=m+1
n=n+ m
Else
j=m-1
n=n-m
End If
Loop
數組元素a(1)至a(10)中的值依次為“32，39，44，49，51，54，61，61，68，76”，當key值為61時，執行該程序段后，變量n的值是(　　)
A．-4 B．4 C．-5 D．5
【答案】A
【知識點】查找算法及程序實現
11．（2021高三上·浙江月考）有如下VB程序段：
Dim a(1 To 6) As Integer
For i=1 To 6
a(i)= Int(Rnd * 4)+1
If a(i) Mod 2=0 And i Mod 2=0 Then
a(i)=2 * a(i) - a(i - 1)
End If
s=s+Str(a(i))
Next i
執行該程序段后，變量s的值可能是(　　)
A．242221 B．333126 C．043513 D．323117
【答案】B
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
12．（2021高三上·浙江月考）數組a中各元素在列表框List1中以“個數逐行遞增”的形式分布如圖所示，在文本框Text11中輸人行號，單擊“排序”按鈕，對該行數據做排序處理，并將排序之后的數據顯示在文本框Text2。VB程序段如下：
Dim a(1 To 15) As Integer
'生成數組a， a(1)=24：a(2)= 17：a(3)=21：
a(4)=15：a(5)=14 …代碼略
n= Val(Text1. Text)
For i=1 To n-1
For j=(n+1) * n/2 To ① Step-1
If ② Then
t=a(j)：a(j)=a(j- 1)：a(j- 1)=t
End If
Next j
Next i
'將處理后的數組，以金字塔形顯示，代碼略
上述程序段中①②處的語句分別為(　　)
A．(n-1) *n/2+1+I a(j)>a(j- 1)
B．(n-1) *n/2+1+i a(j)C．(n+1) * n/2+i-1 a(j)D．(n+1) * n/2+i-1 a(j)>a(j-1)
【答案】B
【知識點】排序算法及程序實現
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2021高三上·浙江月考）小陳從網上收集的關于部分國家的疫情數據情況，并使用Excel軟件進行數據處理，如圖a所示，請回答下列問題：
圖a
（1）區域F3：F25是計算各國新增病例的排名，該數據是通過公式計算得到的：在F3單元格中輸入公式　 　，再利用自動填充功能完成區域F4：F25的計算(注：公式= RANK(A1，A1：A5)表示A1單元格在區域A1：A5中的排名)。
（2）根據表格中數據制作圖表如圖b所示，創建該圖表的數據區域是　 　。
圖b
（3）為顯示“狀況”屬于“較輕”的國家中“新增”數量排名前三的數據，以下方法可行的是 (多選：填字母)
A．先對“狀況”進行篩選，選擇值為“較輕”，再對“新增”進行篩選，選擇“10個最大的值”，并顯示最大的3項
B．先對“狀況”進行篩選，選擇值為“較輕”，再選擇“新增”為關鍵字進行降序排序，選擇排在前面的國家
C．先對“狀況”進行篩選，選擇值為“較輕”，再選擇“排名”為關鍵字進行升序排序，選擇排在前面的國家
D．以“新增”為主要關鍵字、“狀況”為次要關鍵字均按降序排序，選擇排在前面的國家
【答案】（1）= RANK(B3， $B$3： $ B$ 25) 或= RANK(B3，B$ 3：B$ 25) 或= RANK(B3，B$ 3：B$ 25，0) 或= RANK(B3， $B$3： $B$ 25，0) 或其他等價答案
（2）A2 ： A6，C2 ： C6
（3）B；C
【知識點】表格數據的處理與計算
14．（2021高三上·浙江月考）用Flash軟件創作“川劇變臉”多媒體作品，部分編輯界面如圖所示。
請回答下列問題：
（1）以下關于多媒體設計的選項中錯誤的是 (多選，填字母)。
A．作品的模塊設計描述了作品的組成部分、工作流程和主要界面
B．該多媒體作品主要是面向京劇愛好者，此定位屬于應用需求分析
C．確定Flash中音樂素材的獲取方式屬于多媒體設計的腳本編寫部分
D．選擇將此動畫發布在網頁上屬于創作需求分析
E．在腳本編寫時，先設計制作腳本，再設計文字腳本
（2）測試影片，動畫開始后停在第1幀，但臉譜會不斷變化著各種花臉，由此可見，“臉譜”元件應該是　 　(單選，填字母：A .圖形元件/B .影片剪輯/C .按鈕元件)。
（3）動畫中“文字1”“文字2”“文字3”圖層在第25幀開始由三個字“川劇場”逐漸變成“歡迎您”，則“文字3”圖層第25幀到第55幀的動畫類型為　 　(單選，填字母：A .動畫補間/B .形狀補間)。
（4）動畫播放過程中發現“文字3”圖層在55幀后內容消失，為使第55幀中內容延續至最
后，正確的操作是：
　 　。
（5）點擊“小花”按鈕，動畫繼續播放，并且音樂停止，則該按鈕上的腳本動作為：　 　。
【答案】（1）A；E
（2）B
（3）B
（4）在“文字3”圖層第60幀插人幀(或者插人關鍵幀)
（5）on( press){ play(　　);stopallsounds(　　);}
【知識點】多媒體作品的規劃和設計；動畫的類型；元件的類型與應用；常用影片控制函數的應用
15．（2021高三上·浙江月考）某車管所計劃設計-款選車牌的程序，規則如下：
規則一：隨機選取10個車牌號，其中2個車牌的尾數是字母，其余8個車牌的尾數是數字。
規則二：車牌尾數按從小到大排列。
規則三：若規則一隨機選取的車牌中，第1個車牌尾數為數字，則經過規則二排列后，還需要將字母尾數車牌進行穿插，最終形成：數字一字母一數字一字母一數字一數字……；若規則一隨機選取的車牌中，第1個車牌尾數為字母，則經過規則二排列后，還需要將字母尾數車牌進行穿插，最終形成：字母一數字一字母一數字一數字……
程序運行后，列表框List1中顯示隨機選取的車牌，單擊“排序”按鈕，在列表框List2 中顯示按以上規則排序后的待選車牌。
（1）該界面中至少用到　 　(填數字)類控件。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Const n = 10
Dima(1 To 10) As String
Private Sub Form_ Load(　　)
'從數據庫里隨機選取10個車牌號(其中有2個尾號帶字母)，車牌號依次存儲于數組a(1)至a(10)，代碼略
End Sub
Private Sub Command1_ Click(　　)
If Then
m= 1
Else
m=0
End If
For i=1 To n-1
k=i
For j=i+1 To n
If 　 　 Then k=j
Next j
If k <> i then tmp=a(k)： a(k)=a(i)：a(i)= tmp
Next i
pos= 9
For i=0 To 1
j=　 　
tmp = a(pos)
Do While j>=m+1+2*i
a(j+1)=a(j)
j=j-1
Loop
　 　
pos= pos+1
Next i
For i=1 To 10
List2.AddItem a(i)
Next i
End Sub
Function judge(s As String) As Boolean
If Mid(s，7)>。="0"AndMid(s，7)<<="9"Then
judge = True
Else
judge = False
End If
End Function
（3）程序中加框處代碼有誤，請改正。
【答案】（1）4
（2）Mid(a(k)，7，1)> Mid(a(j)，7，1)；pos- 1(或 8+i)；a(j+1)= tmp
（3）judge(a(1))= True
【知識點】排序算法及程序實現；程序設計工具及編程環境
16．（2021高三上·浙江月考）小明接受了一個任務：要對照賦分表完成對本次高三技術摸底考試的卷面成績賦分，賦分表數據如下：
賦分成績 100 99 98 97 96 …… 42 43 41
卷面成績 90 88 86 85 83 …… 30 30 30
賦分成績最低40分，卷面成績低于30分則賦0分。賦分表數據存人數組ffb，如ffb(100)=90，則表示卷面成績90時，賦分100分。小明設計的賦分具體步驟如下：
第一步：對學生的卷面成績進行降序排序；
第二步：對照賦分表，對每-名學生卷面成績進行賦分。
小明編寫了VB賦分程序，在列表框List1中顯示學號和學生卷面成績，在列表框List2中顯示賦分表數據，單擊按鈕“我要賦分”后，按照之前的學號順序在列表框List3中顯示學號、卷面成績和賦分成績。VB程序界面如下：
Const m = 10000
Dim xh(1 to 10000) As String '存儲學生學號
Dim cj(1 To 10000) As Integer '存儲學生卷面成績
Dim ffcj(1 To 10000) As Integer '存儲學生賦分成績
Dim ffb(40 To 100) As Integer '存儲賦分表數據
Private Sub Form_ Load()
'讀入m名學生的學號、技術考試卷面成績分別存人數組xh和cj中，并在List1中顯示；讀入賦分表成績存人數組ffb中，代碼略
End Sub
Private Sub Command1_ Click()
Dim a(0 To 100) As Integer
Dim b(0 To 100) As Integer
Dim c(1 To 10000) As Integer
List2.AddItem "賦分成績卷面成績"
For i=100 To 40 Step-1 '在List2顯示賦分表數據
List2. AddItem Str(i)+ "" +Str( ffb(i))
Next i
For i=1 To m '統計各分數段的人數
①
a(t)=a(t)+1
Next i
j= 100
Do While a(j)=0
j=j-1
Loop
b(j)=1
For k=j- 1 To 0 Step -1
b(k)=b(k+1) + a(k+ 1)
Next k
For i=1 To m
t=cj(i)
c(b(t))=i
②
Next i
p=1：q= 100
Do While p<=m
If cj(c(p))> = ffb(q) Then
③
p=p+1
ElseIf q=40 Then
ffcj(c(p))=0
p=p+1
Else
q=q-1
End If
Loop
List3. AddItem "學號卷面成績賦分成績"
For i=1 To m
List3. AddItem xh(i)+" " + Str(cj(i)) + ""+Str(ffcj(i))
Next i
End Sub
（1）從圖中賦分表數據可知ffb(92)= 77，ffb(91)=77，ffb(90)=77。結合閱讀程序，請問學號為“30311”的同學卷面成績為77分，則其賦分成績為　 　 。
（2）請在劃線處填寫合適的代碼。
①　 ?、凇? ?、邸? 　
【答案】（1）92
（2）t=cj(i)；b(t)=b(t)+1；ffcj(c(p))=q
【知識點】排序算法及程序實現
1 / 1

展開更多......

收起↑