[已解决]求数组元素连续个数最大值和最大值个数的代码

liuts

回复 haiyang81 的帖子

1. Sub test()
   
2. '先引用正则控件,方法：工具-引用-"Microsoft VBsrcipt Regular EXpression 5.5"
   
3.     Dim reg As New RegExp, sr, arr, str, 字符串 As String
   
4.     字符串 = "情况为:" & Chr(13)
   
5.     Dim i As Integer, j As Integer, k As Integer
   
6.     arr = Array(0, 1, 1, 1, 0, 0, 2, 2, 1, 3, 3, 0, 0, 1, 1, 1, 2, 3, 0, 2)
   
7.     sr = Join(arr, "")
   
8.     For i = 0 To 3
   
9.         For j = Len(sr) To 1 Step -1
   
10.             str = "(" & i & "){" & j & "}"
    
11.             With reg
    
12.                 .Global = True
    
13.                 .Pattern = str
    
14.                 If .test(sr) Then
    
15.                     s = sr
    
16.                     k = (Len(s) - Len(Replace(s, String(j, CStr(i)), ""))) / j
    
17.                     字符串 = 字符串 & Chr(13) & i & "的连续最大值为" & j & "，出现次数" & k & "次"
    
18.                     Exit For
    
19.                 End If
    
20.             End With
    
21.         Next
    
22.     Next
    
23.     MsgBox 字符串
    
24. End Sub
    

复制代码

兰色幻想

还是没看楼主的次数咋算的，3明明是出现2次，最大续连数是2，怎么成了
最大连续数是2，出现次为是1呢？

haiyang81

回复 兰色幻想 的帖子

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,连续出现的最大值及出现连续最大值的次数。

haiyang81

能不能建议不要设定最佳答案，改为参考答案。很多时候真是没法选择。
liuts  liuguansky都挺好，都是我想要的，尽管我不懂正则运算的局限性。

liuts

哈哈，刚看了正则视频，我就是拿来练练手，这种方法确实不适合这种大循环。数据多了，效率不高。

爱疯

1. 
   
2. Sub test()
   
3.     Dim A, m%, n%, i%, x$, y$
   
4.     A = Array(0, 1, 1, 1, 0, 0, 2, 2, 1, 3, 3, 0, 0, 1, 1, 1, 2, 3, 0, 2)
   
5.     m = Application.Min(A)
   
6.     n = Application.Max(A)
   
7.     x = Replace(Join(A), " ", "")
   
8.     For i = m To n
   
9.         y = y & pd(x, i) & vbLf
   
10.     Next i
    
11.     MsgBox y
    
12. End Sub
    
13. 
    
14. Function pd(x, i) As String '判断
    
15.     Dim regex As Object, matchs As Object, match As Object
    
16.     Dim k As Integer, j As Integer
    
17.     Set regex = CreateObject("VBScript.RegExp")
    
18.     With regex
    
19.         .Global = True
    
20.         .Pattern = i & "{2,}"
    
21.         Set matchs = .Execute(x)
    
22.         For Each match In matchs
    
23.             j = j + 1
    
24.             k = Application.Max(k, Len(match))
    
25.         Next
    
26.     End With
    
27.     pd = i & "的连续最大值为:" & k & ",出现次数:" & j & "次"
    
28. End Function

复制代码

这题有代表性，做了还是发这儿吧，以后好COPY{:011:}

haiyang81

爱疯你早来多好啊。你的答案正是我最想要的。
害得我正在修改liuguansky的代码

haiyang81

回复 爱疯 的帖子

怎么把 Function 部分用 数组 表示结果。字符串不利于引用数值。用三维数组可以吗？

爱疯

haiyang81 发表于 2011-11-4 14:16
回复 爱疯 的帖子

怎么把 Function 部分用 数组 表示结果。字符串不利于引用数值。用三维数组可以吗？

我也是用得不熟，所以做的很慢。
返回的pd可转为一维数组。不清楚你希望怎么改，怎么引用。

haiyang81

回复 爱疯 的帖子

0的连续最大值为2，出现次数2次
1的连续最大值为3，出现次数2次
2的连续最大值为2，出现次数1次
3的连续最大值为2，出现次数1次。

arr(i)表示连续最大值，其中i为给定数组Array中从小到大的不重复的值，即0到n
brr(i)表示出现次数。

不知能否做到？