2020年7月浙江省普通高校招生选考信息技术试卷
发布：2024/12/28 10:0:2
一、选择题（本大题共12小题，每小题2分，共24分。每小题列出的四个备选项中只有一个是符合題目要求的，不选、多选、错选均不得分）
-
1．下列有关信息与信息处理的说法，错误的是（ ）
组卷：50引用：2难度：0.5 -
2．下列有关网页与浏览器的说法，正确的是（ ）
组卷：17引用：1难度：0.5 -
3．使用Access软件设计一个数据表，存储如图所示的学生提问记录数据。如表结构设计合理的是（ ）
序号 问题编号 问题摘要 解答状态 学号 提问日期 1 XX0051 选择排序优化 已解答 20180131 2020-3-10 2 WL0192 共点力的合成 未解答 20191201 2020-4-11 … … … … … … 组卷：1引用：1难度：0.5 -
4．下列十六进制数中，转换为二进制数后含有奇数个“1”的是（ ）
组卷：61引用：3难度：0.5 -
5．用 Photoshop软件制作“飞越高峰”作品，在“鹰”图层中已选择矩形区域，如图所示。下列说法正确的是（ ）
组卷：23引用：1难度：0.5
-
15．某校为学生期末考试分配考场，并编制准考证号。每个班级有班号，每位学生有班内序号，班内序号是按班级现有人数从1开始逐个编排的。准考证号格式为“入学年份+班号+班内序号”。每个考场有30个座位，座位号从1开始。连续分配座位的两个学生不属于同一个班级。
分配方法是：按考场号递增、同一考场座位号递增的顺序逐一分配座位。每次分配，先选班级，再选学生。选择班级时，在班级降序序列（按未分配人数）中选择第1个班级，但如果该班和前一次分配选定的班级相同，则改选第2个班级。选定班级后，再为该班未分配学生中序号最大的学生分配考场座位，并维护班级降序序列（按未分配人数）。
编写VB程序，实现考场分配功能：在文本框Text1中填写入学年份，单击“读取”按钮Commandl后，将各班数据按人数降序显示在列表框List1中，然后单击“分配”按钮Command2，在列表框List2中显示分配结果。程序运行界面如图所示。
请回答下列问题：
（1）下列对象中，有 Caption属性的是（单选，填字母：A．Command 1/B．Text 1/C．List 1）。
（2）实现考场分配功能的VB程序如下，请在横线处填入合适的代码。
（3）程序中加框处代码有错，请改正。
Dim n As Integer,y As String
Dim cla（1 To 20）As Integer,num（I To 20）As Integer
Dim room As Integer'存储考场号
Dim seat As Integer'存储座位号
Function fm（k As Integer） As String
'返回整数k（1≤k≤99）对应的数字字符串，不足两位左侧补“0”，代码略
End function
Private Sub Command 1_ Click （ ）
'从Text l中读取入学年份存入变量y,从数据库中读取该入学年份的班级数据，
'将班级个数存入变量n（1＜n≤20），各班班号和人数分别存入数组ela和num,
'各班班号均大于0，各班人数均未超过总人数的一半，
'将数组cla和num按班级人数降序排列后，显示在List l中，代码略
End Sub
Private Sub Command 2_ Click （ ）
Dim i As Integer,t As Integer,s As Integer
Dim choice As Integer,m As Integer,f As Boolean
room=1：seat=1：choice=0
①
Do While f=True
If cla （1）＜＞choice Then m=1 Else m=2
choice=cla（m）
'在列表框List2中显示准考证号、考场号、座位号
List 2．Addltem y+fm（ela（m））+fm（num（m））+″″+fm（room）+″″+fm（seat）
seat=seat+1
If seat＞30 Then
seat=1
End If
num（m）=num（m）-1
For i=②To n-1'维护班级降序序列（按未分配人数）
If num（i）＜num（i+1）Then
t=num（i）：num（i）=num（i+1）：num（i+1）=t
s=ela（i）：ela（i）=ela（i+1）：ela（i+1）=s
Else
Exit For'ExitFor表示退出循环
End If
Next i
If③Then f=False
Loop
End Sub组卷：11引用：1难度：0.1 -
16．编写VB程序，功能是根据A城和B城同一时间段内的温度数据，计算两城温差（A城温度-B城温度）A城数据和B城数据分别为包含若干个记录的序列，其中，A城每个记录包含温度及其截止时间，B城每个记录包含温度及其持续时长。两城温差计算结果表示为若干个记录的序列，每个记录包含温差及其持续时长。持续时长是指同一温度（或温差）保持不变的最大时长。示例见下表。
（时间单位：小时，温度单位：摄氏度）时间 第1小时 第2小时 第3小时 第4小时 第5小时 第6小时 第7小时 A城温度 30 30 33 33 31 31 32 A城数据 温度 30 33 31 32 截止时间 2 4 6 7 B城温度 20 20 20 22 21 21 22 B城数据 温度 20 22 21 22 持续时长 3 1 2 1 计算结果 温差 10 13 11 10 持续时长 2 1 1 3
表中，A城数据有4个记录，其中第1个记录为（温度30，截止时间2），第2个记录为（温度33，截止时间4），这表明从开始到第2小时的温度都是30，此后到第4小时的温度都是33．B城数据有4个记录，其中第3个记录为（温度21，持续时长2），这表明第5、第6这2个小时的温度都是21．两城温差计算结果的第4个记录为（温差10，持续时长3），这表明第5、第6、第7这3个小时的温差都是10。
（1）若将示例中A城数据修改为3个记录，依次是（温度30，截止时间4）、（温度31，截止时间6）、（温度32，截止时间7），B城数据不变，则两城温差计算结果中第1个记录为（温差10，持续时长）（填数值）。
（2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
Const m=1000'温度数据和温差数据包含的记录数都少于1000
Dim na As Integer,nb as integer'A、B城数据分别有na和nb个记录
Dim ha（m）As Integer'ha（i）存储A城第i个记录中的温度
Dim ta（m）As Integer'ta（i）存储A城第i个记录中的截止时间
Dim hb（m）As Integer'hb（i）存储B城第i个记录中的温度
Dim tb（m）As Integer'tb（i）存储B城第i个记录中的持续时长
Dim h（m）As Integer'h（i）存储计算结果第i个记录中的温差
Dim t（m）As Integer't（i）存储计算结果第i个记录中的持续时长
Private Sub Command l _Click （ ）
Dim i As Integer,j As Integer
Dim p0 As Integer,p1 As Integer,diff As Integer
Dim n As Integer'两城温差数据的记录个数
'读取两城数据，存入变量na,nb及数组ha,ta,hb,tb中，代码略
For i=2 To nb
tb（i）=①'将B城第i个记录中的持续时长转换为截止时间
Next i
i=1：j=1
n=0
p0=0
Do While i＜na And i＜=nb
diff ha（i）-hb（j）
pl=ta（i）
If ②Then i=i+1
If p1＞=tb （j） Then
pl=tb（i）
j=j+1
End if
If n=0 Or diff＜＞h（n） Then
n=n+l
h（n）=diff
t（n）=pl-p0
Else
③
End If
p0=pl
Loop
'输出两城温差数据，代码略
End Sub组卷：10引用：1难度：0.1
