2021年浙江省温州市高考信息技术三模试卷（5月份）
发布：2024/12/31 22:0:2
一、选择题（本大题共12小题，每小题2分，共24分，每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分）
-
1．下列关于信息的说法，正确的是（ ）
组卷：2引用：1难度：0.6 -
2．下列有关网页与浏览器的说法，正确的是（ ）
组卷：3引用：1难度：0.5 -
3．用 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 空 开放 … … … … … … … 组卷：1引用：1难度：0.5 -
4．某数转换为十进制数为 n,若 n\4=4，则该数可能是（ ）
组卷：5引用：1难度：0.5 -
5．用 Photoshop 软件制作“云对雨”作品，如图所示。
下列说法正确的是（ ）组卷：1引用：1难度：0.4
二、非选择题（本大题共4小题，其中第13小题4分，第14小题8分，第15小题7分，第16小题7分，共26分）
-
15．字母排队游戏。有一组不重复的字母串，现根据大小写分别进行排队。排队规则如下：
（1）根据字母大小写按原顺序提取字母，大写字母排一队，小写字母排一队；
（2）固定两队字母中最小字母在各队中的位置：
（3）将两队其余字母按从小到大的顺序排在各自最小字母的两边。大写字母队列先从最小字母右边排队，排到最后位置再从最小字母左边开始排，直到第一个位置为止。同理，小写字母队列先从左边开始排队，再排右边。过程如图 1 所示：
编写 VB 程序，实现字母排队功能：在文本框 Text1 中输入待排字母串后，单击“排队”按钮
Command1，在列表框 List1 中显示排队结果。程序运行界面如图 2 所示。
请回答下列问题：
（1）根据程序运行界面，“字母排队”是窗体 Forml 的（单选，填字母：A.对象名/B.属性名
/C.属性值/D.过程名）。
（2）实现上述功能的 VB 程序如下，请在横线处填入合适的代码。
（3）程序中加框处代码有错，请改正。
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“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 人数比例（%） 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 人数比例（%） 7 7 7 6 5 4 3 2 1 1
第一步，将卷面得分按人数比例划分为 20 个赋分区间，得出每个区间卷面得分的上限、下限。（说明：每个赋分等级人数=总人数×每个赋分等级比例（结果四舍五入取整）；当卷面得分相同但人数超出该等级人数时，则减少下一档的人数。）
第二步，对每个区间的卷面得分进行等比例转换成赋分，公式为：s2-s=t2-t,其中，s2、s1 为
s-s1t-t1
卷面得分区间的上限和下限，s 为待转换卷面得分；t2、t1 为赋分区间的上限和下限，t 为卷面得分等比例转换后的赋分。
第三步，将转换后的赋分 t 取整（小数部分四舍五入）。
编写 VB 程序，实现成绩赋分功能：在列表框 List1 中显示某市所有学生的考号，原始成绩（无 0 分，降序排列）和名次（同分同名），单击“成绩赋分”按钮 Command1 后，赋分成绩按从高到低的顺序显示在列表框 List2 中。程序界面如图所示。
（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 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）
'根据比例转换公式计算每个考生的赋分结果，存入数组 cj2 中，代码略。
For i=1 To n
List2.AddItem kh（i）+““+Str（cj（i））+““+Str（cj2（i））Next i
End Sub组卷：1引用：1难度：0.2
