资源简介

登录二一教育在线组卷平台 助您教考全无忧
浙江省嘉兴市2021届高三上学期信息技术12月教学测试技术试卷
一、单选题(本大题共12小题，每小题2分，共24分)
1．（2020高三上·嘉兴月考）下列有关信息的描述，不正确的是（　　）
A．信息是可加工处理的
B．信息可以通过多种方式表达
C．蓝牙传输信息可以不依赖载体
D．股票市场即时行情信息体现信息的时效性
【答案】C
【知识点】信息及其特征
2．（2020高三上·嘉兴月考）下列有关网页与浏览器的说法，不正确的是（　　）
A．编辑网页时可对网页中的文字、图片建立超链接
B．浏览器与服务器间通过HTML协议传输信息
C．使用记事本软件可编辑网页文件
D．收藏夹可以保存网页URL
【答案】B
【知识点】网络协议；浏览器；常用的网页编辑与制作工具；网页的交互设计
3．（2020高三上·嘉兴月考）下列应用中，体现了人工智能技术的是（　　）
①学校门禁系统通过“人脸识别”验证身份
②利用微信与朋友语音聊天
③某汽车具有自动泊车功能
④通过语音实现手机自动拨号
⑤“感应灯”感知光线控制开关
A．①③④ B．①②④ C．①②③ D．②③④
【答案】A
【知识点】人工智能的应用
4．（2020高三上·嘉兴月考）使用U1 traEdit软件观察字符内码，部分界面如图所示。
下列说法正确的是（　　）
A．图中共有3个GB2312字符
B．图中“！”是ASCII字符
C．小写字母“y”的十六进制内码为“88”
D．不同输入法输入“高考”两字，它们的内码不同
【答案】B
【知识点】字符编码
5．（2020高三上·嘉兴月考）使用Photoshop软件制作“廉”作品，界面如图所示．
下列说法正确的是（　　）
A．可以对“背景”图层添加滤镜
B．“公则生明”图层中图层样式均可见
C．可以用“自由变换”命令修改“廉”图层中文字大小
D．将“古语”图层移动至“廉”图层的下方，“公则生明”图层也会随之移动
【答案】A
【知识点】图片加工常用工具的使用；图层及图层的基本操作
6．（2020高三上·嘉兴月考）一张分辨率为 1024*768，黑白2种颜色未经压缩的BMP图片，另存为JPEG格式后容量约为10KB，则其压缩比约为（　　）
A．25：1 B．20：1 C．15：1 D．10：1
【答案】D
【知识点】声音、图像、视频编码
7．（2020高三上·嘉兴月考）字符串变量a，b的值分别是“120”，“20”，下列表达式的值结果为“True"的是（　　）
A．a>b or ab B．Not Mid(a+b，2，3)C．Int (Rnd*5) * 4+1>Val (b) D．Val(a) Mod 100 \10=Sqr(4)
【答案】B
【知识点】运算符、基本运算与表达式；常用标准函数
8．（2020高三上·嘉兴月考）某算法流程图如图所示，执行这部分流程，输入m，n的值分别为18，12，下列说法正确的是（　　）
A．流程执行后输出结果是18
B．条件“r=0？”被执行3次
C．输入时交换m，n的值，输出结果与交换前相同
D．该流程功能是求m， n的最大公约数
【答案】C
【知识点】流程图识读
9．（2020高三上·嘉兴月考）采用冒泡排序算法对数据序列“8，7，2，3，9，6，5”完成升序排序，排序2趟后，正确的顺序是（　　）
A．2，3，8，7，5，6，9 B．2，3，8，7，9，6，5
C．2，3，5，6，7，8，9 D．2，3，7，5，6，8，9
【答案】A
【知识点】排序算法及程序实现
10．（2020高三上·嘉兴月考）有如下VB程序段：
s =" shenzhen"
For i=1 To Len(s)
a(i) = Mid(s，i，1)
b(i) = i
Next i
For i=Len(s) To 2 Step-1
If a(b(i)) >= a(b(i - 1)) Then
t=b(i)：b(i)=b(i-1)：b(i-1)=t
End If
Next i
Text1.Text = b(1)
文本框Text1中显示的内容是（　　）
A．1 B．4 C．5 D．8
【答案】C
【知识点】排序算法及程序实现
11．（2020高三上·嘉兴月考）有如下VB程序段：
For i=1 To 5
a(i)=Int (Rnd*9) +1
Next i
For i= 1 To 5
If i Mod2=0 Then
a(i) = a(i)\i
Else
a(i)= a(i) Mod i
End If
Next i
执行该程序段后，在下列选项中a(1)至a(5)各元素可能是（　　）
A．0 3 2 1 4 B．1 2 3 4 5 C．0 1 4 2 3 D．0 5 2 2 4
【答案】A
【知识点】分支结构语句及程序实现；循环结构语句及程序实现；常用标准函数
12．（2020高三上·嘉兴月考）有如下VB程序段：
key = Val (Text1. Text)
i =0：j=9：n=0
Do While i<= j
m=(i+j)\2
n=n+1
If key <= a(m) Then
j=m-1
Else
i=m+1
End If
Loop
s=i
Do While i<9 And a(i)= a (i+1)
i=i+1
Loop
Label2.Caption = Str(n) +“：”+ Str(i + 1-s)
数组元素a(0~9)的值依次为“3，4，7，8，8，8，8，9， 10，12”。在文本框Text1中输入“8”，点击“查找”按钮后，Labe12 中输出的结果是(　　)
A．3：3 B．3：4 C．4：3 D．4：4
【答案】D
【知识点】查找算法及程序实现
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13．（2020高三上·嘉兴月考）小李同学收集了学校秋季田径运动会各班级部分项目得分的统计数据，使用EXCEL软件进行数据处理，如图a所示。
请回答下列问题：
（1）小李同学在计算“男生合计”“女生合计”“合计”列得分数据时，先在Q6中输入了公式，然后完成其他单元格的计算，他可能采用的方法是 (多选，填字母)
A．选择Q6单元格，向右填充到R6单元格，在S6单元格输入公式“=Q6+R6”，选择Q6：S6区域，向下自动填充到Q17：S17区域。
B．在R6 单元输入公式“=S6-Q6”，在S6单元格输入公式“=Q6+R6”，选择Q6：S6区域，向下自动填充到Q17：S17区域。
C．选择Q6单元格， 向右自动填充到S6单元格，然后分别选择Q6，R6，S6单元格分别向下填充到Q17，R17，S17单元格。
D．在S6单元格输入公式“=SUM(C6：P6)”在R6单元输入公式“=S6-Q6”，然后分别选择Q6，R6，S6单元格分别向下填充到Q17，R17，S17单元格。
（2）如图a所示，小李要对高三各班级按合计得分降序排序，排序范围是　 　。
（3）小李根据图a数据制作了图b所示图表，创建该图表的数据区域是　 　。
【答案】（1）A；D
（2）B14：S17
（3）B3：B9， Q3：R9
【知识点】表格数据的处理与计算
14．（2020高三上·嘉兴月考）小李使用Flash软件制作“四季”多媒体作品，请回答下列问题：
（1）作品的流程设计示意图如图a所示，将“片头”、“片尾”、各功能模块和主交互界面都设计成独立场景，场景播放完成后自动停止，各场景间跳转均通过单击相应场景上相应按钮完成。下列说法正确的是 (多选，填字母)
A．该作品需设计制作9个场景
B．打开作品时直接进入“主交互界面”场景
C．“主交互界面”场景上至少有5个交互按钮
D．设计该示意图属于多媒体创作设计过程中的规划设计阶段
E．“春天”“夏天”“秋天”“冬天”4个模块间可以相互现跳转
（2）“秋天”场景编辑界面如图b所示，“标题”图层中第25帧至第60帧实现文字“秋”由小到大的动画效果，则此补间类型为　 　 (单选， 填字母：A .逐帧动画/ B .形状补间/C .动画补间)。“火车”图层中第1帧至第60帧实现“火车”实例由右向左水平移动的动画效果，则第1帧中“火车”实例的坐标(X，Y)值可能是　 　(单选，填字母： A .(480，-220) /B .(480，220) /C .(-480， -220) /D .(-480， 220))
（3）“蜻蜓”图层第1帧至第60帧实现“蜻蜓”实例由A点向B点振翅飞行动画效果，现要求在“蜻蜓"实例在第1帧从A点出发，第30)帧时经过C点再飞向B点的动画效果，应进行地操作是 (多选，填字母)
A．在“蜻蜒”图层第30帧插入关键帧，移动30帧上“蜻蜓”实例到C点。
B．将“蜻蜓”图层第60帧移动到30帧，在第60帧插入关键帧，移动30帧上“蜻蜓”实例到C点，设置30帧到60帧补间为动画补间。
C．将“婧蜓”图层第60帧移动到30帧，移动30帧上“蜻蜓”实例到C点，在第60帧插入关键帧，移动60帧上“蜻蜓”实例到B点
D．将“蜻蜓”图层第60帧移动到30帧，在第60帧插入关键帧，移动60帧上“蜻蜓”实例到B点。
（4）)根据作品的流程设计示意图图a推测，“按钮”图层最后1帧上的“返回”按钮的功能是单击该按钮跳转到“主交互界面”第1帧并继续播放，则该按钮上的动作脚本是　 　。
【答案】（1）C；D
（2）C；B
（3）A；B
（4）on(release/press) { gotoandplay( “主交互界面”，1)； }
【知识点】多媒体作品的规划和设计；动画的类型；时间轴、帧、图层、库的概念及基本操作；动画的实现；常用影片控制函数的应用
15．（2020高三上·嘉兴月考）老张要准备一道晚宴，需要上n个菜，为了省事他在n个不同的餐厅订好了这些菜。现在他需要尽快取回这些菜，对于每一道菜，有两种取菜方式：
1)让各店的外卖员送货上门，对于第i个菜需要花费a(i)的时间。
2)自己去餐厅取回家，每次出门仅能取回一道菜，对于第i个菜，从出门到回家整个过程需要花费b(i)的时间。
每家餐厅都有各自的外卖员送菜，并且无论老张是否在家，他们都能把菜送到。为了节省时间，能由外类员送的菜尽量由外卖负各自送达，现在需要知道最少花费多少时间能集齐所有的菜。
比如n=4，a(i)=(30，70，40，50)，b(1)=(20，10，20，30}，那么花费时间少的方案是第一个菜和第三个菜让让外卖员送，第二个菜和第四个菜老张自己取，一共需要40分钟。
设计VB程序计算最少时间，界面如下图
实现上述功能的VB程序如下，回答以下问题：
（1）根据程序语句判断对象Lab3属于　 　类。
(单选，填字母：A .Form1/B .Label /C .TextBox / mandButton)
（2）请在划线处填入合适的代码。
Const n=4
Dim a(1 To n) As Integer 'n道菜由每家餐厅外卖员送达耗时
Dim b(1 To 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 To n
If a(i) > max Then 　 　 '外卖员送菜的最长时间
Next i
left= 1: right = max: ans = max
Do While left <= right
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 Then check = True
End Function
（3）程序中加框处代码有错，请改正。
【答案】（1）B
（2）max=a(i)或其他等价答案；check(m) 或check (m) =true或其他等价答案；total + b(i)或其他等价答案
（3）total <= t或其他等价答案
【知识点】过程与自定义函数；查找算法及程序实现
16．（2020高三上·嘉兴月考）某卡牌共有52张牌，分黑桃，红桃，梅花，方块4种花色，每种花色13张(编号为1~13)，花色分别用1，2，3，4表示。将这卡牌打乱后，从中每次摸1张牌，同种花色的牌放起，在每种花色均有3张牌时结束摸牌，然后按花色编号从小到大展示摸到的卡牌。
摸牌规则：
A.当某花色牌不足3张，则记录摸到的牌，继续摸下一张牌
B.当某花色的牌超过3张时，若摸到的卡牌点数大于本花色中已有卡牌点数的最小值，则替换本花色中点数最小的卡牌，否则，弃置摸到的牌。继续下一-张摸牌
C.当所有花色的牌均为3张时结束摸牌。然后按花色编号从小到大展示摸到的卡牌
例如：在某次摸牌后的卡牌如下表所示：
花色 黑桃 红桃 梅花 方块
序号 1 2 3 4 5 6 7 8 9 10 11 12
点数 7 5 12 11 3 8 7 5 　 8 5 3
1)当下一次摸到“黑桃4”的牌时，4小于已摸到的[7，5，12]，弃置摸到的牌，继续摸牌
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'存储每张卡牌的点数
Din 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() =4 And class(2) =7 And class(3)=10 And clas(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)) &“”& num(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(m+ 1)) Then min=m+ 1
If num (record(min)) > num(record(m+ 2)) Then min=m+ 2
If 　 　 Then
pos= 0
Else
pos=min
End If
End Function
【答案】（1）8，5，7
（2）(i-1)*3+1或其他等价答案；record(p) = i或其他等价答案；num(record(min)) > num(t) 或其他等价答案
【知识点】过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1登录二一教育在线组卷平台 助您教考全无忧
浙江省嘉兴市2021届高三上学期信息技术12月教学测试技术试卷
一、单选题(本大题共12小题，每小题2分，共24分)
1．（2020高三上·嘉兴月考）下列有关信息的描述，不正确的是（　　）
A．信息是可加工处理的
B．信息可以通过多种方式表达
C．蓝牙传输信息可以不依赖载体
D．股票市场即时行情信息体现信息的时效性
2．（2020高三上·嘉兴月考）下列有关网页与浏览器的说法，不正确的是（　　）
A．编辑网页时可对网页中的文字、图片建立超链接
B．浏览器与服务器间通过HTML协议传输信息
C．使用记事本软件可编辑网页文件
D．收藏夹可以保存网页URL
3．（2020高三上·嘉兴月考）下列应用中，体现了人工智能技术的是（　　）
①学校门禁系统通过“人脸识别”验证身份
②利用微信与朋友语音聊天
③某汽车具有自动泊车功能
④通过语音实现手机自动拨号
⑤“感应灯”感知光线控制开关
A．①③④ B．①②④ C．①②③ D．②③④
4．（2020高三上·嘉兴月考）使用U1 traEdit软件观察字符内码，部分界面如图所示。
下列说法正确的是（　　）
A．图中共有3个GB2312字符
B．图中“！”是ASCII字符
C．小写字母“y”的十六进制内码为“88”
D．不同输入法输入“高考”两字，它们的内码不同
5．（2020高三上·嘉兴月考）使用Photoshop软件制作“廉”作品，界面如图所示．
下列说法正确的是（　　）
A．可以对“背景”图层添加滤镜
B．“公则生明”图层中图层样式均可见
C．可以用“自由变换”命令修改“廉”图层中文字大小
D．将“古语”图层移动至“廉”图层的下方，“公则生明”图层也会随之移动
6．（2020高三上·嘉兴月考）一张分辨率为 1024*768，黑白2种颜色未经压缩的BMP图片，另存为JPEG格式后容量约为10KB，则其压缩比约为（　　）
A．25：1 B．20：1 C．15：1 D．10：1
7．（2020高三上·嘉兴月考）字符串变量a，b的值分别是“120”，“20”，下列表达式的值结果为“True"的是（　　）
A．a>b or ab B．Not Mid(a+b，2，3)C．Int (Rnd*5) * 4+1>Val (b) D．Val(a) Mod 100 \10=Sqr(4)
8．（2020高三上·嘉兴月考）某算法流程图如图所示，执行这部分流程，输入m，n的值分别为18，12，下列说法正确的是（　　）
A．流程执行后输出结果是18
B．条件“r=0？”被执行3次
C．输入时交换m，n的值，输出结果与交换前相同
D．该流程功能是求m， n的最大公约数
9．（2020高三上·嘉兴月考）采用冒泡排序算法对数据序列“8，7，2，3，9，6，5”完成升序排序，排序2趟后，正确的顺序是（　　）
A．2，3，8，7，5，6，9 B．2，3，8，7，9，6，5
C．2，3，5，6，7，8，9 D．2，3，7，5，6，8，9
10．（2020高三上·嘉兴月考）有如下VB程序段：
s =" shenzhen"
For i=1 To Len(s)
a(i) = Mid(s，i，1)
b(i) = i
Next i
For i=Len(s) To 2 Step-1
If a(b(i)) >= a(b(i - 1)) Then
t=b(i)：b(i)=b(i-1)：b(i-1)=t
End If
Next i
Text1.Text = b(1)
文本框Text1中显示的内容是（　　）
A．1 B．4 C．5 D．8
11．（2020高三上·嘉兴月考）有如下VB程序段：
For i=1 To 5
a(i)=Int (Rnd*9) +1
Next i
For i= 1 To 5
If i Mod2=0 Then
a(i) = a(i)\i
Else
a(i)= a(i) Mod i
End If
Next i
执行该程序段后，在下列选项中a(1)至a(5)各元素可能是（　　）
A．0 3 2 1 4 B．1 2 3 4 5 C．0 1 4 2 3 D．0 5 2 2 4
12．（2020高三上·嘉兴月考）有如下VB程序段：
key = Val (Text1. Text)
i =0：j=9：n=0
Do While i<= j
m=(i+j)\2
n=n+1
If key <= a(m) Then
j=m-1
Else
i=m+1
End If
Loop
s=i
Do While i<9 And a(i)= a (i+1)
i=i+1
Loop
Label2.Caption = Str(n) +“：”+ Str(i + 1-s)
数组元素a(0~9)的值依次为“3，4，7，8，8，8，8，9， 10，12”。在文本框Text1中输入“8”，点击“查找”按钮后，Labe12 中输出的结果是(　　)
A．3：3 B．3：4 C．4：3 D．4：4
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13．（2020高三上·嘉兴月考）小李同学收集了学校秋季田径运动会各班级部分项目得分的统计数据，使用EXCEL软件进行数据处理，如图a所示。
请回答下列问题：
（1）小李同学在计算“男生合计”“女生合计”“合计”列得分数据时，先在Q6中输入了公式，然后完成其他单元格的计算，他可能采用的方法是 (多选，填字母)
A．选择Q6单元格，向右填充到R6单元格，在S6单元格输入公式“=Q6+R6”，选择Q6：S6区域，向下自动填充到Q17：S17区域。
B．在R6 单元输入公式“=S6-Q6”，在S6单元格输入公式“=Q6+R6”，选择Q6：S6区域，向下自动填充到Q17：S17区域。
C．选择Q6单元格， 向右自动填充到S6单元格，然后分别选择Q6，R6，S6单元格分别向下填充到Q17，R17，S17单元格。
D．在S6单元格输入公式“=SUM(C6：P6)”在R6单元输入公式“=S6-Q6”，然后分别选择Q6，R6，S6单元格分别向下填充到Q17，R17，S17单元格。
（2）如图a所示，小李要对高三各班级按合计得分降序排序，排序范围是　 　。
（3）小李根据图a数据制作了图b所示图表，创建该图表的数据区域是　 　。
14．（2020高三上·嘉兴月考）小李使用Flash软件制作“四季”多媒体作品，请回答下列问题：
（1）作品的流程设计示意图如图a所示，将“片头”、“片尾”、各功能模块和主交互界面都设计成独立场景，场景播放完成后自动停止，各场景间跳转均通过单击相应场景上相应按钮完成。下列说法正确的是 (多选，填字母)
A．该作品需设计制作9个场景
B．打开作品时直接进入“主交互界面”场景
C．“主交互界面”场景上至少有5个交互按钮
D．设计该示意图属于多媒体创作设计过程中的规划设计阶段
E．“春天”“夏天”“秋天”“冬天”4个模块间可以相互现跳转
（2）“秋天”场景编辑界面如图b所示，“标题”图层中第25帧至第60帧实现文字“秋”由小到大的动画效果，则此补间类型为　 　 (单选， 填字母：A .逐帧动画/ B .形状补间/C .动画补间)。“火车”图层中第1帧至第60帧实现“火车”实例由右向左水平移动的动画效果，则第1帧中“火车”实例的坐标(X，Y)值可能是　 　(单选，填字母： A .(480，-220) /B .(480，220) /C .(-480， -220) /D .(-480， 220))
（3）“蜻蜓”图层第1帧至第60帧实现“蜻蜓”实例由A点向B点振翅飞行动画效果，现要求在“蜻蜓"实例在第1帧从A点出发，第30)帧时经过C点再飞向B点的动画效果，应进行地操作是 (多选，填字母)
A．在“蜻蜒”图层第30帧插入关键帧，移动30帧上“蜻蜓”实例到C点。
B．将“蜻蜓”图层第60帧移动到30帧，在第60帧插入关键帧，移动30帧上“蜻蜓”实例到C点，设置30帧到60帧补间为动画补间。
C．将“婧蜓”图层第60帧移动到30帧，移动30帧上“蜻蜓”实例到C点，在第60帧插入关键帧，移动60帧上“蜻蜓”实例到B点
D．将“蜻蜓”图层第60帧移动到30帧，在第60帧插入关键帧，移动60帧上“蜻蜓”实例到B点。
（4）)根据作品的流程设计示意图图a推测，“按钮”图层最后1帧上的“返回”按钮的功能是单击该按钮跳转到“主交互界面”第1帧并继续播放，则该按钮上的动作脚本是　 　。
15．（2020高三上·嘉兴月考）老张要准备一道晚宴，需要上n个菜，为了省事他在n个不同的餐厅订好了这些菜。现在他需要尽快取回这些菜，对于每一道菜，有两种取菜方式：
1)让各店的外卖员送货上门，对于第i个菜需要花费a(i)的时间。
2)自己去餐厅取回家，每次出门仅能取回一道菜，对于第i个菜，从出门到回家整个过程需要花费b(i)的时间。
每家餐厅都有各自的外卖员送菜，并且无论老张是否在家，他们都能把菜送到。为了节省时间，能由外类员送的菜尽量由外卖负各自送达，现在需要知道最少花费多少时间能集齐所有的菜。
比如n=4，a(i)=(30，70，40，50)，b(1)=(20，10，20，30}，那么花费时间少的方案是第一个菜和第三个菜让让外卖员送，第二个菜和第四个菜老张自己取，一共需要40分钟。
设计VB程序计算最少时间，界面如下图
实现上述功能的VB程序如下，回答以下问题：
（1）根据程序语句判断对象Lab3属于　 　类。
(单选，填字母：A .Form1/B .Label /C .TextBox / mandButton)
（2）请在划线处填入合适的代码。
Const n=4
Dim a(1 To n) As Integer 'n道菜由每家餐厅外卖员送达耗时
Dim b(1 To 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 To n
If a(i) > max Then 　 　 '外卖员送菜的最长时间
Next i
left= 1: right = max: ans = max
Do While left <= right
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 Then check = True
End Function
（3）程序中加框处代码有错，请改正。
16．（2020高三上·嘉兴月考）某卡牌共有52张牌，分黑桃，红桃，梅花，方块4种花色，每种花色13张(编号为1~13)，花色分别用1，2，3，4表示。将这卡牌打乱后，从中每次摸1张牌，同种花色的牌放起，在每种花色均有3张牌时结束摸牌，然后按花色编号从小到大展示摸到的卡牌。
摸牌规则：
A.当某花色牌不足3张，则记录摸到的牌，继续摸下一张牌
B.当某花色的牌超过3张时，若摸到的卡牌点数大于本花色中已有卡牌点数的最小值，则替换本花色中点数最小的卡牌，否则，弃置摸到的牌。继续下一-张摸牌
C.当所有花色的牌均为3张时结束摸牌。然后按花色编号从小到大展示摸到的卡牌
例如：在某次摸牌后的卡牌如下表所示：
花色 黑桃 红桃 梅花 方块
序号 1 2 3 4 5 6 7 8 9 10 11 12
点数 7 5 12 11 3 8 7 5 　 8 5 3
1)当下一次摸到“黑桃4”的牌时，4小于已摸到的[7，5，12]，弃置摸到的牌，继续摸牌
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'存储每张卡牌的点数
Din 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() =4 And class(2) =7 And class(3)=10 And clas(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)) &“”& num(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(m+ 1)) Then min=m+ 1
If num (record(min)) > num(record(m+ 2)) Then min=m+ 2
If 　 　 Then
pos= 0
Else
pos=min
End If
End Function
答案解析部分
1．【答案】C
【知识点】信息及其特征
2．【答案】B
【知识点】网络协议；浏览器；常用的网页编辑与制作工具；网页的交互设计
3．【答案】A
【知识点】人工智能的应用
4．【答案】B
【知识点】字符编码
5．【答案】A
【知识点】图片加工常用工具的使用；图层及图层的基本操作
6．【答案】D
【知识点】声音、图像、视频编码
7．【答案】B
【知识点】运算符、基本运算与表达式；常用标准函数
8．【答案】C
【知识点】流程图识读
9．【答案】A
【知识点】排序算法及程序实现
10．【答案】C
【知识点】排序算法及程序实现
11．【答案】A
【知识点】分支结构语句及程序实现；循环结构语句及程序实现；常用标准函数
12．【答案】D
【知识点】查找算法及程序实现
13．【答案】（1）A；D
（2）B14：S17
（3）B3：B9， Q3：R9
【知识点】表格数据的处理与计算
14．【答案】（1）C；D
（2）C；B
（3）A；B
（4）on(release/press) { gotoandplay( “主交互界面”，1)； }
【知识点】多媒体作品的规划和设计；动画的类型；时间轴、帧、图层、库的概念及基本操作；动画的实现；常用影片控制函数的应用
15．【答案】（1）B
（2）max=a(i)或其他等价答案；check(m) 或check (m) =true或其他等价答案；total + b(i)或其他等价答案
（3）total <= t或其他等价答案
【知识点】过程与自定义函数；查找算法及程序实现
16．【答案】（1）8，5，7
（2）(i-1)*3+1或其他等价答案；record(p) = i或其他等价答案；num(record(min)) > num(t) 或其他等价答案
【知识点】过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1

展开更多......

收起↑