2021年浙江省溫州市高考信息技術(shù)三模試卷（5月份）
發(fā)布：2024/12/31 22:0:2
一、選擇題（本大題共12小題，每小題2分，共24分，每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分）
-
1．下列關(guān)于信息的說法，正確的是（ ）
組卷：2引用：1難度：0.6 -
2．下列有關(guān)網(wǎng)頁與瀏覽器的說法，正確的是（ ?。?/h2>
組卷：3引用：1難度：0.5 -
3．用 Access 軟件設(shè)計某停車場管理系統(tǒng)的數(shù)據(jù)庫，其中已建好的“停車位使用實時數(shù)據(jù)表”用于存儲如表所示的數(shù)據(jù)。
下列說法正確的是（ ）序號 采集時間 層 區(qū)域 編號 車位占用情況 屬性 1 2021-5-1 08：30：00 B1 A 1 空 內(nèi)部 2 2021-5-1 08：30：00 B2 A 2 占用 開放 3 2021-5-1 08：30：00 B1 B 10 占用 關(guān)閉 4 2021-5-1 08：35：00 B1 B 1 空 開放 … … … … … … … 組卷：1引用：1難度：0.5 -
4．某數(shù)轉(zhuǎn)換為十進制數(shù)為 n,若 n\4=4，則該數(shù)可能是（ ?。?/h2>
組卷：5引用：1難度：0.5 -
5．用 Photoshop 軟件制作“云對雨”作品，如圖所示。
下列說法正確的是（ ?。?/h2>組卷：1引用：1難度：0.4
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分）
-
15．字母排隊游戲。有一組不重復的字母串，現(xiàn)根據(jù)大小寫分別進行排隊。排隊規(guī)則如下：
（1）根據(jù)字母大小寫按原順序提取字母，大寫字母排一隊，小寫字母排一隊；
（2）固定兩隊字母中最小字母在各隊中的位置：
（3）將兩隊其余字母按從小到大的順序排在各自最小字母的兩邊。大寫字母隊列先從最小字母右邊排隊，排到最后位置再從最小字母左邊開始排，直到第一個位置為止。同理，小寫字母隊列先從左邊開始排隊，再排右邊。過程如圖 1 所示：
編寫 VB 程序，實現(xiàn)字母排隊功能：在文本框 Text1 中輸入待排字母串后，單擊“排隊”按鈕
Command1，在列表框 List1 中顯示排隊結(jié)果。程序運行界面如圖 2 所示。
請回答下列問題：
（1）根據(jù)程序運行界面，“字母排隊”是窗體 Forml 的（單選，填字母：A.對象名/B.屬性名
/C.屬性值/D.過程名）。
（2）實現(xiàn)上述功能的 VB 程序如下，請在橫線處填入合適的代碼。
（3）程序中加框處代碼有錯，請改正。
Dim flag（1 To 52）As Boolean'flag 數(shù)組初值為 False Private Sub Command1_Click （ ?。?br />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“And ch＜=“z“Then sd=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＜Min Then mini=i：Min=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組卷：0引用：1難度：0.2 -
16．從 2022 年 1 月起，浙江省的選考成績將采用新的一分一賦的賦分制，賦分等級與比例如圖 1 所示。
賦分具體步驟為：等級 1 2 3 4 5 6 7 8 9 10 等級賦分 100-97 96-94 93-91 90-88 97-85 84-82 81-79 78-76 75-73 72-70 人數(shù)比例（%） 3 3 4 5 6 7 7 7 7 7 等級 11 12 13 14 15 16 17 18 19 20 等級賦分 69-67 66-64 63-61 60-58 57-55 54-52 51-49 48-46 45-43 42-40 人數(shù)比例（%） 7 7 7 6 5 4 3 2 1 1
第一步，將卷面得分按人數(shù)比例劃分為 20 個賦分區(qū)間，得出每個區(qū)間卷面得分的上限、下限。（說明：每個賦分等級人數(shù)=總?cè)藬?shù)×每個賦分等級比例（結(jié)果四舍五入取整）；當卷面得分相同但人數(shù)超出該等級人數(shù)時，則減少下一檔的人數(shù)。）
第二步，對每個區(qū)間的卷面得分進行等比例轉(zhuǎn)換成賦分，公式為：s2-s=t2-t,其中，s2、s1 為
s-s1t-t1
卷面得分區(qū)間的上限和下限，s 為待轉(zhuǎn)換卷面得分；t2、t1 為賦分區(qū)間的上限和下限，t 為卷面得分等比例轉(zhuǎn)換后的賦分。
第三步，將轉(zhuǎn)換后的賦分 t 取整（小數(shù)部分四舍五入）。
編寫 VB 程序，實現(xiàn)成績賦分功能：在列表框 List1 中顯示某市所有學生的考號，原始成績（無 0 分，降序排列）和名次（同分同名），單擊“成績賦分”按鈕 Command1 后，賦分成績按從高到低的順序顯示在列表框 List2 中。程序界面如圖所示。
（1）若賦分區(qū)間為 87-85，其對應(yīng)的卷面得分區(qū)間在 84-81，某考生的卷面得分為 83，則通過比例公式轉(zhuǎn)換，該考生的等級賦分為分。
（2）實現(xiàn)上述功能的 VB 程序如下，請在橫線處填入合適的代碼。
Const n=18000'總?cè)藬?shù)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'每個等級的人數(shù)比例
Dim t（1 To 40）As Integer'每個等級賦分區(qū)間的上限和下限D(zhuǎn)im s（1 To 40）As Single'每個等級卷面得分的上限和下限D(zhuǎn)im num（1 To 20）As Integer
Private Sub Form_Load （ ?。?從數(shù)據(jù)庫中讀取數(shù)據(jù)，將考號、原始成績分別存儲在數(shù)組 kh 和數(shù)組 cj 中
'將每個等級的比例存入數(shù)組 pro 中
'將每個賦分區(qū)間的上限、下限存入數(shù)組 t 中（如 t（1）、t（2）分別存儲等級 1 的賦分上限 100，下限 97），
'將數(shù)組 cj 降序排列，計算出名次存入數(shù)組 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'劃定每個等級相應(yīng)的卷面得分的上限和下限 If mc（i）＜num（k）Then
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）
'根據(jù)比例轉(zhuǎn)換公式計算每個考生的賦分結(jié)果，存入數(shù)組 cj2 中，代碼略。
For i=1 To n
List2.AddItem kh（i）+““+Str（cj（i））+““+Str（cj2（i））Next i
End Sub組卷：1引用：1難度：0.2