如何写这样的代码

吴中泉

hbhs2022 发表于 2023-6-6 13:31
双色球红球号码是6个，不是5个。（只统计红球号码，不统计蓝球号码）
如果用你写的连号代码套用，我发现 ...

现在应该对了

吴中泉

吴中泉 发表于 2023-6-7 08:39
hbhs2022 发表于 2023-6-6 13:31
双色球红球号码是6个，不是5个。（只统计红球号码，不统计蓝球号码）
如 ...

六连号各类计算.rar (227.3 KB, 下载次数: 3)

2023-6-7 20:28 上传

点击文件名下载附件

吴中泉

hbhs2022 发表于 2023-6-6 13:31
双色球红球号码是6个，不是5个。（只统计红球号码，不统计蓝球号码）
如果用你写的连号代码套用，我发现 ...

1.      'n个数求连号的通用代码(用字典)
   
2.     Dim d As Object
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     For i = 3 To r
   
5.         m = 0: L = 7 '定义中奖号任意长度（个数）
   
6.         For j = 2 To L
   
7.              m = m + 1
   
8.             If arr(i, j) = arr(i, j - 1) + 1 Then
   
9.                 d(arr(i, j) - m & n) = m + 1
   
10.             Else
    
11.                 m = 0: n = n + 1
    
12.             End If
    
13.         Next
    
14.         For Each n2 In d.items
    
15.             If arr(i, 8) = "" Then
    
16.                 arr(i, 8) = n2
    
17.             Else
    
18.                 arr(i, 8) = arr(i, 8) & " + " & n2
    
19.             End If
    
20.         Next
    
21.         d.RemoveAll: n = 0: n2 = 0
    
22.     Next
    
23.    
    
24.     'n个数求连号的通用代码
    
25.     For i = 3 To r
    
26.         L = 7 '定义中奖号任意长度（个数）
    
27.         ReDim brr(1 To L): ReDim crr(1 To L): m = 0: n = 0
    
28.         For j = 1 To L
    
29.             m = m + 1
    
30.             For k = j + 1 To L
    
31.                 n = n + 1
    
32.                 If crr(k) = 168 Then Exit For
    
33.                 If arr(i, j) + n = arr(i, k) Then
    
34.                     brr(m) = n + 1: crr(k) = 168 '标志不重复访
    
35.                 Else
    
36.                     Exit For
    
37.                 End If
    
38.             Next: n = 0
    
39.         Next
    
40.         For j = 1 To L
    
41.         If brr(j) <> 0 Then
    
42.             If arr(i, 9) <> "" Then
    
43.                 arr(i, 9) = arr(i, 9) & " + " & brr(j)
    
44.             Else
    
45.                 arr(i, 9) = brr(j)
    
46.             End If
    
47.         End If
    
48.         Next
    
49.     Next
    

复制代码