精 彩 论 坛已经更名为百强频道,迁新地址www.bqpd.cn

亲爱的朋友,首先为给您带来的不便深表歉意,现因发展的需要,精彩论坛迁到新的地址http://www.bqpd.cn,还望您一如既往地支持精彩论坛,谢谢
精 彩 论 坛已经更名为百强频道,迁新地址www.bqpd.cn

论坛因发展的需要现已经迁址www.bqpd.cn,等待您的到来。谢谢


    双色球3差2D过滤

    分享
    avatar
    一品明灯
    Admin

    帖子数 : 292
    积分 : 720
    威望 : 4
    注册日期 : 10-03-02
    年龄 : 8

    普通 双色球3差2D过滤

    帖子 由 一品明灯 于 2010-03-11, 14:42

    双色球3差2D过滤 BY tkltkl7676@163.COM
    '=================================================
    CpFlt.Add "SSQ-3差2D过滤"

    Function Main()
    Pub_CodeCount = CpFlt.CodeCount
    For i = 0 to CpFlt.RowCount-1
    x = 0
    cnt1 = 0
    y = 0
    z = 0
    cnt4 = 0
    x=abs((CpFlt.Code(i,3))-(CpFlt.Code(i,0))) mod 10
    y=abs((CpFlt.Code(i,4))-(CpFlt.Code(i,1))) mod 10
    z=abs((CpFlt.Code(i,5))-(CpFlt.Code(i,2))) mod 10
    cnt4=(x+y+z) mod 100
    For k = 0 to CpFlt.ConditionCount-1
    If CpFlt.Checked(k,"SSQ-3差2D过滤",cnt4) Then
    cnt1 = cnt1+1
    End If
    Next

    If CpFlt.LimitChecked(cnt1) then
    else
    CpFlt.Filter(i)
    End if
    Next

    End Function


    _________________
    一流的条件 精彩的论坛

      目前的日期/时间是2018-04-25, 02:09