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

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

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


    同位置基号的和值-4期,9期,10期,29期,30期

    分享
    avatar
    一品明灯
    Admin

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

    普通 同位置基号的和值-4期,9期,10期,29期,30期

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

    ==========================================================
    ' 同位置基号的和值-4期,9期,10期,29期,30期

    ' by-chinamen668
    '==========================================================
    CpParam.Add "","不排序","{排序}{不排末尾号}{不排序}"'
    Function Main
    '===============申明或定义变量=============
    CpRowCount = CpData.RowCount '开奖期数
    CpColCount = CpData.ColCount '开奖号码个数
    CpMaxCode = CpData.MaxCode '最大号码
    CpMinCode = CpData.MinCode '最小号码
    CpCodeCount = CpData.CodeCount '号码数量
    '先定义是否按大小来排序基号
    ub_*** = CpParam.Value("")
    Redim Hm(CpRowCount,CpCodeCount)
    Redim TeHm(CpRowCount)
    if Pub_***="不排末尾号" then Bhmwh=1ub_***="排序"
    For row = 0 to CpRowCount - 1
    For Col=0 to CpColCount-1
    Hm(row,Col)=CpData.Code(Row,Col)
    TeHm(row)=Hm(row,Col)
    Next
    If Pub_***="排序" then '大小排序号码
    For i=0 to CpColCount-2
    For j=i+1 to CpColCount-1-Bhmwh
    if Hm(row,i)>Hm(row,j) then
    k=Hm(row,i)
    Hm(row,i)=Hm(row,j)
    HM(row,j)=k
    end if
    Next
    Next

    End If
    Next
    '=================建表=================
    CpAna.AddField "期号", 8
    For i = 1 to CpColCount
    CpAna.AddField "基"&i,3
    Next
    CpAna.AddField "合值",4
    For s = 1 to CpColCount
    CpAna.AddField s&"基-4期",7
    CpAna.AddField s&"基-9期",7
    CpAna.AddField s&"基-10期",7
    CpAna.AddField s&"基-29期",7
    CpAna.AddField s&"基-30期",7
    next
    hangshu=CpRowCount-30
    '为避免开奖期数少于30期出错
    if hangshu<0 then hangshu=0
    CpAna.RowCount = hangshu
    CpAna.CreateTable()
    '==============算法主体============================

    For row = 30 to CpRowCount - 1
    row0=row - 30
    hz=0
    CpAna.Cell(row0,0) = CpData.Seq(row)
    For col = 0 to CpColCount - 1
    hz = hz + HM(row,col)
    CpAna.Cell(row0,col+1) = HM(row,col)
    a4=0
    a9=0
    a10=0
    a29=0
    a30=0
    for i=0 to 29
    'if row-i<0 then exit for
    if i<4 then a4=HM(row-i,col)+a4
    if i<9 then a9=HM(row-i,col)+a9
    if i<10 then a10=HM(row-i,col)+a10
    if i<29 then a29=HM(row-i,col)+a29
    a30=HM(row-i,col)+a30
    next
    CpAna.Cell(row0,col+1&"基-4期") = a4
    CpAna.Cell(row0,col+1&"基-9期") = a9
    CpAna.Cell(row0,col+1&"基-10期") = a10
    CpAna.Cell(row0,col+1&"基-29期") = a29
    CpAna.Cell(row0,col+1&"基-30期") = a30
    Next
    CpAna.Cell(row0,"合值")=hz
    CpAna.Color(row0,"合值")=CpColor.red
    Next
    End Function




    [本帖已被作者于2010年2月18日19时20分32秒编辑过]


    _________________
    一流的条件 精彩的论坛

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