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

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

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


    后几位在下期前(扣除后几位)位出球遗漏(改进版本)

    分享
    avatar
    一品明灯
    Admin

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

    普通 后几位在下期前(扣除后几位)位出球遗漏(改进版本)

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

    后几位在下期前(扣除后几位)位出球遗漏(改进版本)
    ' chinamen668 by20061123
    '只统计有在后2位开的号码遗漏,直到该号码出在排列3中遗漏值为0
    '该遗漏为0后没再出在排列5后2位,那么遗漏值一直为0,直到再出重新分析
    '后2位都出在下期就用2表示,出一个就用1表示
    '改进版本:
    '改为可以选择后几位号码在前(扣除后几位)位出球遗漏,适合乐透*
    '下中遗漏 指的是下期开奖号码在遗漏大于列表中的数
    '末码中 是最后一个开奖号码在遗漏大于列表中出球遗漏情况
    '==========================================================
    CpParam.Add "后",1,"{1}{2}{3}{4}{5}{6}{7}{8}"
    CpParam.Add "遗漏大于",0'
    Function Main
    '===============申明或定义变量=============
    CpRowCount = CpData.RowCount '开奖期数
    CpColCount = CpData.ColCount '开奖号码个数
    CpMaxCode = CpData.MaxCode '最大号码
    CpMinCode = CpData.MinCode '最小号码
    CpCodeCount = CpData.CodeCount '号码数量
    ub_H= Cint(CpParam.Value("后"))
    ub_YL=Cint(CpParam.Value("遗漏大于"))
    if Pub_H> CpColCount then Pub_H= CpColCount
    '=================建表=================
    CpAna.AddField "期号", 8
    For i = 1 to CpColCount
    CpAna.AddField "基"&i,4
    Next
    For i = CpColCount-Pub_H+1 to CpColCount
    CpAna.AddField "基"&i&"再基",6
    Next
    CpAna.AddField "后"&ub_H&"位再出",10
    CpAna.AddField "遗漏大于"&ub_YL,CpCodeCount*2
    CpAna.AddField "遗漏数",4
    CpAna.AddField "下中遗漏",6
    CpAna.AddField "末码中",6
    For i = CpMinCode to CpMaxCode
    CpAna.AddField i,3
    Next
    CpAna.RowCount = CpRowCount
    CpAna.CreateTable()
    '==============算法主体============================
    Redim code( CpCodeCount)
    Redim YL( CpCodeCount)
    For i = CpMinCode to CpMaxCode
    YL(I)=0
    Next
    For row = 0 to CpRowCount - 1
    CpAna.Cell(row,0) = CpData.Seq(row)
    hmlb=""
    xt=0
    ys=1
    xz=0
    YLGS=0
    For i = CpMinCode to CpMaxCode
    if code(i)=1 then YL(I)=YL(I)+1
    CpAna.Cell(row,i&"") = YL(i)
    if YL(i)> Pub_YL then hmlb=hmlb&i&" ":YLGS=YLGS+1
    Next
    For col = 0 to CpColCount - 1
    CpAna.Cell(row,col+1) = CpData.Code(row,col)
    if row if yl(CpData.Code(row+1,col))> Pub_YL then xz=xz+1:CpAna.Color(row+1,col+1) =CpColor.IndexOf(0)
    end if
    Next
    For col =CpColCount -Pub_H to CpColCount - 1
    codes=CpData.Code(row,col)
    if YL(codes)> Pub_YL and col=CpColCount - 1 then
    tz=0
    elseif col=CpColCount - 1 then
    tz=tz+1
    end if
    CpAna.bkColor(row,codes&"") =CpColor.IndexOf(ys)
    z=""
    code(codes)=1
    For col3 = 0 to CpColCount -Pub_H-1
    if row hm=CpData.Code(row+1,col3)
    if hm=codes then
    CpAna.BKColor(row+1,col3+1) =CpColor.IndexOf(ys)
    z=z&col3+1&" "
    end if
    YL(hm)=0
    code(hm)=2
    end if
    Next
    if z<>"" then xt=xt+1
    CpAna.Cell(row,col+Pub_H+1 ) =z
    ys=ys+1
    Next
    if xt>0 then CpAna.Cell(row,cint(CpColCount+Pub_H+1)) =xt
    CpAna.Cell(row,cint(CpColCount+Pub_H+2)) =hmlb
    CpAna.Cell(row,cint(CpColCount+Pub_H+3)) = ylgs
    CpAna.Cell(row,cint(CpColCount+Pub_H+4)) = xz
    CpAna.Cell(row,cint(CpColCount+Pub_H+5)) = tz
    Next
    End Function


    _________________
    一流的条件 精彩的论坛

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