期差分析.txt

来自「用于分析彩票排列3的一组源码。共5个」· 文本 代码 · 共 49 行

'==========================================================
'                        期差分析
'==========================================================

Function Main
  '===============申明或定义变量=============
  CpRowCount = CpData.RowCount
  CpColCount = CpData.ColCount
  CpMaxCode = CpData.MaxCode
  CpMinCode = CpData.MinCode
  CpCodeCount = CpData.CodeCount
  '=================建表=================
  CpAna.AddField "期号", 8
  CpAna.AddField "开奖号码", CpColCount*3 
' CpAna.AddField "期差",8
      
  For i=0 to CpColCount-1
      CpAna.AddField "基" & i+1 & "期差",8
  Next 

  CpAna.AddField "期差和",8

  CpAna.RowCount = CpRowCount
  CpAna.CreateTable()

  '==============算法主体============================  
  ReDim QiCha(CpColCount)  

  For row = 0 to CpRowCount - 1
    CpAna.Cell(row, "期号") = CpData.Seq(row)
    CpAna.Cell(row, "开奖号码") = CpData.CodeStr(row)
  
    '求期差
    If row > 0 Then
       QiChaSum=0
       For col  = 0 to CpColCount - 1
          QiCha(col) = abs(CpData.Code(row,col)-CpData.Code(row-1,col))
          QiChaSum=QiChaSum + QiCha(col)
       Next      

       For col  = 0 to CpColCount - 1
           CpAna.Cell(row,col+2) = QiCha(col)
       Next  
        CpAna.Cell(row,"期差和")=QiChaSum
     End If
   Next

End Function