基号个位大小比较.txt

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

===============================================
'             基号个位大小比较
'===============================================
CpParam.Add "基号", 2'用户设置参数
CpParam.Add "-基号", 1'用户设置参数
Function Main
  '===============申明或定义变量=============
  CpRowCount = CpData.RowCount
  CpColCount = CpData.ColCount
  CpMaxCode = CpData.MaxCode
  CpMinCode = CpData.MinCode

  Pub_JH1 = CInt(CpParam.Value("基号"))
  Pub_JH2 = CInt(CpParam.Value("-基号"))

  '=================建表=================
  CpAna.AddField "期号",8
  CpAna.AddField "开奖号码",CpColCount*3
  CpAna.AddField "基号比较形态",12

  For i=0 to CpColCount - 1
      If i = CpColCount - 1 Then
         CpAna.AddField "基" & i+1 & "-基1",7
      Else
         CpAna.AddField "基" & i+2 & "-基" & i+1,7
      End If
  Next

  CpAna.AddField "2",3
  CpAna.AddField "1",3
  CpAna.AddField "0",3

  CpAna.AddField "选择：基" & Pub_JH1 & "-基" & Pub_JH2,13

  CpAna.RowCount = CpRowCount
  CpAna.CreateTable()
  '==============算法主体============================
  ReDim XTArr(CpColCount - 1)


 
   For row = 0 to CpRowCount - 1
       CpAna.Cell(row, "期号") = CpData.Seq(row)
       CpAna.Cell(row, "开奖号码") = CpData.CodeStr(row)
       JHXT=""

       If (CpData.Code(row,Pub_JH1-1) Mod 10-CpData.Code(row,Pub_JH2-1) Mod 10)>0 Then
          XZXT=2
       Else
          If (CpData.Code(row,Pub_JH1-1) Mod 10-CpData.Code(row,Pub_JH2-1) Mod 10)<0 Then
             XZXT=1
          End If
          If (CpData.Code(row,Pub_JH1-1) Mod 10-CpData.Code(row,Pub_JH2-1) Mod 10)=0 Then
             XZXT=0
          End If
       End If

    For col = 0 to CpColCount - 1
        If col = CpColCount - 1 Then
           If (CpData.Code(row,col) Mod 10 - CpData.Code(row,0) Mod 10) > 0 Then 
              XT = 2
           Else 
              If (CpData.Code(row,col) Mod 10 - CpData.Code(row,0) Mod 10) < 0 Then
                 XT = 1
              End If

              If (CpData.Code(row,col) Mod 10 - CpData.Code(row,0) Mod 10) = 0 Then
                 XT=0
              End If
           End If
        Else
           If (CpData.Code(row,col+1) Mod 10 - CpData.Code(row,col) Mod 10) > 0 Then 
              XT = 2
           Else 
              If (CpData.Code(row,col+1) Mod 10 - CpData.Code(row,col) Mod 10) < 0 Then
                 XT = 1
              End If
           End If
              If (CpData.Code(row,col+1) Mod 10 - CpData.Code(row,col) Mod 10) = 0 Then
                 XT=0
              End If
        End If

        XTArr(col)=XT
        JHXT=JHXT & XT
    Next

    CpAna.Cell(row, "基号比较形态") = JHXT

    GS0=0
    GS1=0
    GS2=0

    For i=0 to CpColCount - 1
        CpAna.Cell(row, i+3) = XTArr(i)

        If XTArr(i)=0 Then
           GS0=GS0+1
        Else
           If XTArr(i)=1 Then
              GS1=GS1+1
           End If
           If XTArr(i)=2 Then
              GS2=GS2+1
           End If
        End If
    Next

    CpAna.Cell(row, "2") = GS2
    CpAna.Cell(row, "1") = GS1
    CpAna.Cell(row, "0") = GS0

    CpAna.Cell(row, 6+CpColCount) = XZXT

  Next
End Function