2021年浙江省金华十校高考信息技术模拟试卷（4月份）
发布：2024/4/20 14:35:0
一、选择题（本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求）
-
1．下列关于信息和信息技术的说法，正确的是（ ）
组卷：3引用：1难度：0.6 -
2．下列关于网络基础的描述，不正确的是（ ）
组卷：4引用：1难度：0.5 -
3．下列有关数据库和数据表的说法，正确的是（ ）
组卷：1引用：1难度：0.5 -
4．下列关于计算机信息编码的描述，正确的是（ ）
组卷：4引用：1难度：0.5 -
5．使用 Photoshop 软件制作“四月你好”的作品，部分编辑界面如图所示。
下列说法正确的是（ ）组卷：0引用：1难度：0.5
二、非选择题（本大题共4小题，其中第13小题4分，第14小题8分，第15小题7分，第16小题7分，共26分。）
-
15．小诚同学设计了一个智慧公交管理程序：公交线路上共有n个公交站点，编号分别是1，2，…，n,从1个站点行驶到下一个站点均需要5分钟，若某个站点需要上下客，不论有多少人，都按平均停留1分钟计算；该程序可以精准采集到了每个站点将上下车的乘客信息，如果某站点无人上下车，车辆将不再浪费时间停车。
小诚为更高效的执行查询操作，使用优化后的冒泡排序算法，对乘客信息以上车站点为主关键字，以下车站点为次要关键字升序排序，排序效果参考如图。
在文本框Text1中输入要查询的站点编号，点击“查询”按钮后，程序计算到达该站点的时间以及从该站点发出时车辆上的乘客人数。
程序界面如右图，请回答以下问题：
（1）如果希望在程序运行时清空列表框list1中的内容，可执行的语句是。
（2）请在横线处填入合适的代码。
①
②
（3）程序中加框处代码有错，请改正。
改正：
Dim a（1 To 200）As Integer,b（1 To 200）As Integer'存储第i名乘客的上车站点、下车站点
Dim s（1 To 50）As Integer'存储第i个站点发车时的人数
Dim t（1 To 50）As Integer'存储第i个站点前已经停过的站点数量
Dim n As Integer,m As Integer'共有n个站点，m名乘客
Private Sub Form_Load （ ）
'程序自动读取每名乘客的上下车站点信息，第i名乘客的上车信息存入a（i），下车站点存入b（i），乘客的上下车信息显示在list1中，乘客总人数存入m,站点总数存入n.
'对乘客信息按上下车信息排序
k=m-1
For i=1 To m-1
flag=False
For j=1 To k
If a （j）＞a （j+1）Then
tmp=a（j）：a（j）=a（j+1）：a（j+1）=tmp
tmp=b（j）：b（j）=b（j+1）：b（j+1）=tmp
flag=True
①____'填写语句，优化下一轮冒泡的比较范围
End If
Next j
k=p
If flag=False Then Exit For
Next i
'在list2中输出排序后的乘客上车站点和下车站点等信息
End Sub
Private Sub Command1_Click （ ）
i=1
x=Val（Text1.Text）
'统计信息
Do While a（i）＜=x
s（a（i））=s（a（i））+1
s（b（i））=s（b（i））-1
t（a（i））=1
t（b（i））=1
i=i+1
Loop
t（1）=0
For i=2 To x
s（i）=②_____
t（i）=t（i-1）+t（i）
Next i
sj=（x-1）*5+t（x-1）
Label3.Caption=“从起点出发“+Str（sj）+“分钟后达到，发车时车上共“+Str（s（x））+“人“
End Sub组卷：2引用：1难度：0.5 -
16．赋分制是新高考改革中选考科目成绩换算的一种方式，现在有一种新的赋分制是“一分一赋”，该方法采用先划分等级再等比例赋分的方式来实现，规则如图a所示。
例如，小明技术选考的考试分为72分（S0=72），该分数在技术考生群体中排位等级为B等级，参考16图a可知，该等级内的等级分最高分为85分（T2=85）、等级分最低分为71分（T1=71），且该等级内的所有学生的考试分最高为82分（S2=82）、最低为67分（S1=67），则小明的等级赋分计算如下：
=82-7272-67T0=T1+85-T0T0-71=71+S0-S1S2-S1×（T2-T1）≈75（不进位取整）72-6782-67×（85-71）
特别需要注意的是：
（1）划分等级时从高等级（A）向低等级（E）划分，若有同分的临界学生则全部向上合并，并减少下一个等级的学生数，依次类推，直到最后一个等级为所有剩下的学生。
（2）换算等级学生人数、换算等级分时，均采用直接去掉小数的方式取整。
编写VB程序，读取学生某科目成绩并按照“一分一赋”规则换算出所有学生的等级分，显示在List1中，程序运行界面如图b所示。
（1）如图b所示，若该次考试中某考生的卷面分为80分，则对应等级分为。
（2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
Dim num（1 To 5000）As String,score（1 To 5000）As Integer
Dim a（1 To 20）As Single,b（1 To 20）As Integer
Dim n As Integer,m As Integer'n保存学生数，m保存等级数
Private Sub Form_Load （ ）
'读取学号和成绩，分别保存在数组num和score
'数组a等级比例，数组b等级分上下限，如a（1）=15，b（1）=100，b（2）=86，依次类推
End Sub
Private Sub Command1_Click （ ）
Dim cj（1 To 100）As Integer,dj（1 To 100）As Integer,k As Integer
Dim i As Integer,st As Integer,ed As Integer,r As Integer
Dim t1 As Integer,t2 As Integer,s1 As Integer,s2 As Integer
st=0：ed=100
For i=1 To n
cj（score（i））=①
If st＜score（i）Then st=score（i）
If ed＞score（i）Then ed=score（i）
Next i
For i=st-1 To ed Step-1
cj（i）=cj（i）+cj（i+1）
Next i
r=0
For i=1 To m
t2=b（2*i-1）：t1=b（2*i）：s2=st
k=Fix（n*a（i）/100）–r'计算当前等级的学生数
If i=m Then
j=ed
Else
j=s2-1
Do While ②
j=j-1
Loop
End If
s1=j
r=cj（s1）-cj（s2+1）-k
For j=s2 To s1 Step-1
dj（j）=t1+Fix（（j-s1）*（t2-t1）/（s2-s1））
Next j
③
Next i
List1.Clear
List1.AddItem“学生学号 原始分 等级分“
For i=1 To n
s=num（i）+““+Str（score（i））+““+Str（dj（score（i）））
List1.AddItem s
Next i
End Sub组卷：1引用：1难度：0.5
