如何写这样的代码

吴中泉

hbhs2022 发表于 2023-6-8 17:23
你把填充表格的代码加在显示期数里面，还是有个问题没有解决。输入30，点显示期数按钮自动填充，如果再输入 ...

这两个问题也已解决，楼主是个很讲究很认真的人。

详见附件，请测试 新数据图表.rar (122.62 KB, 下载次数: 6)

2023-6-8 19:37 上传

点击文件名下载附件

hbhs2022

我又重新修改了界面，加入了全部更新代码。

吴中泉

吴中泉 发表于 2023-6-8 16:11
楼主的表格界面制作的非常精美，看着舒服

顺便发个图，看图说话

以下为优化前天发的

吴中泉

吴中泉 发表于 2023-6-10 13:50
以下为优化前天发的

     'n个数求连号的通用代码(用字典)
    Dim d As Object
    Set d = CreateObject("scripting.dictionary")
    For i = 3 To r
        m = 0: L = 7 '定义中奖号任意长度（个数）
        For j = 2 To L
             m = m + 1
            If arr(i, j) = arr(i, j - 1) + 1 Then
                d(arr(i, j) - m & n) = m + 1
            Else
                m = 0: n = n + 1
            End If
        Next
        For Each n2 In d.items
            If arr(i, 8) = "" Then
                arr(i, 8) = n2
            Else
                arr(i, 8) = arr(i, 8) & " + " & n2
            End If
        Next
        d.RemoveAll: n = 0: n2 = 0
    Next


    'n个数求连号的通用代码
    For i = 3 To r
        L = 7 '定义中奖号任意长度（个数）
        ReDim brr(1 To L): ReDim crr(1 To L): m = 0: n = 0
        For j = 1 To L
            m = m + 1
            For k = j + 1 To L
                n = n + 1
                If crr(k) = 168 Then Exit For
                If arr(i, j) + n = arr(i, k) Then
                    brr(m) = n + 1: crr(k) = 168 '标志不重复访
                Else
                    Exit For
                End If
            Next: n = 0
        Next
        For j = 1 To L
        If brr(j) <> 0 Then
            If arr(i, 9) <> "" Then
                arr(i, 9) = arr(i, 9) & " + " & brr(j)
            Else
                arr(i, 9) = brr(j)
            End If
        End If
        Next
    Next

hbhs2022

字典要快些吗？有没有斜连号通用代码？我上次修改斜连号代码套用在大乐透后区2个号码出错，准备把数据统计分前区统计和后区统计。

hbhs2022

吴中泉 发表于 2023-6-10 13:50
以下为优化前天发的

我把你的斜连号套用在大乐透后区号码是正确，是我看错了。

吴中泉

hbhs2022 发表于 2023-6-10 14:04
字典要快些吗？有没有斜连号通用代码？我上次修改斜连号代码套用在大乐透后区2个号码出错，准备把数据统计 ...

理论上字典是要快不少,但你这只几千行数据,而且每行只有几个数,速度上几乎一样的,应该只有几毫秒差别.
斜连号是只有2连号吧?这个当时编的时候只考虑5个数的.通不通用的代码还没有考虑过,这些规则我不懂呢.
好奇问一下,你要用这程序产生的数据研究什么呢?

hbhs2022

吴中泉 发表于 2023-6-10 20:03
理论上字典是要快不少,但你这只几千行数据,而且每行只有几个数,速度上几乎一样的,应该只有几毫秒差别.
...

本人喜欢研究彩票。