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
