主题：[求助]统计汇总

以下是引用有点甜在2019/1/14 16:21:00的发言：
Dim dt As Table = Tables("information")
Dim dic As new Dictionary(of String, Integer)
For Each r As Row In dt.Rows
    Dim ary() As String = {r("开奖号码_A"),r("开奖号码_B"), r("开奖号码_C"), r("开奖号码_D"), r("开奖号码_E")}
    array.sort(ary)
    Dim str = String.Join(",", ary)
    If dic.ContainsKey(str) = False Then
        dic.Add(str, 1)
    Else
        dic(str) += 1
    End If
Next
Dim t As Table = Tables("表A")
t.StopRedraw
t.DataTable.DataRows.Clear
For Each key As String In dic.Keys
    Dim nr As DataRow = t.DataTable.addnew
    nr("第一列") = key
    nr("第二列") = dic(key)
Next
t.ResumeRedraw
t.sort = "第二列 desc"

老师你好，我是个新手，请教一下，如果我想统计4位数组合出现的次数，上面的代码要怎么修改呀

例如这个表

此主题相关图片如下：2.png

想要显示2,3,4,5   6次

   1,2,3,4   4次

   1,3,4,5   4次

       2,3,4,6   2次

           3,4,5,6  2次

   1,2,7,8 1次   

   1,2,7,9 1次

谢谢老师。我想再显示一个3位数组合的次数，上面这段代码要怎么修改呀，我自己改不出来  把Ary(3)改成 Ary(2),显示“索引超出数组界限”