2021年1月浙江省普通高校招生選考信息技術試卷
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分。每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分）
-
1．下列關于信息與信息技術的描述，正確的是（ ）
組卷：18引用：4難度：0.8 -
2．下列關于信息安全的說法，正確的是。（ ）
組卷：17引用：2難度：0.6 -
3．用Access軟件設計抗疫物資收發系統的數據庫，其中已建好的“物資流向”數據表用于存儲如表所示的數據。下列關于“物資流向”數據表的描述，正確的是（ ）
發放序號 發放日期 領用單位 物資名稱 數量 是否定向 20200101 2020.01.29 街道辦事處 醫用口罩 1000 是 20200102 2020.02.12 疫情防控組 普通防護服 200 否 20200103 2020.02.12 疫情防控組 體溫槍 500 否 … … … … … … 組卷：3引用：3難度：0.6 -
4．英文字符在計算機中有全角和半角之分。全角英文字符的內碼由兩個字節組成，第一個字節的值是A3H，第三個字節的值是其對應的半角內碼值加上80H得到的。例如，半角字符“A”的內碼值是41H，則全角字符“A”的內碼值是A3C1H。用UltraEdit軟件查看字符內碼，部分界面如圖所示。下列說法錯誤的是（ ）
組卷：19引用：3難度：0.4 -
5．使用GoldWave軟件編輯某音頻文件，部分界面如圖所示。下列說法正確的是（ ）
組卷：6引用：4難度：0.4
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分）
-
15．根據申請人的QA和QB值，從m個申請人中挑選2人組隊參加某挑戰賽。條件一是2人的QA值都必須大于指定參數h；條件二是2人的QA值之差（較大值減較小值）小于h。在滿足上述兩個條件的所有2人組合中，挑選QB值之和最大的一個組合。（QA、QB和h的值均為正整數）
編寫VB程序，實現上述挑選功能。運行程序，在文本框Text1中輸入參數h后，單擊“挑選”按鈕Command1，在列表框List1中按QA值降序顯示滿足條件一的申請人信息，最后在標簽Label1中顯示組隊結果。程序運行界面如圖所示。
請回答下列問題：
（1）若要清空列表框List1，能實現該功能的語句是（單選，填字母：A.List1.Caption=““/B.List1.Text=““/C.List1.Clear）。
（2）實現上述功能的VB程序如下，請在橫線處填入合適的代碼。
（3）程序中加框處代碼有錯，請改正。
Constm=20’m表示申請人個數
Dimid（m）AsInteger,qa（m）AsInteger,qb（m）AsInteger
PrivateSubCommand1_Click （ ）
DimiAsIntegerjAsInteger,kAsInteger,tAsInteger,maxAsInteger
DimhAsInteger,nAsInteger’變量n存儲滿足條件一的申請人個數
DimsAsString
’讀取全部申請人的編號、QA和QB值，分別存入數組id、qa和qb,代碼略
h=Val（Text1.Text）：n=m
Fori=1Tom-1
k=i
Forj=i+1Tom
Ifqa（j）＞qa（k）Thenk=j
Nextj
If
Then
Ifk＜＞iThen
t=qa（i）：qa（i）=qa（k）：qa（k）=t
t=qb（i）：qb（i）=qb（k）：qb（k）=t
t=id（i）：id（i）=id（k）：id（k）=t
EndIf
Else
n=①
ExitFor’ExitFor表示退出循環
EndIf
Nexti
’滿足條件一的申請人信息顯示在列表框Listl中，代碼略
max=0：s=“沒有滿足條件的組合”
’在滿足條件的組合中，尋找QB值之和最大的組合，若有并列，只保留第一個
Fori=nTo2Step-1
j=i-1
DoWhile②
Ifqb（i）+qb（j）＞maxThen
s=“組隊結果：“+Str（id（i））+“號，“+Str（id（j））+“號“
③
EndIf
j=j-1
Loop
Nexti
Label1.Caption=s
EndSub組卷：7引用：1難度：0.5 -
16．某物品柜有5層，每層有10個格子，每個格子只能放一個物品。第1層格子編號依次為1到10，第2層格子編號依次為11到20，依此類推。有9組物品（組號1～9），每組有2到8個物品，物品總數不超過50個。將9組物品按組號由小到大依次放入柜中，放置方式有兩種：
（1）整體放置。按格子編號由小到大的次序查找第一個可放置該組全部物品的空區域（空區域是指從某個空格子開始的同層連續的所有空格子），若找到，則在該空區域居中、連續放置該組全部物品，如圖a所示。
（2）零散放置。若所有空區域格子數都小于該組物品數，則將該組每個物品依次放置在當前編號最小的空格子中，如圖b所示。
編寫VB程序，模擬物品放置。運行程序，在列表框List1中顯示每組物品的組號和數量，單擊“放置”按鈕Command1，在列表框List2中顯示每組物品放置結果。程序運行界面如圖c所示。
（1）若第1、第2組的物品數分別為6和2，則放置第2組物品的格子編號依次為。
（2）實現上述功能的VB程序如下，請在橫線處填入合適的代碼。
Constm=50’m表示物品柜的格子數
Constw=10’w表示物品柜每層的格子數
Constn=9’n表示物品的組數
’f（i）存儲第i個格子開始的同層連續的所有空格子數。f（i）為0表示第i個格子不是空格子
Dimf（m）AsInteger
Dima（n）AsInteger
PrivateSubForm_Load
’讀取各組物品的個數依次存入數組a,并在List1中顯示
’代碼略
EndSub
Functiongetpos（rAsIntegerAsInteger
’按格子編號從小到大的次序，查找空格子數≥r的第一個空區域
’若找到，返回該空區域的起始編號，否則返回-1
’代碼略
EndFunction
PrivateSubCommand1_Click （ ）
DimiAsInteger,jAsInteger,kAsInteger,pAsInteger,vAsInteger
DimsAsString
Fori=1Tom
f（i）=w-（i-1）Modw’w為10，表示每層的格子數
Nexti
v=1
Fori=1Ton
s=““
p=①
Ifp=-1Then
j=1
DoWhilej＜=a（i）
Iff（v）＜＞0Then
s=s+Str（v）
f（v）=
j=j+1
EndIf
②
Loop
Else
k=（f（p）-a（i））\2
Forj=kTo1Step-1
f（p）=j
p=p+1
Nextj
Forj=③
f（j）=0
s=s+Str（j）
Nextj
EndIf
List2.AddItem“第“+Str（i）+“組：“+s
Nexti
EndSub組卷：6引用：1難度：0.5