资源简介

浙江省绍兴市2021届高三下学期技术4月适应性考试（二模）试卷
一、选择题（本大题共12小题，每小题2分，共24分。）
1．（2021·绍兴模拟）关于信息与信息技术，下列说法正确的是（　　）
A．信息只有数字化后才有意义
B．信息经过加工处理后一定具有更高的价值
C．微信中朋友发布的信息都是值得信赖的
D．通过数据加密技术加密信息可以提高安全性
【答案】D
【知识点】信息及其特征；信息系统安全防护
2．（2021·绍兴模拟）小明使用智能手机进行网络购物，经历了如下过程：
① 手机电量不足时，给手机无线充电
② 智能客服代替人工与小明语音交流
③ 下订单后，进行刷脸支付
④ 实时查看商品的物流信息
⑤ 通过识别指纹开启寄存柜
以上过程中，应用了人工智能技术的有（　　）
A．①②③ B．①②④ C．②③⑤ D．③④⑤
【答案】C
【知识点】人工智能的应用
3．（2021·绍兴模拟）用Access软件设计某水果进销存系统的数据库，其中“水果信息表”数据表中需要存储如图所示的数据。
描述不正确的是（　　）
A．该数据表的字段名称可以与上表所示每列名称不同
B．图中“单价”列在该数据表中相应字段的数据类型只能是“数字”型
C．若图中“水果编码”列在该数据表中相应的字段设置为主键，则该字段的字段值一定是不同的
D．可以在图中“水果名称”列在该数据表中相应的字段后插入一个“配送单位”字段
【答案】B
【知识点】数据表、字段、记录的概念；数据表、字段、记录的编辑
4．（2021·绍兴模拟）使用UltraEdit软件观察字符“2021-2025年十四五规划早知道abc”的内码，部分界面如下图所示。
下列说法正确的是（　　）
A．上述字符中共有12个ASCII字符
B．字符“c”的内码值用十进制表示为99
C．字符“十”的十六进制内码值是EA CA
D．字符“5”的内码值的2倍用十六进制表示为70
【答案】B
【知识点】进制及数制转换；字符编码
5．（2021·绍兴模拟）使用Photoshop软件制作“抗疫”作品，部分编辑界面如图所示。
下列说法正确的是（　　）
A．不可以直接对“图层 1”图层进行重命名
B．可以通过“自由变换”操作调整“文字”图层中部分文字的大小
C．“研究人员”图层设置了图层样式，不可以再添加滤镜效果
D．删除“病毒”图层后直接保存为BMP格式图像，图像容量约为2.75MB
【答案】D
【知识点】图层及图层的基本操作
6．（2021·绍兴模拟）有两幅BMP格式图像，A图像参数为800×600像素，24位真彩色，B图像参数为400×300像素，256级灰度，则图像A和B的存储容量之比为（　　）
A．6:1 B．12:1 C．3:4 D．3:8
【答案】B
【知识点】声音、图像、视频编码
7．（2021·绍兴模拟）若a=43，b=47，有VB表达式：
① a * b Mod 10 = 1 ② Abs(a - b) = 10
③ a \ 10 = b \ 10 ④ b Mod 10 \ 2 = 2
⑤ a Mod 2 <> b Mod 2
上述表达式的值为True的有（　　）
A．①③④ B．①③⑤ C．②③⑤ D．③④⑤
【答案】A
【知识点】运算符、基本运算与表达式
8．（2021·绍兴模拟）某算法的部分流程图如图所示。
执行这部分流程，若依次输入2、-3、5、-1、2、1、-3、0，则输出m的值为（　　）
A．4 B．5 C．6 D．7
【答案】C
【知识点】流程图识读
9．（2021·绍兴模拟）有如下 VB 程序段：
s = "python2021": t = "": i = 1
Do While i < Len(s)
c = Mid(s, i, 1): d = Mid(s, i + 1, 1)
If c < d Then t = t + c Else t = t + d
i = i + 2
Loop
Label1.Caption = t
执行该程序段后，标签Label1上显示的内容是（　　）
A．phn01 B．pto22 C．yhn01 D．yto22
【答案】A
【知识点】循环结构语句及程序实现
10．（2021·绍兴模拟）为统计某股票一年内共200个交易日收盘价中连续20个交易日的最大波动值（即连续20个交易日内的最高收盘价-最低收盘价）。数组元素a(1)~a(200)按时间先后顺序分别存储200个交易日的收盘价。编写如下VB程序实现上述功能：
max = 0
For p =
amin = a(p): amax = a(p)
i = p + 1: j = p + 19
Do While
If a(i) > a(j) Then
If a(i) > amax Then amax = a(i)
If a(j) < amin Then amin = a(j)
Else
If a(i) < amin Then amin = a(i)
If a(j) > amax Then amax = a(j)
End If
i = i + 1: j = j - 1
Loop
If Then max = amax - amin
Next p
Text1.Text = "最大波动值为：" + Str(max)
上述程序段3个方框处的语句分别为（　　）
A．①1 To 181 ②i <= j ③max < amax - amin
B．①1 To 181 ②i < j ③max > amax - amin
C．①1 To 180 Step 20 ②i <= j ③max < amax - amin
D．①1 To 180 Step 20 ②i < j ③max > amax - amin
【答案】A
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
11．（2021·绍兴模拟）采用冒泡排序算法对数据序列“8,3,5,2,0,9”进行排序，第一轮排序后的结果为“0,8,3,5,2,9”，则整个序列完成排序的交换次数是（　　）
A．6次 B．7次 C．8次 D．9次
【答案】D
【知识点】排序算法及程序实现
12．（2021·绍兴模拟）某对分查找算法的VB程序段如下：
low = 1: high = 8
key = Int(Rnd * 15 + 1) * 2
Do While low <= high
m = (low + high) \ 2
If a(m) >= key Then
high = m - 1
Else
low = m + 1
End If
Loop
Text1.Text = Str(low)
若数组元素a(1)到a(8)的值依次为 1,10,11,12,15,30,32,37，执行该程序段后，文本框Text1中显示的内容可能是（　　）
A．1 B．3 C．4 D．7
【答案】C
【知识点】查找算法及程序实现
二、非选择题（本题共4小题，4+8+7+7，共26分）
13．（2021·绍兴模拟）使用Excel软件处理某超市进销存数据，如图a所示。
请回答下列问题：
（1）区域H3:H357的数据通过公式计算得到：在H3单元格中输入公式　 　，再使用自动填充功能完成区域 H4:H357的计算。（提示：利润=（商品售价-商品进价）× 销量）
（2）图a中“粮油类”商品编码数据“101717”误输入为“10177”，“粮油类”商品按“商品编码”升序排序后，发现“10177”位于“101720”之后，其原因是B355、B356单元格中的数据是　 　类型。
（3）完成图a中的各类商品总利润计算之后，制作了如图b所示的图表。下列说法正确的有 （多选，填字母）。
A．总利润最高的商品是水果类
B．对区域E3:G357数据格式设置为“保留1位小数”，“利润”列数据保持不变
C．在图a所示工作表中按“商品名称”筛选所有花生油，图c中①处可选择“包含”
D．对蔬菜类以“销量”为关键字进行升序排序，则选择的排序数据区域为A2:H130
【答案】（1）=(E3-F3)*G3
（2）文本
（3）B；C
【知识点】表格数据的处理与计算
14．（2021·绍兴模拟）使用 Flash 软件创作主题为“抗疫”的多媒体作品，其中“main”场景的制作脚本如下表所示。
场景名: main 类别序号: 2 进入方式: 来自“片头”场景，通过“Enter”按钮进入
呈现方式： ①文字从上而下加速飞入到舞台中，时长4秒. ②人物从完全透明到完全显示变化，时长4秒。 ③疫苗动画实现从“疫苗”文字逐渐变为“药瓶和注射器”，时长4秒。 ④“接种流程”和“注意事项”按钮位于舞台下方，单击“接种流程”按钮，跳转到“接种流程”场景第1帧继续播放，单击“注意事项”按钮，跳转到“注意事项”场景第1帧继续播放。(其它略) 呈现顺序： ①开始时出现背景图片、人物动画、疫苗动画和背景音乐。 ②第1秒时开始出现文字动画。 ③第5秒时出现“接种流程”和“注意事项”按钮 ④播放完该场景最后一帧动画自动停止，背景音乐不停止。
（1）分析制作脚本，下列说法正确的有 （多选，填字母）。
A．该场景中至少需要有3个按钮
B．文字动画结束时出现“接种流程”按钮
C．背景音乐的同步方式可以设置为“数据流”
D．人物动画开始帧中的对象的Alpha属性值应设置为0%
E．“疫苗”文字变“药瓶和注射器”的补间动画类型是形状补间
（2）根据上述脚本，在Flash软件中编辑“main”场景，部分界面如图A所示。
图A
如图A所示，要实现播放完该场景动画后自动停止的效果，可以直接在　 　图层第60帧上添加脚本动作脚本“stop()；”。要使“背景”图层中的内容延续至最后一帧，可以选中该图层第40帧，执行　 　（单选，填字母：A .清除帧 / B .清除关键帧 / C .删除帧）。
（3）在图A所示状态下，若要使“文字”图层的动画一开始就出现，且文字动画时长保持不变，则可行的操作是　 　。
（4）测试影片时，单击当前场景中的“接种流程”按钮，跳转到“接种流程”场景第1帧处继续播放，以下脚本命令正确的是 （多选，填字母）。
A．on (release) {play();}
B．on (release) {play("接种流程",1);}
C．on (release) {gotoAndplay(1);}
D．on (release) {gotoAndplay("接种流程",1);}
【答案】（1）B；D；E
（2）按钮；B
（3）选中“文字”图层第11帧至50帧整体移动到第1帧至40帧或选中“文字”图层第11帧移动到第1帧，选中“文字”图层第50帧移动到第40帧
（4）A；D
【知识点】多媒体作品的规划和设计；时间轴、帧、图层、库的概念及基本操作；常用影片控制函数的应用
15．（2021·绍兴模拟）给定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程序如下，请在划线处填入合适代码。
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
Command1_Click()
Dim s As String, k As Single, m As Single,
mm As Integer
Dim c As Integer, p As Integer, i As
Integer, j As Integer
Dim t1 As String, t2 As Integer
s = Text1.Text
k =
Val(Text2.Text)
c = 0
For i = 1 To n
If xb(i) = s Then 　 　
Next i
m = c * k / 100
If m < 1 Then
mm = 1
Else
mm = 　 　
End If
i = 1
Do While i <= n
p = i
For j = i + 1 To 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) = t1
t2 = cj(i): cj(i) = 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 + 1
Loop
　 　
For i = 1 To mm
List2.AddItem xm(i) + " " + xb(i) + " " + Str(cj(i))
Next i
End Sub
（3）程序加框处的代码有误，请改正。
【答案】（1）C
（2）c = c + 1；Fix(m)或 Int(m)或 Fix(c * k / 100)或 Int(c * k / 100)；mm = i - 1
（3）xb(p) <> s Or cj(j) > cj(p)
【知识点】排序算法及程序实现；常用标准函数；基本语句
16．（2021·绍兴模拟）某手机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程序如下，请在划线处填入合适的代码。
Const m = 9 'm 表示座位有9排
Const n = 10 'n 表示每排的座位数为10
Dim r As Integer 'r 表示当次输入的购票人数
Dim a(1 to m * n) As Integer 'a 数组存放每个座位的等级值
Dim b(1 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 While p <= j + r - 1 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 i As Integer, j As Integer,
s As String, max As Integer
Dim t As Integer, newi As
Integer, newj As Integer, pos As Integer
r = Val(Text1.Text)
max = 0
For i = 1 To m
For j = 1 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
For i = 　 　
b(i)
= 1
Next i
Label3.Caption
= "推荐座位编号：" & newi &
"排" & newj & "-" & newj
+ r - 1 & "座"
End If
End Sub
【答案】（1）18
（2）sum + a(k) 或 sum + a((i - 1) * n + p)；t = getsum(i, j)；pos To pos + r - 1 或 pos + r - 1 To pos Step -1
【知识点】过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
1 / 1浙江省绍兴市2021届高三下学期技术4月适应性考试（二模）试卷
一、选择题（本大题共12小题，每小题2分，共24分。）
1．（2021·绍兴模拟）关于信息与信息技术，下列说法正确的是（　　）
A．信息只有数字化后才有意义
B．信息经过加工处理后一定具有更高的价值
C．微信中朋友发布的信息都是值得信赖的
D．通过数据加密技术加密信息可以提高安全性
2．（2021·绍兴模拟）小明使用智能手机进行网络购物，经历了如下过程：
① 手机电量不足时，给手机无线充电
② 智能客服代替人工与小明语音交流
③ 下订单后，进行刷脸支付
④ 实时查看商品的物流信息
⑤ 通过识别指纹开启寄存柜
以上过程中，应用了人工智能技术的有（　　）
A．①②③ B．①②④ C．②③⑤ D．③④⑤
3．（2021·绍兴模拟）用Access软件设计某水果进销存系统的数据库，其中“水果信息表”数据表中需要存储如图所示的数据。
描述不正确的是（　　）
A．该数据表的字段名称可以与上表所示每列名称不同
B．图中“单价”列在该数据表中相应字段的数据类型只能是“数字”型
C．若图中“水果编码”列在该数据表中相应的字段设置为主键，则该字段的字段值一定是不同的
D．可以在图中“水果名称”列在该数据表中相应的字段后插入一个“配送单位”字段
4．（2021·绍兴模拟）使用UltraEdit软件观察字符“2021-2025年十四五规划早知道abc”的内码，部分界面如下图所示。
下列说法正确的是（　　）
A．上述字符中共有12个ASCII字符
B．字符“c”的内码值用十进制表示为99
C．字符“十”的十六进制内码值是EA CA
D．字符“5”的内码值的2倍用十六进制表示为70
5．（2021·绍兴模拟）使用Photoshop软件制作“抗疫”作品，部分编辑界面如图所示。
下列说法正确的是（　　）
A．不可以直接对“图层 1”图层进行重命名
B．可以通过“自由变换”操作调整“文字”图层中部分文字的大小
C．“研究人员”图层设置了图层样式，不可以再添加滤镜效果
D．删除“病毒”图层后直接保存为BMP格式图像，图像容量约为2.75MB
6．（2021·绍兴模拟）有两幅BMP格式图像，A图像参数为800×600像素，24位真彩色，B图像参数为400×300像素，256级灰度，则图像A和B的存储容量之比为（　　）
A．6:1 B．12:1 C．3:4 D．3:8
7．（2021·绍兴模拟）若a=43，b=47，有VB表达式：
① a * b Mod 10 = 1 ② Abs(a - b) = 10
③ a \ 10 = b \ 10 ④ b Mod 10 \ 2 = 2
⑤ a Mod 2 <> b Mod 2
上述表达式的值为True的有（　　）
A．①③④ B．①③⑤ C．②③⑤ D．③④⑤
8．（2021·绍兴模拟）某算法的部分流程图如图所示。
执行这部分流程，若依次输入2、-3、5、-1、2、1、-3、0，则输出m的值为（　　）
A．4 B．5 C．6 D．7
9．（2021·绍兴模拟）有如下 VB 程序段：
s = "python2021": t = "": i = 1
Do While i < Len(s)
c = Mid(s, i, 1): d = Mid(s, i + 1, 1)
If c < d Then t = t + c Else t = t + d
i = i + 2
Loop
Label1.Caption = t
执行该程序段后，标签Label1上显示的内容是（　　）
A．phn01 B．pto22 C．yhn01 D．yto22
10．（2021·绍兴模拟）为统计某股票一年内共200个交易日收盘价中连续20个交易日的最大波动值（即连续20个交易日内的最高收盘价-最低收盘价）。数组元素a(1)~a(200)按时间先后顺序分别存储200个交易日的收盘价。编写如下VB程序实现上述功能：
max = 0
For p =
amin = a(p): amax = a(p)
i = p + 1: j = p + 19
Do While
If a(i) > a(j) Then
If a(i) > amax Then amax = a(i)
If a(j) < amin Then amin = a(j)
Else
If a(i) < amin Then amin = a(i)
If a(j) > amax Then amax = a(j)
End If
i = i + 1: j = j - 1
Loop
If Then max = amax - amin
Next p
Text1.Text = "最大波动值为：" + Str(max)
上述程序段3个方框处的语句分别为（　　）
A．①1 To 181 ②i <= j ③max < amax - amin
B．①1 To 181 ②i < j ③max > amax - amin
C．①1 To 180 Step 20 ②i <= j ③max < amax - amin
D．①1 To 180 Step 20 ②i < j ③max > amax - amin
11．（2021·绍兴模拟）采用冒泡排序算法对数据序列“8,3,5,2,0,9”进行排序，第一轮排序后的结果为“0,8,3,5,2,9”，则整个序列完成排序的交换次数是（　　）
A．6次 B．7次 C．8次 D．9次
12．（2021·绍兴模拟）某对分查找算法的VB程序段如下：
low = 1: high = 8
key = Int(Rnd * 15 + 1) * 2
Do While low <= high
m = (low + high) \ 2
If a(m) >= key Then
high = m - 1
Else
low = m + 1
End If
Loop
Text1.Text = Str(low)
若数组元素a(1)到a(8)的值依次为 1,10,11,12,15,30,32,37，执行该程序段后，文本框Text1中显示的内容可能是（　　）
A．1 B．3 C．4 D．7
二、非选择题（本题共4小题，4+8+7+7，共26分）
13．（2021·绍兴模拟）使用Excel软件处理某超市进销存数据，如图a所示。
请回答下列问题：
（1）区域H3:H357的数据通过公式计算得到：在H3单元格中输入公式　 　，再使用自动填充功能完成区域 H4:H357的计算。（提示：利润=（商品售价-商品进价）× 销量）
（2）图a中“粮油类”商品编码数据“101717”误输入为“10177”，“粮油类”商品按“商品编码”升序排序后，发现“10177”位于“101720”之后，其原因是B355、B356单元格中的数据是　 　类型。
（3）完成图a中的各类商品总利润计算之后，制作了如图b所示的图表。下列说法正确的有 （多选，填字母）。
A．总利润最高的商品是水果类
B．对区域E3:G357数据格式设置为“保留1位小数”，“利润”列数据保持不变
C．在图a所示工作表中按“商品名称”筛选所有花生油，图c中①处可选择“包含”
D．对蔬菜类以“销量”为关键字进行升序排序，则选择的排序数据区域为A2:H130
14．（2021·绍兴模拟）使用 Flash 软件创作主题为“抗疫”的多媒体作品，其中“main”场景的制作脚本如下表所示。
场景名: main 类别序号: 2 进入方式: 来自“片头”场景，通过“Enter”按钮进入
呈现方式： ①文字从上而下加速飞入到舞台中，时长4秒. ②人物从完全透明到完全显示变化，时长4秒。 ③疫苗动画实现从“疫苗”文字逐渐变为“药瓶和注射器”，时长4秒。 ④“接种流程”和“注意事项”按钮位于舞台下方，单击“接种流程”按钮，跳转到“接种流程”场景第1帧继续播放，单击“注意事项”按钮，跳转到“注意事项”场景第1帧继续播放。(其它略) 呈现顺序： ①开始时出现背景图片、人物动画、疫苗动画和背景音乐。 ②第1秒时开始出现文字动画。 ③第5秒时出现“接种流程”和“注意事项”按钮 ④播放完该场景最后一帧动画自动停止，背景音乐不停止。
（1）分析制作脚本，下列说法正确的有 （多选，填字母）。
A．该场景中至少需要有3个按钮
B．文字动画结束时出现“接种流程”按钮
C．背景音乐的同步方式可以设置为“数据流”
D．人物动画开始帧中的对象的Alpha属性值应设置为0%
E．“疫苗”文字变“药瓶和注射器”的补间动画类型是形状补间
（2）根据上述脚本，在Flash软件中编辑“main”场景，部分界面如图A所示。
图A
如图A所示，要实现播放完该场景动画后自动停止的效果，可以直接在　 　图层第60帧上添加脚本动作脚本“stop()；”。要使“背景”图层中的内容延续至最后一帧，可以选中该图层第40帧，执行　 　（单选，填字母：A .清除帧 / B .清除关键帧 / C .删除帧）。
（3）在图A所示状态下，若要使“文字”图层的动画一开始就出现，且文字动画时长保持不变，则可行的操作是　 　。
（4）测试影片时，单击当前场景中的“接种流程”按钮，跳转到“接种流程”场景第1帧处继续播放，以下脚本命令正确的是 （多选，填字母）。
A．on (release) {play();}
B．on (release) {play("接种流程",1);}
C．on (release) {gotoAndplay(1);}
D．on (release) {gotoAndplay("接种流程",1);}
15．（2021·绍兴模拟）给定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程序如下，请在划线处填入合适代码。
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
Command1_Click()
Dim s As String, k As Single, m As Single,
mm As Integer
Dim c As Integer, p As Integer, i As
Integer, j As Integer
Dim t1 As String, t2 As Integer
s = Text1.Text
k =
Val(Text2.Text)
c = 0
For i = 1 To n
If xb(i) = s Then 　 　
Next i
m = c * k / 100
If m < 1 Then
mm = 1
Else
mm = 　 　
End If
i = 1
Do While i <= n
p = i
For j = i + 1 To 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) = t1
t2 = cj(i): cj(i) = 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 + 1
Loop
　 　
For i = 1 To mm
List2.AddItem xm(i) + " " + xb(i) + " " + Str(cj(i))
Next i
End Sub
（3）程序加框处的代码有误，请改正。
16．（2021·绍兴模拟）某手机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程序如下，请在划线处填入合适的代码。
Const m = 9 'm 表示座位有9排
Const n = 10 'n 表示每排的座位数为10
Dim r As Integer 'r 表示当次输入的购票人数
Dim a(1 to m * n) As Integer 'a 数组存放每个座位的等级值
Dim b(1 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 While p <= j + r - 1 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 i As Integer, j As Integer,
s As String, max As Integer
Dim t As Integer, newi As
Integer, newj As Integer, pos As Integer
r = Val(Text1.Text)
max = 0
For i = 1 To m
For j = 1 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
For i = 　 　
b(i)
= 1
Next i
Label3.Caption
= "推荐座位编号：" & newi &
"排" & newj & "-" & newj
+ r - 1 & "座"
End If
End Sub
答案解析部分
1．【答案】D
【知识点】信息及其特征；信息系统安全防护
2．【答案】C
【知识点】人工智能的应用
3．【答案】B
【知识点】数据表、字段、记录的概念；数据表、字段、记录的编辑
4．【答案】B
【知识点】进制及数制转换；字符编码
5．【答案】D
【知识点】图层及图层的基本操作
6．【答案】B
【知识点】声音、图像、视频编码
7．【答案】A
【知识点】运算符、基本运算与表达式
8．【答案】C
【知识点】流程图识读
9．【答案】A
【知识点】循环结构语句及程序实现
10．【答案】A
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
11．【答案】D
【知识点】排序算法及程序实现
12．【答案】C
【知识点】查找算法及程序实现
13．【答案】（1）=(E3-F3)*G3
（2）文本
（3）B；C
【知识点】表格数据的处理与计算
14．【答案】（1）B；D；E
（2）按钮；B
（3）选中“文字”图层第11帧至50帧整体移动到第1帧至40帧或选中“文字”图层第11帧移动到第1帧，选中“文字”图层第50帧移动到第40帧
（4）A；D
【知识点】多媒体作品的规划和设计；时间轴、帧、图层、库的概念及基本操作；常用影片控制函数的应用
15．【答案】（1）C
（2）c = c + 1；Fix(m)或 Int(m)或 Fix(c * k / 100)或 Int(c * k / 100)；mm = i - 1
（3）xb(p) <> s Or cj(j) > cj(p)
【知识点】排序算法及程序实现；常用标准函数；基本语句
16．【答案】（1）18
（2）sum + a(k) 或 sum + a((i - 1) * n + p)；t = getsum(i, j)；pos To pos + r - 1 或 pos + r - 1 To pos Step -1
【知识点】过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
1 / 1

展开更多......

收起↑