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

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

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


    排列5 后二位在排列3出球遗漏

    分享
    avatar
    一品明灯
    Admin

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

    普通 排列5 后二位在排列3出球遗漏

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

    排列5 后二位在排列3出球遗漏
    ' chinamen668 by20061123
    '只统计有在后2位开的号码遗漏,直到该号码出在排列3中遗漏值为0
    '该遗漏为0后没再出在排列5后2位,那么遗漏值一直为0,直到再出重新分析
    '后2位都出在下期就用2表示,出一个就用1表示
    '==========================================================
    Function Main
    '===============申明或定义变量=============
    CpRowCount = CpData.RowCount '开奖期数
    CpColCount = CpData.ColCount '开奖号码个数
    CpMaxCode = CpData.MaxCode '最大号码
    CpMinCode = CpData.MinCode '最小号码
    CpCodeCount = CpData.CodeCount '号码数量
    '=================建表=================
    CpAna.AddField "期号", 8
    For i = 1 to CpColCount
    CpAna.AddField "基"&i,4
    Next
    CpAna.AddField "4中下基",8
    CpAna.AddField "5中下基",8
    CpAna.AddField "45都出在下",10
    For i = CpMinCode to CpMaxCode
    CpAna.AddField i,3
    Next
    CpAna.RowCount = CpRowCount
    CpAna.CreateTable()
    '==============算法主体============================
    Redim code( CpCodeCount)
    Redim codes( CpColCount)
    Redim YL( CpCodeCount)
    For row = 0 to CpRowCount - 1
    CpAna.Cell(row,0) = CpData.Seq(row)
    For col = 0 to CpColCount - 1
    CpAna.Cell(row,col+1) = CpData.Code(row,col)
    Next
    For i = CpMinCode to CpMaxCode
    if code(i)=1 then YL(I)=YL(I)+1
    CpAna.Cell(row,9+i) = YL(i)
    Next
    t=0
    For col = 3 to CpColCount - 1
    codes(col)=CpData.Code(row,col)
    CpAna.bkColor(row,9+codes(col)) =CpColor.IndexOf(col-3)
    z=""
    code(codes(col))=1
    For col3 = 0 to 2
    if row=CpRowCount - 1 then exit for
    if CpData.Code(row+1,col3)=codes(col) then
    CpAna.Color(row+1,col3+1) =CpColor.IndexOf(col-3)
    if z="" then t=t+1
    z=z&col3+1&"-"
    end if
    Next
    CpAna.Cell(row,col+3) =z
    For col3 = 0 to 2
    if row YL(CpData.Code(row+1,col3))=0
    code(CpData.Code(row+1,col3))=0
    end if
    Next
    Next
    if t>0 then CpAna.Cell(row,col+3) =t
    Next
    End Function


    _________________
    一流的条件 精彩的论坛

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