老猴头双色球跟随表格的灵活运用

30楼

行走美色的豹哥 | 发表于2019-01-02 23:06:01

惊雷好帖，响彻论坛！

31楼

bdggch | 发表于2019-01-12 22:27:13

工具新用。

32楼

赌神传说 | 发表于2019-03-26 13:34:14

老掉牙东西，以我目前研究的技术层面来说他的东西都是一文不值的基本的锁号功能都不具备，就靠瞎猜。隔期，隔几期啊，隔10年保中的号要不要

33楼

赌神传说 | 发表于2019-03-26 15:28:56

这货就是做了一个动态表糊弄外行的而已，换几个马甲都一样，有没他这套程序都是一样的，根本不影响主任开奖，连最基本数据查询都不会还有资格做表。弄个表头到处恶心人。还有老猴头就是一个老中医退役的，闲着没事在家瞎做表。要技术没技术，要含量没含量的根本不能看。

34楼

lcpc_Lm38iUbc | 发表于2020-04-29 23:39:36

这个纯属撤蛋！！！

35楼

新手老算 | 发表于2023-02-02 23:57:34

文件还有吗，可以发一下吗

36楼

duy3 | 发表于2023-02-03 18:15:19

37楼

duy3 | 发表于2023-02-03 18:18:16

code:

Public Sub 开奖后统计跟随_杨() 
    last = Sheet16.Range("A" & Rows.Count).End(xlUp).Row
    Dim ar(1089, 33) As Integer
    Erase ar
    For i = 5 To last - 612
        For i1 = 0 To 5: j1 = Sheet16.Cells(i - 2, 10 + i1)
        For i2 = 0 To 0: j2 = Sheet16.Cells(i - 1, 10 + i1)
        For i3 = 0 To 5: j3 = Sheet16.Cells(i - 0, 10 + i3)
            xx = j1 * 33 + j2 - 34
            Yy = j3 - 1
            ar(xx, Yy) = ar(xx, Yy) + 1
        Next: Next: Next
    Next
    For i = 0 To 1088
        For j = 0 To 32
            Sheet16.Cells(3 + i, 31 + j) = ar(1088 - i, 32 - j)
        Next
    Next
End Sub

38楼

大唐天壶 | 发表于2023-02-18 17:16:44

原来是统计，而非：预测！明白了。。

39楼

lcpc_JuPT4USc | 发表于2023-03-03 16:10:27

有毛线用

共40条2页 30条/页首页上一页第2页下一页尾页

参与原帖交流，请访问:

http://bbs.17500.cn/thread-6349775-1-1.html