如何返回数组内各元素的最大连续次数和对应出现最大连续的次数？

作者：绿色风分类：时间：2022-08-17 浏览：93

楼主
liuguansky

Q:若有一数组arr=array(0,1,1,1,0,0,2,2,1,3,3,0,0,1,1,1,2,3,0,2)，求0,1,2,3连续的最大值及个数代码。
结果为0的连续最大值为2，出现次数2次
         1的连续最大值为3，出现次数2次
         2的连续最大值为2，出现次数1次
         3的连续最大值为2，出现次数1次。
A:用如下代码可以实现：

Sub JustTest()
Dim Arr, i&, k&, d, str, ar '定义变量
Set d = CreateObject("scripting.dictionary") '创建字典项目
Arr = Array(0, 1, 1, 1, 0, 0, 2, 2, 1, 3, 3, 0, 0, 1, 1, 1, 2, 3, 0, 2)
'待处理数组
k = 1
'初始化连续个数
For i = LBound(Arr) + 1 To UBound(Arr)
If Arr(i) = Arr(i - 1) Then '判断是否连续
k = k + 1 '连续则累加
Else '不连续：
If d.exists(Arr(i - 1)) Then '如果存在字典KEY
ar = d(Arr(i - 1)) '获取ITEM
If ar(0) = k Then '如果次数与本次相同
ar(1) = ar(1) + 1 '则累加ITEM的个数标识
ElseIf ar(0) < k Then '如果小于本次
ar(0) = k: ar(1) = 1 '把本次的记录赋值，同时初始化个数标识
End If
d(Arr(i - 1)) = ar '数组赋值回ITEM
Else: d.Add Arr(i - 1), Array(k, 1) '如果不存在字典KEY，则添加字典KEY，item也初始化
End If
k = 1 '同时初始化连续个数
End If
Next
Arr = d.keys '获取字典KEY数组
For i = LBound(Arr) To UBound(Arr) '循环字典KEY
str = str & vbCrLf & i & "的连续最大值为" & d(i)(0) & ",出现次数为" & d(i)(1) & "次"
'返回待返回文本串
Next i
MsgBox "数组中的元素连续情况为：" & str
'消息框提示结果
Set d = Nothing
'释放字典对象
End Sub

该帖已经同步到 liuguansky的微博

2楼
JOYARK1958

謝謝提供學習下載中

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表