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

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

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


    除234余数分析

    分享
    avatar
    一品明灯
    Admin

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

    普通 除234余数分析

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

    除234余数分析 tkltkl7676@163.com
    '==========================================================

    CpParam.Add "除数", 6,6

    Function Main
    '===============申明或定义变量=============
    CpRowCount = CpData.RowCount '开奖期数
    CpColCount = CpData.ColCount '开奖号码个数
    CpMaxCode = CpData.MaxCode '最大号码
    CpMinCode = CpData.MinCode '最小号码
    CpCodeCount = CpData.CodeCount '号码数量


    Pub_CS = CInt(CpParam.Value("除数"))

    '=================建表=================
    CpAna.AddField "期号",8
    CpAna.AddField "开奖号码",CpColCount*3


    For i = 1 to CpColCount
    CpAna.AddField "基"&i&"除2Y", 6
    CpAna.AddField "基"&i&"除3Y", 6
    CpAna.AddField "基"&i&"除4Y", 6
    CpAna.AddField "基"&i&"并数", 7
    Next

    CpAna.RowCount = CpData.RowCount
    CpAna.CreateTable()


    '==============算法主体============================
    ReDim YS(Pub_CS)'余数

    For row = 0 to CpRowCount - 1
    For i = 0 to Pub_CS-1
    YS(i) = 0

    Next
    CpAna.Cell( row, "期号") = CpData.Seq(row)
    CpAna.Cell( row, "开奖号码") = CpData.CodeStr(row)

    '-----------除法位分析----------

    For col = 0 to CpColCount -1
    m = CpData.Code(row,col) mod 2
    YS(m) = YS(m) + 1
    CpAna.Cell( row, "基"&(col+1)&"除2Y") = m
    CpAna.Color( row, "基"&(col+1)&"除2Y") = CpColor.blue

    n = CpData.Code(row,col) mod 3
    YS(n) = YS(n) + 1
    CpAna.Cell( row, "基"&(col+1)&"除3Y") = n


    s = CpData.Code(row,col) mod 4
    YS(s) = YS(s) + 1
    CpAna.Cell( row, "基"&(col+1)&"除4Y") = s


    CpAna.Cell( row, "基"&(col+1)&"并数") =m&n&s&p

    Next

    Next
    End Function


    _________________
    一流的条件 精彩的论坛

      目前的日期/时间是2018-04-25, 01:57