2020-2021学年浙江省嘉兴市高三（上）月考信息技术试卷（12月份）
发布：2024/4/20 14:35:0
一、单选题（本大题共12小题，每小题0分，共24分。）
-
1．下列有关信息的描述，不正确的是（ ）
组卷：2引用：2难度：0.6 -
2．下列有关网页与浏览器的说法，不正确的是（ ）
组卷：1引用：1难度：0.6 -
3．下列应用中，体现了人工智能技术的是（ ）
①学校门禁系统通过“人脸识别”验证身份
②利用微信与朋友语音聊天
③某汽车具有自动泊车功能
④通过语音实现手机自动拨号
⑤“感应灯”感知光线控制开关组卷：1引用：1难度：0.6 -
4．使用UltraEdit软件观察字符内码，部分界面如图所示。
下列说法正确的是（ ）组卷：2引用：1难度：0.5 -
5．使用Photoshop软件制作“廉”作品，界面如图所示。
下列说法正确的是（ ）组卷：1引用：1难度：0.5
二、非选择题（本大题共4小题，其中第13小题4分，第14小题8分，第15小题7分，第16小题7分，共26分。）
-
15．老张要准备一道晚宴，需要上n个菜，为了省事他在n个不同的餐厅订好了这些菜。现在他需要尽快取回这些菜，对于每一道菜，有两种取菜方式：
第1种：让各店的外卖员送货上门，对于第i个菜需要花费a（i）的时间。
第2种：自己去餐厅取回家，每次出门仅能取回一道菜，对于第i个菜，从出门到回家整个过程需要花费b（i）的时间。
每家餐厅都有各自的外卖员送菜，并且无论老张是否在家，他们都能把菜送到，为了节省时间，能由外卖员送的菜尽量由外卖员各自送达，现在需要知道最少花费多少时间才能集齐所有的菜。
比如n=4，a（i）=（30，70，40，50），b（i）={20，10，20，30}，那么花费最少的方案是第一个菜和第三个菜让外卖员送，第二个菜和第四个菜老张自己取，一共需要40分钟。
设计VB程序计算最少时间，界面如下图。
实现上述功能的VB程序如下，回答以下问题：
（1）根据程序语句判断对象Lab3属于类。
（单选，填字母：A.Form/B.Label/C.TextBox/D.CommandButton）
（2）请在横线处填入合适的代码。
①；
②；
③。
（3）程序中加框处代码有错，请改正。
改正：。
Const n=4
Dim a（1 To n）As Integer'n道菜由每家餐厅外卖员送达耗时
Dim b（1To n）As Integer'n道菜自取耗时
Private Sub Form_Load。
'产生外卖送货各道菜耗时，并存储到数组a中，并显示，
'产生自取各道菜耗时，并存储到数组b中，并显示
'代码略
End Sub
Private Sub Command1_Click
Dim i As Integer,max As Integer,ans As Integer
Dim left As Integer,right As Integer,m As Integer
For i=1 1 To n
If a（i）＞max Then ①'外卖员送菜的最长时间
Next i
left=1：right=max：ans=max.
m=（left+right）\2
If ②Then
ans=m：right=m-1
Else
left=m+1
End If
Loop
Lab3.Caption=“最快“+str（ans）+“分钟“
End Sub
private Function check（t As Integer）As Boolean
Dim total As Integer
check=False
For i=1 To n
If a（i）＞t Then
total=③'如果外卖来不及就自己取
End If
Next i
If tital＞=t Then check=True
End Function组卷：0引用：1难度：0.3 -
16．某卡牌共有52张牌，分黑桃，红桃，梅花，方块4种花色，每种花色，13张（编号为1～13），花色外分别用1，2，3，4表示。将这卡牌打乱后，从中每次摸1张牌，同种花色的牌放一起，在每种花色均有3张牌时结束摸牌，然后按花色编号从小到大展示摸到的卡牌。
摸牌规则：
（1）当某花色牌不足3张，则记录摸到的牌，继续摸下一张牌
（2）当某花色的牌超过3张时，若摸到的卡牌点数大于本花色中已有卡牌点数的最小值，则替换本花色中点数最小的卡牌，否则，弃置摸到的牌。继续下一张摸牌
（3）当所有花色的牌均为3张时结束摸牌。然后按花色编号从小到大展示摸到的卡牌例如：在某次摸牌后的卡牌如下表所示：
（1）当下一次摸到“黑桃4”的牌时，4小于已摸到的[7，5，12]，弃置摸到的牌，继续摸牌花色 黑桃 红桃 梅花 方块 序号 1 2 3 4 5 6 7 8 9 10 11 12 点数 7 5 12 11 3 8 7 5 8 5 3
（2）当摸到“红桃9”的牌时，9大于已摸到的[11，3，8]的最小值3，红桃更新为[11，9，8]，继续摸牌
（3）当摸到“梅花9”的牌时，梅花点数更新为[7，5，9]，达到所有花色的牌均为3张的目标，结束摸牌。
模拟此过程编写VB程序，程序运行界面如下图，单击“展示摸到的卡牌”按钮开始摸牌，满足条件时，在列表框中展示摸到的卡牌。
（1）在如表中所示卡牌状态下，连续2次摸牌为“方块4”，“方块7”后，方块卡牌点数更新为（填点数，逗号分隔）
（2）实现上述功能的VB程序如下，请在横线处填入合适代码。
Const n=52
Dim hs（1 To n） As Integer’存储每张卡牌的花色
Dim num（1 To n） As Integer’存储每张卡牌的点数
Dim class（1 To 4）As Integer’存储每种花色卡牌的存储位置
Dim record（1 To 12）As Integer
Private Sub Form_Load
’读取打乱的卡牌中每张卡牌的花色、点数数据，存入数组hs,num中，代码略
End Sub
Private Sub Command1_Click
Dim k As Integer,i As Integer,p As Integer
Dim flag As Boolean
flag=True
For i=1 To 4
class（i）=①’计算每种花色卡牌存储的起始位置
Next i
i=1
Do While i＜=n And flag=True
k=hs（i）
If class（k）＞k*3 Then
p=pos（i）
If p＜＞0 Then
②
End If
Else
record（class（k））=i
class（k）=class（k）+1
If class（1）=4 And class（2）=7 And class（3）=10 And class（4）=13 Then
flag=False
End If
End If
i=i+1
Loop
List1.AddItem“&”“花色”“&”“&”“点数”
For i=1 To 12
List1.AddItem“”& hs（record（i）&“”& mua（record（i）
Next i
End Sub
Function pos（t As Integer）As Integer’返回点数最小卡牌位置
Dim min As Integer
m=（hs（t）-1）*3+1
min=m
If num（record（min））＞num（record（n+1））Then min=m+1
If num（record（min））＞mun（record（m+2））Then min=m+2
If③Then
pos=0
Else
pos=min
End If
End Function组卷：0引用：1难度：0.3
