資源簡介

浙江省溫州市2021屆高三下學期信息技術5月高考適應性測試卷三模
一、選擇題(本大題共12小題，每小題2分，共24分)
1．（2021·溫州模擬）下列關于信息的說法，正確的是(　　)
A．計算機可以處理任意形式的信息
B．規范的信息表達是信息交流的基礎
C．多媒體信息的傳播必須依附于多種載體
D．經過計算機處理的信息一定可以恢復到處理前的狀態
【答案】B
【知識點】信息及其特征
2．（2021·溫州模擬）下列有關網頁與瀏覽器的說法，正確的是（　　）
A．網頁中的所有對象均存儲在網頁文件中
B．記事本軟件可以對網頁文件(.html)進行編輯、解釋并執行
C．用IE瀏覽器保存網頁內容只保存了該網頁的URL
D．瀏覽器與Web服務器之間進行信息傳輸采用的協議是HTTP
【答案】D
【知識點】網絡協議；瀏覽器；常用的網頁編輯與制作工具
3．（2021·溫州模擬）用Access軟件設計某停車場管理系統的數據庫，其中已建好的“停車位使用實時數據表”用于存儲如圖所示的數據。
序號 采集時間 層 區域 編號 車位占用情況 屬性
1 2021-5-1 08: 30: 00 B1 A 1 空 內部
2 2021-5-1 08: 30: 00 B2 A 2 占用 開放
3 2021-5-1 08:30: 00 B1 B 10 占用 關閉
4 2021-5-1 08: 35:00 B1 B 1 空 開放
…… …… …… …… …… …… ……
下列說法正確的是（　　）
A．存放圖中“編號”列數據的字段可以設置為“自動編號”類型
B．若車駛離車位，則該數據表中相應的記錄會被刪除
C．存放圖中“屬性”列數據的字段可以設置為“是/否”類型
D．存放圖中“采集時間”列數據字段的類型應設置為“日期/時間”
【答案】D
【知識點】數據表、字段、記錄的編輯；字段的數據類型
4．（2021·溫州模擬）某數轉換為十進制數為n，若n\4=4，則該數可能是（　　）
A．10011B B．11001B C．1AH D．2AH
【答案】A
【知識點】進制及數制轉換
5．（2021·溫州模擬）用Photoshop軟件制作“云對雨”作品，如圖所示。
下列說法正確的是（　　）
A．可以將“燕子”圖層重命名為“雙燕”
B．因為“背景”圖層被鎖定，所以不能刪除“背景”圖層
C．不能將“云對雨”圖層的圖層樣式拷貝到“山”圖層
D．當前狀態下，可以直接對“山”圖層添加“鏡頭光暈”濾鏡
【答案】A
【知識點】圖層及圖層的基本操作
6．（2021·溫州模擬）將幀頻為12fps、總幀數為120幀的Flash動畫作品導出為不壓縮的無聲AVI視頻文件，其參數為1024×768像素、24位色，則該視頻文件的存儲容量約為（　　）
A．22.5MB B．27MB C．270MB D．3.16GB
【答案】C
【知識點】聲音、圖像、視頻編碼
7．（2021·溫州模擬）VB表達式Int(Rnd*2) *30+ 10+ Int(Rnd * 100) Mod 10的值可能是(　　)
A．6 B．16 C．26 D．36
【答案】B
【知識點】運算符、基本運算與表達式；常用標準函數
8．（2021·溫州模擬）某算法的部分流程圖如圖所示。執行這部分流程后，輸出f1，f2的值分別是(　　)
A．5，8 B．8，13 C．13，21 D．21，34
【答案】C
【知識點】流程圖識讀
9．（2021·溫州模擬）采用冒泡排序算法對某數據序列進行排序，第-輪排序后的結果是“2，8，6，3，5，7，9”，則第二輪排序需要交換的次數為(　　)
A．4次或2次 B．4次或3次 C．3次或1次 D．2次或1次
【答案】A
【知識點】排序算法及程序實現
10．（2021·溫州模擬）若一個正整數從左向右讀與從右向左讀都一樣， 我們就將其稱之為“回文數”。設計一個在列表框List中顯示100 500之間的所有回文數的程序，實現該功能的VB程序段如下：
For k=100 To 500
x=k
z =0
Do While x> 0
Loop
If z=k Then
List1.AddItem Str(k)
End If
Next k
上述程序段中方框處可選語句為：
①x=x\10 ②y=xMod10
③z=z+10*y ④z=10*z+y
則(1)(2)(3)處語句依次為（　　）
A．①②③ B．②①③ C．①②④ D．②①④
【答案】D
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
11．（2021·溫州模擬）有如下VB程序段：
Dim a(1 To 9) As String， k As Integer
Dim s1 As String， s2 As String
s1= Text1.Text：s2 = Text2.Text
For i = 1 To Len(s1)
k = Val(Mid(s1， i，1))
a(k) = Mid(s2， i， 1)
Next i
For i=1 To 9
s=a(i)+s
Next i
Label1.Caption = s
在文本框Text1中輸入“52463”，文本框Text2中輸入“happy”， 執行該程序段后，標簽Label1中顯示的內容是（　　）
A．happy B．yppah C．phpya D．Pyhpa
【答案】C
【知識點】循環結構語句及程序實現；常用標準函數
12．（2021·溫州模擬）某VB程序段如下
數組元素f(1)到f (8)賦初值為0，代碼略
Key = Int(Rnd*7)*2+3
i =1：j=8：c=0
Key = Val(Text1.Text)
Do While i<=j
m=(i+j)\ 2
f(m) = 1
If Key <= a(m) Then j =m-1 Else i=m+1
For n=1 To 8
c=c+f(n)
Next n
數組元素a(1)到a(8)的值依次為“3，7，9，10，15，15，15，20”，執行該程序段后，則（　　）
A．變量j的值可能為8 B．變量c的值一定為3
C．變量i的值可能為9 D．a(j)的值可能等于key
【答案】B
【知識點】排序算法及程序實現
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2021·溫州模擬）某校一次考試的成績數據用Excel軟件進行處理，如圖所示。
請回答下列問題：
（1）區域M3：M172的數據是通過公式計算得到的，在M3單元格中輸入公式 　 　，再使用自動填充功能對區域M4：M172進行填充。
（2）為了實現1班的總分從高到低排序，下列對區域A2：M172的操作可行的是 (多選，填字母)。
A．先按“班級”為關鍵字升序排序，再按“總分”為關鍵字降序排序
B．以“班級”為主要關鍵字升序、“總分”為次要 關鍵字降序進行排序
C．以“總分”為主要關鍵字降序、“班級”為次要關鍵字升序進行排序
D．先按“班級”篩選，選擇值為“1班”，再按“總分”進行降序排序
（3）若表格數據已按班級升序排序，要找出2班總分最高分，可在指定單元格用公式“=max (　 　)”實現。
【答案】（1）=sum (C3：L3)
（2）B；D
（3）M31： M60
【知識點】表格數據的處理與計算
14．（2021·溫州模擬）小雅同學使用Flash軟件創建“五色花”多媒體作品，其中“片頭”場景的制作腳本如下表所示，部分界面如下圖所示。
場景名：片頭 類別序號： 1 進入方式：啟動動畫自動播放
呈現方式： ①種子圖層的“種子”在從完全透明到完全顯示的過程中逐漸變成一朵“五色花。 ②文字圖層依次出現“五”、“五色”“五色花’文字效果，并保留到本場景動畫結束。 ③“播放”按鈕位于舞臺左側靠下位置，單擊該按鈕，停止本場景音樂并跳轉到“故事”場景第1幀暫停。 呈現順序： ①一開始呈現背景、種子、云朵和音樂。 ②1秒后“文字”圖層出現“五”2秒后出現“五色”、3秒后出現“五色花” ③最后出現“播放”按鈕，背景音樂不停止。
請回答下列問題：
（1）關于Flash作品制作，下列說法正確的是 (多選，填字母)。
A．測試影片時，場景播放順序與場景名無關
B．刪除庫中元件，舞臺上的實例會隨之消失
C．舞臺，上所有的對象均由元件生成
D．將聲音同步方式設置為“數據流”或“事件”，其對應的播放效果一定 不同
（2）根據制作腳本和動畫編輯界面，“種子”圖層的動畫類型為　 　(單選，填字母：A．逐幀動畫/B．形狀補間/C．動畫補間)。若在“片頭”場景中將幀頻調整為10fps，則“種子”變成“五色花”動畫效果的速度將　 　 (單選，填字母：A .變快/B .變慢/C .不變)
（3）測試影片時，發現“文字”圖層一開始就出現“五色花"的三個字，不符合制作腳本的要求。為了符合制作腳本的要求，對“文字”圖層的操作方法可行的有 (多選，填字母)。
A．將第1幀移動到第13幀
B．將第1幀移動到第37幀
C．選中第1幀清除舞臺上的內容
D．選中第1幀，執行“轉換為空白關鍵幀”操作
E．選中第1幀，執行“清除關鍵幀”操作，再把第1幀移動到13幀
（4）根據制作腳本，“ 播放"按鈕的動作腳本為　 　。
【答案】（1）A；B
（2）C；B
（3）B；C；E
（4）on (press) {stopA1lsounds() ；gotoandstop(“故事”，1)；}
【知識點】動畫的類型；時間軸、幀、圖層、庫的概念及基本操作；元件的類型與應用；常用影片控制函數的應用
15．（2021·溫州模擬）字母排隊游戲。有一組不重復的字母串，現根據大小寫分別進行排隊。排隊規則如下：①根據字母大小寫按原順序提取字母，大寫字母排一隊，小寫字母排一隊；
②固定兩隊字母中最小字母在各隊中的位置；
③將兩隊其余字母按從小到大的順序排在各自最小字母的兩邊。大寫字母隊列先從最小字母右邊排隊，排到最后位置再從最小字母左邊開始排，直到第一個位置為止。同理，小寫字母隊列先從左邊開始排隊，再排右邊。過程如圖1所示：
編寫VB程序，實現字母排隊功能：在文本框Text1中輸入待排字母串后，單擊“排隊”按鈕Comand1，在列表框List1中顯示排隊結果。程序運行界面如圖2所示。
請回答下列問題：
（1）根據程序運行界面，“字母排隊”是窗體Form1的　 　(單選，填字母：A .對象名/B .屬性名/C .屬性值/D .過程名)。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Dim flag(1 To 52) As Boolean 'flag數組初值為False
Private Sub Command1_Click()
Dim su As
String， sd As String， ch As String 'su，sd分別存儲大小寫字母隊
Dim i As
Integer， n As Integer
Dim ku As
Integer， kd As Integer
s = Text1.Text：n =Len(s)
For i=1 To
n
ch =　 　
If
ch >="A" And ch <="Z" Then su= su+ ch
If
ch>="a"Andch<="z"Thensd=sd+ch
Next i
ku =
search(su， 0)
kd =
search(sd， 6
su=“”：sd=“”
For i=1 To
52
If
flag(i) And i<=26 Then su=su+Chr(i+64)
If flag(i) And i>26 Then
Next i
List1.AddItem sort(su，ku， 1)
List1.AddItem sort(sd，kd， -1)
End Sub
Function search(s As String， k As Integer) As Integer '確定字母隊列并查找最小元素位置
Min = Mid(s，1， 1)
flag(Asc(Min) - 64 - k) = True
mini = 1
For i=2 To Len(s)
ch = Mid(s， i，1)
If ch　 　
Next i
search = mini
End Function
Function sort(s As String， wz As Integer， k As Integer) As String '排隊
nx = Len(s)
sort = Mid(s， 1，1)
i=2
nc=1
Do While nc <= 2
For j=wz+k To nx^((1 +k) \ 2) Step k
If k= 1 Then
sort = sort + Mid(s，i，1)
Else
sort = Mid(s， i， 1) + sort
End If
i=i+1
Next j
　 　
nc=nc+1
Loop
End Function
（3）程序中加框處代碼有錯，請改正。
【答案】（1）C
（2）Mid(s, i, 1) 或Mid(Text11.Text, i, 1)；flag(Asc(ch) - 64 - k) = True；k=-k
（3）sd=sd+Chr(i+70)
【知識點】過程與自定義函數；排序算法及程序實現；查找算法及程序實現
16．（2021·溫州模擬）從2022年1月起，浙江省的選考成績將采用新的一分一賦的賦分制，賦分等級與比例如圖1所示。
賦分具體步驟為：
第一步，將卷面得分按人數比例劃分為20個賦分區間，得出每個區間卷面得分的上限、下限。(說明：每個賦分等級人數=總人數×每個賦分等級比例(結果四舍五入取整) ；當卷面得分相同但人數超出該等級人數時，則減少下一檔的人數。)
第二步，對每個區間的卷面得分進行等比例轉換成賦分，公式為：
其中，s2、s1為卷面得分區間的上限和下限，s為待轉換卷面得分；t2、t1為賦分區間的上限和下限，t為卷面得分等比例轉換后的賦分。
第三步，將轉換后的賦分t取整(小數部分四舍五入)。
編寫VB程序，實現成績賦分功能：在列表框List1中顯示某市所有學生的考號，原始成績(無0分，降序排列)和名次(同分同名)，單擊“成績賦分”按鈕Command1后，賦分成績按從高到低的順序顯示在列表框List2中。程序界面如圖2所示。
（1）若賦分區間為87-85，其對應的卷面得分區間在84-81，某考生的卷面得分為83，則通過比例公式轉換，該考生的等級賦分為　 　分 。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Const n = 18000 '總人數
Dim kh(1 To n) As String '學生考號
Dim cj(1 To n) As Single '原始成績
Dim cj2(1 To n) As Integer '賦分成績
Dim mc(1 To n) As Integer '原始成績的排名
Dim pro(1 To 20)As Single '每個等級的人數比例
Dim t(1 To 40) As Integer '每個等級賦分區間的上限和下限
Dim s(1 To 40) As Single '每個等級卷面得分的上限和下限
Dim num(1 To 20) As Integer
Private Sub Form_ Load()
'從數據庫中讀取數據，將考號、原始成績分別存儲在數組kh和數組cj中
'將每個等級的比例存入數組pro中
'將每個賦分區間的上限、下限存入數組t中(如t(1)、t(2) 分別存儲等級1的賦分上限100， 下限97)
'將數組cj降序排列，計算出名次存入數組mc中，并顯示在List1中，代碼略
End Sub
Private Sub Command1_Click()
Dim flag As Boolean， k As Integer， i As Integer
num(1) = Int(pro(1) * n + 0.5)
For i=2 To 20
num(i) =　 　
Next i
num(20) = n
k=1：flag=True：i=1
Do While i<=n '劃定每個等級相應的卷面得分的上限和下限
If me(i) If flag Then s(2 * k- 1) = cj(i)
flag = False
i=i+1
ElseIf 　 　 Then
s(2 * k) = cj(i)
flag = True
i=i+1
Else
　 　
flag = True
k=k+1
End If
Loop
If s(2*k)=0 Then s(2*k)=cj(n)
'根據比例轉換公式計算每個考生的賦分結果，存入數組cj2中，代碼略。
For i= 1To n
List2.AddItem kh(i) +”” + Str(cj(i)) +”” + Str(cj2(i))
Next i
End Sub
【答案】（1）86
（2）num(i - 1) + int (pro(i) *n+ 0.5)；mc(i) =num(k)；s(2*k)=cj(i-1)
【知識點】常見數據類型、數組；分支結構語句及程序實現；循環結構語句及程序實現
1 / 1浙江省溫州市2021屆高三下學期信息技術5月高考適應性測試卷三模
一、選擇題(本大題共12小題，每小題2分，共24分)
1．（2021·溫州模擬）下列關于信息的說法，正確的是(　　)
A．計算機可以處理任意形式的信息
B．規范的信息表達是信息交流的基礎
C．多媒體信息的傳播必須依附于多種載體
D．經過計算機處理的信息一定可以恢復到處理前的狀態
2．（2021·溫州模擬）下列有關網頁與瀏覽器的說法，正確的是（　　）
A．網頁中的所有對象均存儲在網頁文件中
B．記事本軟件可以對網頁文件(.html)進行編輯、解釋并執行
C．用IE瀏覽器保存網頁內容只保存了該網頁的URL
D．瀏覽器與Web服務器之間進行信息傳輸采用的協議是HTTP
3．（2021·溫州模擬）用Access軟件設計某停車場管理系統的數據庫，其中已建好的“停車位使用實時數據表”用于存儲如圖所示的數據。
序號 采集時間 層 區域 編號 車位占用情況 屬性
1 2021-5-1 08: 30: 00 B1 A 1 空 內部
2 2021-5-1 08: 30: 00 B2 A 2 占用 開放
3 2021-5-1 08:30: 00 B1 B 10 占用 關閉
4 2021-5-1 08: 35:00 B1 B 1 空 開放
…… …… …… …… …… …… ……
下列說法正確的是（　　）
A．存放圖中“編號”列數據的字段可以設置為“自動編號”類型
B．若車駛離車位，則該數據表中相應的記錄會被刪除
C．存放圖中“屬性”列數據的字段可以設置為“是/否”類型
D．存放圖中“采集時間”列數據字段的類型應設置為“日期/時間”
4．（2021·溫州模擬）某數轉換為十進制數為n，若n\4=4，則該數可能是（　　）
A．10011B B．11001B C．1AH D．2AH
5．（2021·溫州模擬）用Photoshop軟件制作“云對雨”作品，如圖所示。
下列說法正確的是（　　）
A．可以將“燕子”圖層重命名為“雙燕”
B．因為“背景”圖層被鎖定，所以不能刪除“背景”圖層
C．不能將“云對雨”圖層的圖層樣式拷貝到“山”圖層
D．當前狀態下，可以直接對“山”圖層添加“鏡頭光暈”濾鏡
6．（2021·溫州模擬）將幀頻為12fps、總幀數為120幀的Flash動畫作品導出為不壓縮的無聲AVI視頻文件，其參數為1024×768像素、24位色，則該視頻文件的存儲容量約為（　　）
A．22.5MB B．27MB C．270MB D．3.16GB
7．（2021·溫州模擬）VB表達式Int(Rnd*2) *30+ 10+ Int(Rnd * 100) Mod 10的值可能是(　　)
A．6 B．16 C．26 D．36
8．（2021·溫州模擬）某算法的部分流程圖如圖所示。執行這部分流程后，輸出f1，f2的值分別是(　　)
A．5，8 B．8，13 C．13，21 D．21，34
9．（2021·溫州模擬）采用冒泡排序算法對某數據序列進行排序，第-輪排序后的結果是“2，8，6，3，5，7，9”，則第二輪排序需要交換的次數為(　　)
A．4次或2次 B．4次或3次 C．3次或1次 D．2次或1次
10．（2021·溫州模擬）若一個正整數從左向右讀與從右向左讀都一樣， 我們就將其稱之為“回文數”。設計一個在列表框List中顯示100 500之間的所有回文數的程序，實現該功能的VB程序段如下：
For k=100 To 500
x=k
z =0
Do While x> 0
Loop
If z=k Then
List1.AddItem Str(k)
End If
Next k
上述程序段中方框處可選語句為：
①x=x\10 ②y=xMod10
③z=z+10*y ④z=10*z+y
則(1)(2)(3)處語句依次為（　　）
A．①②③ B．②①③ C．①②④ D．②①④
11．（2021·溫州模擬）有如下VB程序段：
Dim a(1 To 9) As String， k As Integer
Dim s1 As String， s2 As String
s1= Text1.Text：s2 = Text2.Text
For i = 1 To Len(s1)
k = Val(Mid(s1， i，1))
a(k) = Mid(s2， i， 1)
Next i
For i=1 To 9
s=a(i)+s
Next i
Label1.Caption = s
在文本框Text1中輸入“52463”，文本框Text2中輸入“happy”， 執行該程序段后，標簽Label1中顯示的內容是（　　）
A．happy B．yppah C．phpya D．Pyhpa
12．（2021·溫州模擬）某VB程序段如下
數組元素f(1)到f (8)賦初值為0，代碼略
Key = Int(Rnd*7)*2+3
i =1：j=8：c=0
Key = Val(Text1.Text)
Do While i<=j
m=(i+j)\ 2
f(m) = 1
If Key <= a(m) Then j =m-1 Else i=m+1
For n=1 To 8
c=c+f(n)
Next n
數組元素a(1)到a(8)的值依次為“3，7，9，10，15，15，15，20”，執行該程序段后，則（　　）
A．變量j的值可能為8 B．變量c的值一定為3
C．變量i的值可能為9 D．a(j)的值可能等于key
二、非選擇題(本大題共4小題，4+8+7+7，共26分)
13．（2021·溫州模擬）某校一次考試的成績數據用Excel軟件進行處理，如圖所示。
請回答下列問題：
（1）區域M3：M172的數據是通過公式計算得到的，在M3單元格中輸入公式 　 　，再使用自動填充功能對區域M4：M172進行填充。
（2）為了實現1班的總分從高到低排序，下列對區域A2：M172的操作可行的是 (多選，填字母)。
A．先按“班級”為關鍵字升序排序，再按“總分”為關鍵字降序排序
B．以“班級”為主要關鍵字升序、“總分”為次要 關鍵字降序進行排序
C．以“總分”為主要關鍵字降序、“班級”為次要關鍵字升序進行排序
D．先按“班級”篩選，選擇值為“1班”，再按“總分”進行降序排序
（3）若表格數據已按班級升序排序，要找出2班總分最高分，可在指定單元格用公式“=max (　 　)”實現。
14．（2021·溫州模擬）小雅同學使用Flash軟件創建“五色花”多媒體作品，其中“片頭”場景的制作腳本如下表所示，部分界面如下圖所示。
場景名：片頭 類別序號： 1 進入方式：啟動動畫自動播放
呈現方式： ①種子圖層的“種子”在從完全透明到完全顯示的過程中逐漸變成一朵“五色花。 ②文字圖層依次出現“五”、“五色”“五色花’文字效果，并保留到本場景動畫結束。 ③“播放”按鈕位于舞臺左側靠下位置，單擊該按鈕，停止本場景音樂并跳轉到“故事”場景第1幀暫停。 呈現順序： ①一開始呈現背景、種子、云朵和音樂。 ②1秒后“文字”圖層出現“五”2秒后出現“五色”、3秒后出現“五色花” ③最后出現“播放”按鈕，背景音樂不停止。
請回答下列問題：
（1）關于Flash作品制作，下列說法正確的是 (多選，填字母)。
A．測試影片時，場景播放順序與場景名無關
B．刪除庫中元件，舞臺上的實例會隨之消失
C．舞臺，上所有的對象均由元件生成
D．將聲音同步方式設置為“數據流”或“事件”，其對應的播放效果一定 不同
（2）根據制作腳本和動畫編輯界面，“種子”圖層的動畫類型為　 　(單選，填字母：A．逐幀動畫/B．形狀補間/C．動畫補間)。若在“片頭”場景中將幀頻調整為10fps，則“種子”變成“五色花”動畫效果的速度將　 　 (單選，填字母：A .變快/B .變慢/C .不變)
（3）測試影片時，發現“文字”圖層一開始就出現“五色花"的三個字，不符合制作腳本的要求。為了符合制作腳本的要求，對“文字”圖層的操作方法可行的有 (多選，填字母)。
A．將第1幀移動到第13幀
B．將第1幀移動到第37幀
C．選中第1幀清除舞臺上的內容
D．選中第1幀，執行“轉換為空白關鍵幀”操作
E．選中第1幀，執行“清除關鍵幀”操作，再把第1幀移動到13幀
（4）根據制作腳本，“ 播放"按鈕的動作腳本為　 　。
15．（2021·溫州模擬）字母排隊游戲。有一組不重復的字母串，現根據大小寫分別進行排隊。排隊規則如下：①根據字母大小寫按原順序提取字母，大寫字母排一隊，小寫字母排一隊；
②固定兩隊字母中最小字母在各隊中的位置；
③將兩隊其余字母按從小到大的順序排在各自最小字母的兩邊。大寫字母隊列先從最小字母右邊排隊，排到最后位置再從最小字母左邊開始排，直到第一個位置為止。同理，小寫字母隊列先從左邊開始排隊，再排右邊。過程如圖1所示：
編寫VB程序，實現字母排隊功能：在文本框Text1中輸入待排字母串后，單擊“排隊”按鈕Comand1，在列表框List1中顯示排隊結果。程序運行界面如圖2所示。
請回答下列問題：
（1）根據程序運行界面，“字母排隊”是窗體Form1的　 　(單選，填字母：A .對象名/B .屬性名/C .屬性值/D .過程名)。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Dim flag(1 To 52) As Boolean 'flag數組初值為False
Private Sub Command1_Click()
Dim su As
String， sd As String， ch As String 'su，sd分別存儲大小寫字母隊
Dim i As
Integer， n As Integer
Dim ku As
Integer， kd As Integer
s = Text1.Text：n =Len(s)
For i=1 To
n
ch =　 　
If
ch >="A" And ch <="Z" Then su= su+ ch
If
ch>="a"Andch<="z"Thensd=sd+ch
Next i
ku =
search(su， 0)
kd =
search(sd， 6
su=“”：sd=“”
For i=1 To
52
If
flag(i) And i<=26 Then su=su+Chr(i+64)
If flag(i) And i>26 Then
Next i
List1.AddItem sort(su，ku， 1)
List1.AddItem sort(sd，kd， -1)
End Sub
Function search(s As String， k As Integer) As Integer '確定字母隊列并查找最小元素位置
Min = Mid(s，1， 1)
flag(Asc(Min) - 64 - k) = True
mini = 1
For i=2 To Len(s)
ch = Mid(s， i，1)
If ch　 　
Next i
search = mini
End Function
Function sort(s As String， wz As Integer， k As Integer) As String '排隊
nx = Len(s)
sort = Mid(s， 1，1)
i=2
nc=1
Do While nc <= 2
For j=wz+k To nx^((1 +k) \ 2) Step k
If k= 1 Then
sort = sort + Mid(s，i，1)
Else
sort = Mid(s， i， 1) + sort
End If
i=i+1
Next j
　 　
nc=nc+1
Loop
End Function
（3）程序中加框處代碼有錯，請改正。
16．（2021·溫州模擬）從2022年1月起，浙江省的選考成績將采用新的一分一賦的賦分制，賦分等級與比例如圖1所示。
賦分具體步驟為：
第一步，將卷面得分按人數比例劃分為20個賦分區間，得出每個區間卷面得分的上限、下限。(說明：每個賦分等級人數=總人數×每個賦分等級比例(結果四舍五入取整) ；當卷面得分相同但人數超出該等級人數時，則減少下一檔的人數。)
第二步，對每個區間的卷面得分進行等比例轉換成賦分，公式為：
其中，s2、s1為卷面得分區間的上限和下限，s為待轉換卷面得分；t2、t1為賦分區間的上限和下限，t為卷面得分等比例轉換后的賦分。
第三步，將轉換后的賦分t取整(小數部分四舍五入)。
編寫VB程序，實現成績賦分功能：在列表框List1中顯示某市所有學生的考號，原始成績(無0分，降序排列)和名次(同分同名)，單擊“成績賦分”按鈕Command1后，賦分成績按從高到低的順序顯示在列表框List2中。程序界面如圖2所示。
（1）若賦分區間為87-85，其對應的卷面得分區間在84-81，某考生的卷面得分為83，則通過比例公式轉換，該考生的等級賦分為　 　分 。
（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。
Const n = 18000 '總人數
Dim kh(1 To n) As String '學生考號
Dim cj(1 To n) As Single '原始成績
Dim cj2(1 To n) As Integer '賦分成績
Dim mc(1 To n) As Integer '原始成績的排名
Dim pro(1 To 20)As Single '每個等級的人數比例
Dim t(1 To 40) As Integer '每個等級賦分區間的上限和下限
Dim s(1 To 40) As Single '每個等級卷面得分的上限和下限
Dim num(1 To 20) As Integer
Private Sub Form_ Load()
'從數據庫中讀取數據，將考號、原始成績分別存儲在數組kh和數組cj中
'將每個等級的比例存入數組pro中
'將每個賦分區間的上限、下限存入數組t中(如t(1)、t(2) 分別存儲等級1的賦分上限100， 下限97)
'將數組cj降序排列，計算出名次存入數組mc中，并顯示在List1中，代碼略
End Sub
Private Sub Command1_Click()
Dim flag As Boolean， k As Integer， i As Integer
num(1) = Int(pro(1) * n + 0.5)
For i=2 To 20
num(i) =　 　
Next i
num(20) = n
k=1：flag=True：i=1
Do While i<=n '劃定每個等級相應的卷面得分的上限和下限
If me(i) If flag Then s(2 * k- 1) = cj(i)
flag = False
i=i+1
ElseIf 　 　 Then
s(2 * k) = cj(i)
flag = True
i=i+1
Else
　 　
flag = True
k=k+1
End If
Loop
If s(2*k)=0 Then s(2*k)=cj(n)
'根據比例轉換公式計算每個考生的賦分結果，存入數組cj2中，代碼略。
For i= 1To n
List2.AddItem kh(i) +”” + Str(cj(i)) +”” + Str(cj2(i))
Next i
End Sub
答案解析部分
1．【答案】B
【知識點】信息及其特征
2．【答案】D
【知識點】網絡協議；瀏覽器；常用的網頁編輯與制作工具
3．【答案】D
【知識點】數據表、字段、記錄的編輯；字段的數據類型
4．【答案】A
【知識點】進制及數制轉換
5．【答案】A
【知識點】圖層及圖層的基本操作
6．【答案】C
【知識點】聲音、圖像、視頻編碼
7．【答案】B
【知識點】運算符、基本運算與表達式；常用標準函數
8．【答案】C
【知識點】流程圖識讀
9．【答案】A
【知識點】排序算法及程序實現
10．【答案】D
【知識點】分支結構語句及程序實現；循環結構語句及程序實現
11．【答案】C
【知識點】循環結構語句及程序實現；常用標準函數
12．【答案】B
【知識點】排序算法及程序實現
13．【答案】（1）=sum (C3：L3)
（2）B；D
（3）M31： M60
【知識點】表格數據的處理與計算
14．【答案】（1）A；B
（2）C；B
（3）B；C；E
（4）on (press) {stopA1lsounds() ；gotoandstop(“故事”，1)；}
【知識點】動畫的類型；時間軸、幀、圖層、庫的概念及基本操作；元件的類型與應用；常用影片控制函數的應用
15．【答案】（1）C
（2）Mid(s, i, 1) 或Mid(Text11.Text, i, 1)；flag(Asc(ch) - 64 - k) = True；k=-k
（3）sd=sd+Chr(i+70)
【知識點】過程與自定義函數；排序算法及程序實現；查找算法及程序實現
16．【答案】（1）86
（2）num(i - 1) + int (pro(i) *n+ 0.5)；mc(i) =num(k)；s(2*k)=cj(i-1)
【知識點】常見數據類型、數組；分支結構語句及程序實現；循環結構語句及程序實現
1 / 1

展開更多......

收起↑