2020-2021学年浙江省绍兴市高三（下）适应性信息技术试卷（4月份）
发布：2024/4/20 14:35:0
一、选择题（本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求）
-
1．关于信息与信息技术，下列说法正确的是（ ）
组卷：9引用：1难度：0.6 -
2．小明使用智能手机进行网络购物，经历了如下过程：
①手机电量不足时，给手机无线充电
②智能客服代替人工与小明语音交流
③下订单后，进行刷脸支付
④实时查看商品的物流信息
⑤通过识别指纹开启寄存柜
以上过程中，应用了人工智能技术的有（ ）组卷：5引用：1难度：0.4 -
3．用Access软件设计某水果进销存系统的数据库，其中“水果信息表”数据表中需要存储如表所示的数据。
下列关于“水果信息表”数据表的描述，不正确的是（ ）序号 水果编码 水果名称 单位 单价 1 100516 进口青提子 斤 33.80 2 100520 夏威夷木瓜 斤 6.50 …… …… …… …… …… 组卷：0引用：1难度：0.5 -
4．使用UltraEdit软件观察字符“2021-2025年十四五规划早知道abc”的内码，部分界面如下图所示。
下列说法正确的是（ ）组卷：9引用：2难度：0.5 -
5．使用Photoshop软件制作“抗疫”作品，部分编辑界面如图所示。
下列说法正确的是（ ）组卷：0引用：1难度：0.5
二、非选择题（本题共4小题，其中第13题4分，第14题8分，第15题7分，第16题7分，共26分）
-
15．给定n个学生成绩，筛选男生或女生中成绩居前百分之k的学生。筛选规则如下：m=男生或女生记录数×k%，若m＜1，则m取1；否则m向下取整，如m=3.1，则筛选最大的3项。若有数据和第m项的值相同，则一起筛选出。如有男生成绩分别是“78，99，98，99，90”，以“最大10百分比”筛选，则5×10%=0.5，筛选最大的1项，筛选出“99，99”。编写一个VB程序，实现上述功能。程序运行时，在列表框List1中显示n名学生的姓名、性别和成绩，在文本框Text1中输入性别，Text2中输入k,单击“筛选”按钮Command1，在列表框List2中显示筛选出的学生姓名、性别和成绩。程序运行界面如图所示。
（1）下列VB语句可以实现清空文本框Text1（A.Text1.Clear/B.Text1.Caption=““/C.Text1.Text=““）
（2）实现上述功能的VB程序如下，请在①②③处填入合适代码、、。
（3）程序加框处的代码有误，请改正。
Dim n As Integer
Dim xm（1 To n）As String
Dim xb（0 To n）As String
Dim cj（0 To n）As Integer
Private Sub Form_Load（ ）
'读取学生姓名、性别和成绩分别存xm、xb和cj数组，并在列表框List1中显示。
'学生人数存变量n,代码略。
End Sub
Private Sub Commandl_Click0
Dim s As String,k As Single,m As Single,mm As Integer
DimcAs Integer,p As Integer,iAs Integer,j As Integer
Dim tl As String,t2 As Integer
s=Textl.Text
k=Val（Text2.Text）
c=0
For i=1To n
If xb（i）=sThen ①_____
Next i
m=c*k/100
If m＜1Then
mm=1
Else
mm=②____
End If
i=1
Do While i＜=n
p=i
For j=i+1To n
If xb （j）=s Then
If
Then p=j
End If
Next j
If i◇p Then
t1=xb（i）：xb（i）=xb（p）：xb（p）=tl
2=cj（i）：cjii）=cj（p）：cj（p）=t2
End If
If i＞mm And（xb（i）◇xb（i-1）Or cj（i）◇cj（i-1））Then Exit Do
i=i+l
Loop
③_____
For i=1To mm
List2.Addtem xm（i）+““+xb（i）+““+Str（cj（i））
Nexti
End Sub组卷：1引用：1难度：0.3 -
16．某手机APP为电影观众选座提供了程序推荐和自主选位功能。当观众购票选择程序推荐时，程序根据电影放映厅内每个座位的优先等级（用一个正整数表示其等级值，如图a所示），自第1排1号座开始，按自左向右逐排的顺序查找满足本次购票人数r的最优空位区（最优空位区是指从某个座位开始的同排连续的r个空位，且其等级值之和最高，若有多个最优空位区，则推荐最先找到的）。若找到，则显示出推荐的座位编号；若找不到，则提示自主选位。例如：图a中放映厅内座位有9排10列，第5排10个座位的等级值依次为：1，2，3，4，5，5，4，3，2，1。全部座位为空时，当前购票人数为5，推荐座位编号为5排3-7号；如图b所示已经部分选座状态下，当前购票人数为2，推荐座位编号为6排3-4号。
编写VB程序，模拟上述功能。运行程序，在列表List1中显示目前选座状态，黑点表示已选座，白点表示空位，在文本框Text1中输入购票人数后，单击“推荐”按钮Command1，在标签Label3显示当前购票人座位的推荐结果。程序运行界面如图c所示。
（1）如图a所示，全部座位为空时，第1次购票人数为4人，按程序推荐座位选座，座位等级值之和为。
（2）实现上述功能的VB程序如下，请在横线处填入合适的代码、、。
Constm=9'm表示座位有9排
Constn=10′n表示每排的座位数为10
Dim r As Integer'r表示当次输入的购票人数
Dim a（1 to m*n）As Integer'a数组存放每个座位的等级值
Dim b（l to m*n+1）As Integer′b数组保存当前各座位选座情况，选中为1，未选为0
Private Sub Form_Load（ ）
'从第1排开始，按座位编号从小到大顺序逐排读取座位等级值并依次存入数组a
'同上述顺序，读取选座状态存入数组元素b（1）至b（m*n）中，输出当前选座状态。代码略
End Sub
Function getsum（i As Integer,j As Integer）As Integer
'从第i排第j列开始，计算第i排中满足r个观众就座的连续空位等级值之和。
'若无法找到足够的连续空位时，则返回-1
Dim p As Integer,sum As Integer,k As Integer
sum=0
p=j：k=（i-1）*n+p
Do Whilep＜=j+r-l And b（k）=0
sum=①____
p=p+1：k=k+1
Loop
If p=j+r Then getsum=sum Else getsum=-1
End Function
Private Sub Command1_Click）
Dim iAs Integer,jAs Integer,s As String,max As Integer
Dim t As Integer,newi As Integer,newj As Integer,pos As Integer
r=Val（Textl.Text）
max=0
For i=1To m
Forj=l To n-r+1
②____-
If max＜t Then max=t：newi=i：newj=j
Next j
Next i
If max=0 Then
Label3.Caption=“请自主选位”
Else
pos=（newi-1）*n+newj
Fori=③_____
b（i）=1
Next i
Label3.Caption=“推荐座位编号：”&newi&“排”&newj&”-”&newj+r-1&”座”
End If
End Sub组卷：1引用：1难度：0.3
