号码遗漏.txt

用于分析彩票排列3的一组源码。共5个

'==========================================================
'             号  码  遗  漏
'==========================================================

Function Main
  '===============申明或定义变量=============
  CpRowCount = CpData.RowCount  '开奖期数
  CpColCount = CpData.ColCount   '开奖号码个数
  CpMaxCode = CpData.MaxCode    '最大号码
  CpMinCode = CpData.MinCode      '最小号码
  CpCodeCount = CpData.CodeCount '号码数量
  '=================建表=================
  CpAna.AddField "号码",6
  CpAna.AddField "当前遗漏",10
  CpAna.AddField "平均遗漏",10
  CpAna.AddField "当前/平均",10

  CpAna.RowCount = CpCodeCount
  CpAna.CreateTable()

  '==============算法主体============================
  ReDim YLSum(CpCodeCount)'遗漏和值
  ReDim OpnCount(CpCodeCount)'号码开奖次数
  ReDim YL(CpCodeCount)'遗漏值
  set CpSec = CreateObject("BoaoHbsActive.CpSec")

  For i = 0 to CpCodeCount-1
    YL(i) = 0
    YLSum(i) = 0
    OpnCount(i) = 0
  Next
  For row = 0 to CpRowCount - 1    
    '叠码数每过一期自动加1
    For NumIndex = 0 to CpCodeCount - 1
      YL(NumIndex) = YL(NumIndex) + 1
    Next

    '如果本期开奖就清0
    For col = 0 to CpColCount - 1    
      Index = CpData.Code(row, col)-CpMinCode
      YLSum(Index) = YLSum(Index) + YL(Index) - 1
      YL(Index) = 0
      OpnCount(Index) = OpnCount(Index) + 1
    Next
  Next

  For i = 0 to CpCodeCount-1
    CpAna.Cell(i, "号码") = i+CpMinCode
    CpAna.Cell(i, "当前遗漏") = YL(i)
    
    If (OpnCount(i) > 0) Then
      CpAna.Cell(i, "平均遗漏") = Round(YLSum(i) / OpnCount(i), 2)
      CpAna.Cell(i, "当前/平均") = Round(YL(i)/ Round(YLSum(i) / OpnCount(i), 2), 2)
    End If
  Next
End Function




'==========================================================
'             号  码  遗  漏
'==========================================================

Function Main
  '===============申明或定义变量=============
  CpRowCount = CpData.RowCount  '开奖期数
  CpColCount = CpData.ColCount   '开奖号码个数
  CpMaxCode = CpData.MaxCode    '最大号码
  CpMinCode = CpData.MinCode      '最小号码
  CpCodeCount = CpData.CodeCount '号码数量
  '=================建表=================
  CpAna.AddField "号码",6
  CpAna.AddField "当前遗漏",10
  CpAna.AddField "平均遗漏",10
  CpAna.AddField "当前/平均",10

  CpAna.RowCount = CpCodeCount
  CpAna.CreateTable()

  '==============算法主体============================
  ReDim YLSum(CpCodeCount)'遗漏和值
  ReDim OpnCount(CpCodeCount)'号码开奖次数
  ReDim YL(CpCodeCount)'遗漏值
  set CpSec = CreateObject("BoaoHbsActive.CpSec")

  For i = 0 to CpCodeCount-1
    YL(i) = 0
    YLSum(i) = 0
    OpnCount(i) = 0
  Next
  For row = 0 to CpRowCount - 1    
    '叠码数每过一期自动加1
    For NumIndex = 0 to CpCodeCount - 1
      YL(NumIndex) = YL(NumIndex) + 1
    Next

    '如果本期开奖就清0
    For col = 0 to CpColCount - 1    
      Index = CpData.Code(row, col)-CpMinCode
      YLSum(Index) = YLSum(Index) + YL(Index) - 1
      YL(Index) = 0
      OpnCount(Index) = OpnCount(Index) + 1
    Next
  Next

  For i = 0 to CpCodeCount-1
    CpAna.Cell(i, "号码") = i+CpMinCode
    CpAna.Cell(i, "当前遗漏") = YL(i)
    
    If (OpnCount(i) > 0) Then
      CpAna.Cell(i, "平均遗漏") = Round(YLSum(i) / OpnCount(i), 2)
      CpAna.Cell(i, "当前/平均") = Round(YL(i)/ Round(YLSum(i) / OpnCount(i), 2), 2)
    End If
  Next
End Function