资源简介

登录二一教育在线组卷平台 助您教考全无忧
浙江省宁波市2021-2022学年高三下学期4月信息技术高考模拟考试（二模）试卷
一、选择题（本大题共12小题，每小题2分，共24分。）
1．（2022·宁波二模）下列有关信息和信息技术的说法，正确的是（　　）
A．微信群里的视频和语音都属于信息
B．计算机制作三维动画，本质上是通过计算来完成的
C．信息被重复使用后，会像物质、能源那样产生损耗
D．网上观影时的“弹幕”属于信息评价方式中的统计评价
2．（2022·宁波二模）下列有关信息的表达与交流的说法中，错误的是（　　）
A．电子邮件服务器之间传送邮件时采用的协议名称为SMTP
B．超文本传输协议用于浏览器与Web服务器之间的信息传输
C．网页是由超文本标记语言描述的文本文件，因此可以用记事本来编辑网页
D．在IE浏览器中以“网页，仅HTML”的方式保存网页，网页中的超链接不会被保存
3．（2022·宁波二模）使用UltraEdit软件观察字符内码，部分界面如图所示。
下列说法正确的是（　　）
A．字符@的内码是40 48
B．图中的字符存储一共占15个字节
C．字符“H”与字符“h”的内码值相差20D
D．字符“x”的内码用二进制表示为 01111000B
4．（2022·宁波二模）某同学开发了一个“学生信息管理系统”，用Access软件创建了后台数据库“student.accdb”，数据库中的“info”表用来存储如图所示的学生基本信息数据。
学号 姓名 性别 出生日期 是否住校
20190201 张硕 男 2004-08-17 住校
20190202 吴思思 女 2004-05-23 通校
20190203 郑雨辰 男 2003-11-25 通校
…… …… …… …… ……
下列关于该系统的描述中，正确的是（　　）
A．“student.accdb”是数据库系统
B．“info”表中学号字段的数据类型可以设置为“自动编号”
C．若在Access中删除了“info”表中张硕的出生日期值，可以通过撤销命令恢复
D．存放出生日期信息字段的数据类型可设置为“日期/时间”型，并可输入“2022-02-29”
5．（2022·宁波二模）用 GoldWave 软件编辑某音频文件的部分界面如图所示。
下列说法正确的是（　　）
A．该音频文件是采用无损压缩格式存储的
B．1kbps 表示录制该音频时每秒钟采样 1411000 个数据
C．对选中的音频设置“静音”效果并直接保存，文件大小不变
D．若删除左声道中的音频并直接保存，该音频将变为单声道
6．（2022·宁波二模）一段时长为10秒、1024*768像素、NTSC制式的未经压缩的AVI格式无声视频，其文件容量约为675MB，则该视频的颜色位深度是（　　）
A．32 位 B．24 位 C．16 位 D．8 位
7．（2022·宁波二模）VB表达式 37 Mod 3 * 7 \ 2 ^ 2 的值是（　　）
A．1 B．2 C．3 D．37
8．（2022·宁波二模）某算法部分流程图如图所示。执行这部分流程，输入m、n的值分别为18，27，则输出a/m的值是（　　）
A．3 B．9 C．54 D．486
9．（2022·宁波二模）现有三个整数序列：“2，1，3，4，5”、“7，1，6，8，3”、“9，8，7，6，5”。用选择排序算法分别对三个序列进行升序排列，交换次数依次为 x、y、z，则下列关系正确的是（　　）
A．x = y = z B．x > y > z C．y > z > x D．z > y > x
10．（2022·宁波二模）圆周率π的近似值可以通过如下公式计算获得：
通过前 50 项计算近似值 pi 的 VB 程序段如下：
x = Sqr(2)：pi = 2 / x
For i = 2 To 50
Next i
方框中的代码由以下四部分中的两部分组成：
①x=Sqr(2+x) ②pi=2*pi/x ③x=Sqr(x) ④pi=2*pi/(2+x)
下列选项中，代码顺序正确的是（　　）
A．①② B．③② C．④③ D．①④
11．（2022·宁波二模）有如下程序段：
s = "NINGBOIT"：n = 139：t = ""
Do While n > 0 r = n Mod 7 n = n \ 7
t = Mid(s, r + 1, 1) + t
Loop
执行该程序段后，变量 t 的值是（　　）
A．"IBI" B．"NOI" C．"TON" D．"NOT"
12．（2022·宁波二模）有如下 VB 程序段
i = 1: j = 6: s = ""
Key = Val(Text1.Text) Randomize
Do While i <= j
m = Int(Rnd * (j - i + 1) + i) s = s + Str(a(m))
If a(m) < Key Then j = m - 1
ElseIf a(m) > Key Then i = m + 1
Else
Exit Do
End If
Loop
数组元素 a(1)到 a(6)的值依次为“88、76、64、25、24、12 ”，文本框 Text1 中输入 key 值，执行该程序段，s 值不可能的是（　　）
A．76 88 B．88 12 25 24
C．25 64 88 76 D．64 12 88 24
二、非选择题（本大题共4小题，4+8+7+7，共26分）
13．（2022·宁波二模）某同学对各个汽车厂商进行研究，收集了2021年12月和年度累计数据，并使用Excel软件进行了处理，年度累计数据无相同值，数据已按照所属厂商排序，如图a所示。请回答下列问题：
图a
（1）在F3中输入公式，计算年度市场份额，并对 F4 到 F100 单元格进行自动填充，则F100 单元格的公式为　 　(年度市场份额=年度累计/合计)
（2）根据题图a中的数据制作了如图b所示的图表，创建该图表的数据区域是　 　。
图 b
（3）对表格数据进行分析，正确的是 (多选，填字母)
A．为了让厂商“北京现代”12月销量最高的车型显示在第3行，可以选中A2:F2,进行筛选，所属厂商选“北京现代”，12月销量选“10个最大的值”，选最大的1项，按确定。
B．对“2021年12月汽车销量排行榜”按照12月销量进行降序排序后，图b所示图表将发生变化。
C．为了使厂商“北京现代”的车型能够按照12月销量降序排序，可以选择数据区域A2:F2,A8:F12进行排序。
D．选择区域A2:F100进行筛选，对“年度累计”使用“10个最大的值”,选最大的3项，表格的3到5行将显示“年度累计”最大的两种车型和合计数据。
14．（2022·宁波二模）小朱使用Flash软件创作“元宵节”为主题的多媒体作品。请回答下列问题：
（1）如图a 所示，要去除图片素材中的水印“建筑城楼”，可行的方法有： 　 　（多选，填字母：A .利用“裁剪”工具将水印删除/B .切换前景色和背景色，利用“橡皮擦”工具进行擦除/C .选择“仿制图章”工具去除水印/D .利用“磁性套索”工具选中“”，反选后按“Delete”键，填充颜色选“白色”。）
图a
（2）制作的作品界面如图b所示。在“按钮”图层第45帧到第60帧之间制作了“按钮”由完全透明到完全显示的补间动画，该补间类型是　 　 ，第60帧“按钮”实例的颜色Alpha值应设置为　 　 %。
图b
（3）已知“声音”图层中声音的同步为“数据流”，要使该声音从第1帧起开始播放，且不改变其他动画效果，下列操作可行的是 。（多选，填字母）。
A．删除“声音”图层第1～14帧
B．将“声音”图层第14帧移到第1帧
C．在“声音”图层第1帧执行“清除关键帧”操作
D．在“声音”图层第1帧执行“清除帧”操作
（4）测试场景时，“树枝”图层中的树枝播放到第31帧后消失了，为了让树枝在动画播放过程中一直呈现，解决的办法是　 　。
15．（2022·宁波二模）有n个成员共同参加了一项活动，每个人获得一个积分值和一个权值，并且用这个积分值和权值的积作为该成员的最终得分。数组a中存储了这n个成员的积分和权值，其中奇数位置存储积分，偶数位置存储权值，数组存储结构如图a所示：
图a
小明同学使用VB编写了一个最终得分处理程序，对上述n个成员按最终得分进行降序排序，并计算出最终得分的中位数（中位数：把所有观察值排序后，正中间的一个即为中位数。如果观察值有偶数个，通常取最中间的两个数值的平均数作为中位数）。程序运行界面如图b所示：
图b
（1）语句 List1.Clear中的“Clear”是　 　(单选，填字母：A .对象名 / B .属性名 / C .方法名)。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Const n = 11
Dim a(1 To 2 * n) As Single
Private Sub Form_Load()
'读取初始数据，存储在数组a，并显示在列表框 List1 中。代码略
End
Sub
Private
Sub Cmd_sort_Click()
Dim i As Integer, j As Integer, shift As Integer Dim t As Single, zws As
Single
i = 2
Do While　 　
shift = n
For j =
If a(2 * j) * a(2 * j - 1) > a(2 * j - 2) * a(2 * j - 3) Then
t = a(2 * j): a(2 * j) = a(2 * j - 2): a(2 * j - 2) = t
t = a(2 * j - 1): a(2 * j -1) = a(2 * j - 3): a(2 * j - 3) = t
　 　
End If
Next j
i = shift
Loop
If n Mod 2 = 1 Then zws = a(n) * a(n + 1)
Else
zws = (　 　) / 2
End If
'在列表框 List1 中输出处理后数据的排序结果，代码略Label1.Caption = "最终得分的中位数是：" + Str(zws)
End Sub
（3）程序中加框处代码有错，请改正。
16．（2022·宁波二模）仓库管理员对每一件物品都进行了编码，并按升序排列，每个用户在领取物品时需要提供物品的后几位编码，如果用户提供的编码在仓库中有多件物品符合，则给他编码较小的物品。如果仓库中没有符合用户需要的物品，
则输出
none。请你编程帮管理员找出每一位用户应该领取的物品编码，物品不能被重复领取。例如，仓库有5 件物品，分别为134，1123，1234， 2112，5123
，有 3 个用户提出领取物品的需求：
2233456212，第1个数就是第1个用户要求的物品编码后几位的长度（1到9之间），例如是2，则向后读取2位数，23就是第一个用户要求的编码尾号，依次类推，第2个用户要求后3位编码为456，第3个用户要求后2位编码为12。则他们应该领取的物品为
1123，none，2112。
（1）根据题目中的物品编码，如果用户的需求数据是：143123223，领取的物品编码分别是　 　。
（2）实现上述功能的程序如下，请在划线处填入合适的代码。
Const
num = 5
Dim a(1 To 10) As String '物品编码
Dim s As String, req(1 To 10) As Integer '每位用户需求的后几位编码
Dim n As Integer '用户数
Dim
g(1 To 10) As String
Dim b(1 To 10) As Integer '每位用户需求的后几位编码长度
Dim flag(1 To 10) As Boolean '标记物品是否被领取
Private
Sub Form_Load()
'仓库物品编码数据初始化，并在List1中列举，代码略
End Sub
Private Sub Command1_Click()
s = Text1.Text
k = 1: i = 1: n = 0
Do While i <= Len(s)
t = Val(Mid(s, i, 1))
n = n + 1
b(n) = t
req(n) = Val(Mid(s, i + 1, t))
　 　
Loop
For i = 1 To n
　 　
List2.AddItem g(i)
Next i
End Sub
Function search(need As
Integer, needlen As Integer) As String
j = 1
For j = 1 To num
If　 　And flag(j) = False Then Exit
For Next
If j > num Then search = "none"
Else
flag(j) = True search = a(j)
End If
End Function
答案解析部分
1．【答案】B
【知识点】信息及其特征；因特网信息资源评价
2．【答案】D
【知识点】电子邮件，电子公告板等信息交流方式；网络资源的类型、下载与保存；常用的网页编辑与制作工具
3．【答案】D
【知识点】进制及数制转换；字符编码
4．【答案】C
【知识点】数据库、数据库系统及其特征；数据表、字段、记录的编辑
5．【答案】C
【知识点】声音素材的基本处理
6．【答案】B
【知识点】声音、图像、视频编码
7．【答案】B
【知识点】运算符、基本运算与表达式
8．【答案】C
【知识点】流程图识读
9．【答案】D
【知识点】排序算法及程序实现
10．【答案】A
【知识点】循环结构语句及程序实现
11．【答案】B
【知识点】循环结构语句及程序实现
12．【答案】D
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
13．【答案】（1）=E100/E$101
（2）B2,B13:B16,D2,D13:D16
（3）B；D
【知识点】表格数据的处理与计算；数据分析
14．【答案】（1）CD
（2）动画；100
（3）B；C
（4）在“树枝”图层第31 帧执行“清除关键帧”操作
【知识点】图层及图层的基本操作；动画的类型；时间轴、帧、图层、库的概念及基本操作；二维动画实例属性的设置
15．【答案】（1）C
（2）i <= n - 1 或 i（3）n To i Step -1
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；排序算法及程序实现
16．【答案】（1）134 1123 5123
（2）i = i + t + 1；g(i) = search(req(i), b(i))；need = Val(Mid(a(j), Len(a(j)) - needlen + 1, needlen))
【知识点】过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1登录二一教育在线组卷平台 助您教考全无忧
浙江省宁波市2021-2022学年高三下学期4月信息技术高考模拟考试（二模）试卷
一、选择题（本大题共12小题，每小题2分，共24分。）
1．（2022·宁波二模）下列有关信息和信息技术的说法，正确的是（　　）
A．微信群里的视频和语音都属于信息
B．计算机制作三维动画，本质上是通过计算来完成的
C．信息被重复使用后，会像物质、能源那样产生损耗
D．网上观影时的“弹幕”属于信息评价方式中的统计评价
【答案】B
【知识点】信息及其特征；因特网信息资源评价
2．（2022·宁波二模）下列有关信息的表达与交流的说法中，错误的是（　　）
A．电子邮件服务器之间传送邮件时采用的协议名称为SMTP
B．超文本传输协议用于浏览器与Web服务器之间的信息传输
C．网页是由超文本标记语言描述的文本文件，因此可以用记事本来编辑网页
D．在IE浏览器中以“网页，仅HTML”的方式保存网页，网页中的超链接不会被保存
【答案】D
【知识点】电子邮件，电子公告板等信息交流方式；网络资源的类型、下载与保存；常用的网页编辑与制作工具
3．（2022·宁波二模）使用UltraEdit软件观察字符内码，部分界面如图所示。
下列说法正确的是（　　）
A．字符@的内码是40 48
B．图中的字符存储一共占15个字节
C．字符“H”与字符“h”的内码值相差20D
D．字符“x”的内码用二进制表示为 01111000B
【答案】D
【知识点】进制及数制转换；字符编码
4．（2022·宁波二模）某同学开发了一个“学生信息管理系统”，用Access软件创建了后台数据库“student.accdb”，数据库中的“info”表用来存储如图所示的学生基本信息数据。
学号 姓名 性别 出生日期 是否住校
20190201 张硕 男 2004-08-17 住校
20190202 吴思思 女 2004-05-23 通校
20190203 郑雨辰 男 2003-11-25 通校
…… …… …… …… ……
下列关于该系统的描述中，正确的是（　　）
A．“student.accdb”是数据库系统
B．“info”表中学号字段的数据类型可以设置为“自动编号”
C．若在Access中删除了“info”表中张硕的出生日期值，可以通过撤销命令恢复
D．存放出生日期信息字段的数据类型可设置为“日期/时间”型，并可输入“2022-02-29”
【答案】C
【知识点】数据库、数据库系统及其特征；数据表、字段、记录的编辑
5．（2022·宁波二模）用 GoldWave 软件编辑某音频文件的部分界面如图所示。
下列说法正确的是（　　）
A．该音频文件是采用无损压缩格式存储的
B．1kbps 表示录制该音频时每秒钟采样 1411000 个数据
C．对选中的音频设置“静音”效果并直接保存，文件大小不变
D．若删除左声道中的音频并直接保存，该音频将变为单声道
【答案】C
【知识点】声音素材的基本处理
6．（2022·宁波二模）一段时长为10秒、1024*768像素、NTSC制式的未经压缩的AVI格式无声视频，其文件容量约为675MB，则该视频的颜色位深度是（　　）
A．32 位 B．24 位 C．16 位 D．8 位
【答案】B
【知识点】声音、图像、视频编码
7．（2022·宁波二模）VB表达式 37 Mod 3 * 7 \ 2 ^ 2 的值是（　　）
A．1 B．2 C．3 D．37
【答案】B
【知识点】运算符、基本运算与表达式
8．（2022·宁波二模）某算法部分流程图如图所示。执行这部分流程，输入m、n的值分别为18，27，则输出a/m的值是（　　）
A．3 B．9 C．54 D．486
【答案】C
【知识点】流程图识读
9．（2022·宁波二模）现有三个整数序列：“2，1，3，4，5”、“7，1，6，8，3”、“9，8，7，6，5”。用选择排序算法分别对三个序列进行升序排列，交换次数依次为 x、y、z，则下列关系正确的是（　　）
A．x = y = z B．x > y > z C．y > z > x D．z > y > x
【答案】D
【知识点】排序算法及程序实现
10．（2022·宁波二模）圆周率π的近似值可以通过如下公式计算获得：
通过前 50 项计算近似值 pi 的 VB 程序段如下：
x = Sqr(2)：pi = 2 / x
For i = 2 To 50
Next i
方框中的代码由以下四部分中的两部分组成：
①x=Sqr(2+x) ②pi=2*pi/x ③x=Sqr(x) ④pi=2*pi/(2+x)
下列选项中，代码顺序正确的是（　　）
A．①② B．③② C．④③ D．①④
【答案】A
【知识点】循环结构语句及程序实现
11．（2022·宁波二模）有如下程序段：
s = "NINGBOIT"：n = 139：t = ""
Do While n > 0 r = n Mod 7 n = n \ 7
t = Mid(s, r + 1, 1) + t
Loop
执行该程序段后，变量 t 的值是（　　）
A．"IBI" B．"NOI" C．"TON" D．"NOT"
【答案】B
【知识点】循环结构语句及程序实现
12．（2022·宁波二模）有如下 VB 程序段
i = 1: j = 6: s = ""
Key = Val(Text1.Text) Randomize
Do While i <= j
m = Int(Rnd * (j - i + 1) + i) s = s + Str(a(m))
If a(m) < Key Then j = m - 1
ElseIf a(m) > Key Then i = m + 1
Else
Exit Do
End If
Loop
数组元素 a(1)到 a(6)的值依次为“88、76、64、25、24、12 ”，文本框 Text1 中输入 key 值，执行该程序段，s 值不可能的是（　　）
A．76 88 B．88 12 25 24
C．25 64 88 76 D．64 12 88 24
【答案】D
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
二、非选择题（本大题共4小题，4+8+7+7，共26分）
13．（2022·宁波二模）某同学对各个汽车厂商进行研究，收集了2021年12月和年度累计数据，并使用Excel软件进行了处理，年度累计数据无相同值，数据已按照所属厂商排序，如图a所示。请回答下列问题：
图a
（1）在F3中输入公式，计算年度市场份额，并对 F4 到 F100 单元格进行自动填充，则F100 单元格的公式为　 　(年度市场份额=年度累计/合计)
（2）根据题图a中的数据制作了如图b所示的图表，创建该图表的数据区域是　 　。
图 b
（3）对表格数据进行分析，正确的是 (多选，填字母)
A．为了让厂商“北京现代”12月销量最高的车型显示在第3行，可以选中A2:F2,进行筛选，所属厂商选“北京现代”，12月销量选“10个最大的值”，选最大的1项，按确定。
B．对“2021年12月汽车销量排行榜”按照12月销量进行降序排序后，图b所示图表将发生变化。
C．为了使厂商“北京现代”的车型能够按照12月销量降序排序，可以选择数据区域A2:F2,A8:F12进行排序。
D．选择区域A2:F100进行筛选，对“年度累计”使用“10个最大的值”,选最大的3项，表格的3到5行将显示“年度累计”最大的两种车型和合计数据。
【答案】（1）=E100/E$101
（2）B2,B13:B16,D2,D13:D16
（3）B；D
【知识点】表格数据的处理与计算；数据分析
14．（2022·宁波二模）小朱使用Flash软件创作“元宵节”为主题的多媒体作品。请回答下列问题：
（1）如图a 所示，要去除图片素材中的水印“建筑城楼”，可行的方法有： 　 　（多选，填字母：A .利用“裁剪”工具将水印删除/B .切换前景色和背景色，利用“橡皮擦”工具进行擦除/C .选择“仿制图章”工具去除水印/D .利用“磁性套索”工具选中“”，反选后按“Delete”键，填充颜色选“白色”。）
图a
（2）制作的作品界面如图b所示。在“按钮”图层第45帧到第60帧之间制作了“按钮”由完全透明到完全显示的补间动画，该补间类型是　 　 ，第60帧“按钮”实例的颜色Alpha值应设置为　 　 %。
图b
（3）已知“声音”图层中声音的同步为“数据流”，要使该声音从第1帧起开始播放，且不改变其他动画效果，下列操作可行的是 。（多选，填字母）。
A．删除“声音”图层第1～14帧
B．将“声音”图层第14帧移到第1帧
C．在“声音”图层第1帧执行“清除关键帧”操作
D．在“声音”图层第1帧执行“清除帧”操作
（4）测试场景时，“树枝”图层中的树枝播放到第31帧后消失了，为了让树枝在动画播放过程中一直呈现，解决的办法是　 　。
【答案】（1）CD
（2）动画；100
（3）B；C
（4）在“树枝”图层第31 帧执行“清除关键帧”操作
【知识点】图层及图层的基本操作；动画的类型；时间轴、帧、图层、库的概念及基本操作；二维动画实例属性的设置
15．（2022·宁波二模）有n个成员共同参加了一项活动，每个人获得一个积分值和一个权值，并且用这个积分值和权值的积作为该成员的最终得分。数组a中存储了这n个成员的积分和权值，其中奇数位置存储积分，偶数位置存储权值，数组存储结构如图a所示：
图a
小明同学使用VB编写了一个最终得分处理程序，对上述n个成员按最终得分进行降序排序，并计算出最终得分的中位数（中位数：把所有观察值排序后，正中间的一个即为中位数。如果观察值有偶数个，通常取最中间的两个数值的平均数作为中位数）。程序运行界面如图b所示：
图b
（1）语句 List1.Clear中的“Clear”是　 　(单选，填字母：A .对象名 / B .属性名 / C .方法名)。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Const n = 11
Dim a(1 To 2 * n) As Single
Private Sub Form_Load()
'读取初始数据，存储在数组a，并显示在列表框 List1 中。代码略
End
Sub
Private
Sub Cmd_sort_Click()
Dim i As Integer, j As Integer, shift As Integer Dim t As Single, zws As
Single
i = 2
Do While　 　
shift = n
For j =
If a(2 * j) * a(2 * j - 1) > a(2 * j - 2) * a(2 * j - 3) Then
t = a(2 * j): a(2 * j) = a(2 * j - 2): a(2 * j - 2) = t
t = a(2 * j - 1): a(2 * j -1) = a(2 * j - 3): a(2 * j - 3) = t
　 　
End If
Next j
i = shift
Loop
If n Mod 2 = 1 Then zws = a(n) * a(n + 1)
Else
zws = (　 　) / 2
End If
'在列表框 List1 中输出处理后数据的排序结果，代码略Label1.Caption = "最终得分的中位数是：" + Str(zws)
End Sub
（3）程序中加框处代码有错，请改正。
【答案】（1）C
（2）i <= n - 1 或 i（3）n To i Step -1
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；排序算法及程序实现
16．（2022·宁波二模）仓库管理员对每一件物品都进行了编码，并按升序排列，每个用户在领取物品时需要提供物品的后几位编码，如果用户提供的编码在仓库中有多件物品符合，则给他编码较小的物品。如果仓库中没有符合用户需要的物品，
则输出
none。请你编程帮管理员找出每一位用户应该领取的物品编码，物品不能被重复领取。例如，仓库有5 件物品，分别为134，1123，1234， 2112，5123
，有 3 个用户提出领取物品的需求：
2233456212，第1个数就是第1个用户要求的物品编码后几位的长度（1到9之间），例如是2，则向后读取2位数，23就是第一个用户要求的编码尾号，依次类推，第2个用户要求后3位编码为456，第3个用户要求后2位编码为12。则他们应该领取的物品为
1123，none，2112。
（1）根据题目中的物品编码，如果用户的需求数据是：143123223，领取的物品编码分别是　 　。
（2）实现上述功能的程序如下，请在划线处填入合适的代码。
Const
num = 5
Dim a(1 To 10) As String '物品编码
Dim s As String, req(1 To 10) As Integer '每位用户需求的后几位编码
Dim n As Integer '用户数
Dim
g(1 To 10) As String
Dim b(1 To 10) As Integer '每位用户需求的后几位编码长度
Dim flag(1 To 10) As Boolean '标记物品是否被领取
Private
Sub Form_Load()
'仓库物品编码数据初始化，并在List1中列举，代码略
End Sub
Private Sub Command1_Click()
s = Text1.Text
k = 1: i = 1: n = 0
Do While i <= Len(s)
t = Val(Mid(s, i, 1))
n = n + 1
b(n) = t
req(n) = Val(Mid(s, i + 1, t))
　 　
Loop
For i = 1 To n
　 　
List2.AddItem g(i)
Next i
End Sub
Function search(need As
Integer, needlen As Integer) As String
j = 1
For j = 1 To num
If　 　And flag(j) = False Then Exit
For Next
If j > num Then search = "none"
Else
flag(j) = True search = a(j)
End If
End Function
【答案】（1）134 1123 5123
（2）i = i + t + 1；g(i) = search(req(i), b(i))；need = Val(Mid(a(j), Len(a(j)) - needlen + 1, needlen))
【知识点】过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1

展开更多......

收起↑