判断整数数组元素是否已经按升序排序。_VBA/Excel实例系列——连续整数判断

Part 1：写在前面的话

1. 解释一下题目：一组整数1,2,3,4,6,8,9,10，是否存在4个连续整数，答案为是；是否存在5个连续整数，答案为否
2. 应用场景：当某种现象连续出现5次，则认为异常，否则为正常现象
3. 形象点场景：一工厂生产泡面，进行机器自动检查其重量并记录检测时间及重量数据到后台

• 问题：假设如果连续5次重量不足，则说明有异常，需要检查生产线
• 当然现在很多监控设备已经有自动预警功能，假设这个工厂比较low，没有这个功能
• 只能采取定期对数据进行检查
• 你获取了这些数据，如何发现异常？

1. 解决方法：时间信息相当于这些重量数据的标签，根据时间前后，把其替换为连续的整数。只保留不合格重量的标签，这样就得到一组整数，回到该开始的题目
2. 哈哈，有没有点晕？

Part 2：解决问题逻辑过程

1. 何为连续整数，对于排序好的整数，前后相减为1，则连续整数为2个
2. 有一组排序好的整数(升序)，前后相减，得到另外一个数组，有m个连续的1，则有m+1个连续的整数
3. 具体实现：建立一个函数，输入参数2个。需判断的数组arr，及有多少个连续整数n，函数返回结果为“是”或者“否”。具体如下

• 初始化函数为“否”
• 判断数组长度，小于需要判断个数n，则直接返回“否”
• 设置计算器counter，并初始化为0，counter为计算相减后连续1的个数，达到n-1则返回“是”
• 每次遇到差值不为1，则counter置为0，这样统计出来的才是连续整数的个数

1. 要求传入函数中的数组已按照升序排序

Part 3：代码

Sub test()  Rem>>主程序 Rem>> arr1 = Array(1, 3, 4, 6, 8, 10, 11, 12, 16) arr2 = Array(1, 3, 4, 6, 9, 10, 11, 12, 16) arr3 = Array(2, 3, 4, 5, 6, 7, 11, 12, 16) n = 5 existsYN1 = 连续整数(arr1, n) existsYN2 = 连续整数(arr2, n) existsYN3 = 连续整数(arr3, n)End SubFunction 连续整数(arr, n)  Rem>>判断整数数组是否存在连续n个整数 Rem>>返回：是 / 否 '初始化 连续整数 = "否" '数组长度 lenA = UBound(arr) + 1 If lenA < n Then 连续整数 = "否" End If '计数器 counter = 0 For i = 0 To lenA - 2 Step 1 plusValue = arr(i + 1) - arr(i) If plusValue = 1 Then '连续整数 counter = counter + 1 If counter = n - 1 Then 连续整数 = "是" Exit For End If Else counter = 0 End If Next iEnd Function

执行结果