个人致力于彩票的研究，方法已经成熟，只是无法程序实现，手工又太麻烦，



'==========================================================
'             质  数  分  析
'==========================================================


Function Main
  '===============申明或定义变量=============
  CpRowCount = CpData.RowCount
  CpColCount = CpData.ColCount
  CpMaxCode = CpData.MaxCode
  CpMinCode = CpData.MinCode

  '=================建表=================
  CpAna.AddField "期号",8
  CpAna.AddField "开奖号码",CpColCount*3

  CpAna.AddField "质数个数",8
  CpAna.AddField "质数列表",20
  For i=1 to CpColCount
      CpAna.AddField "基" & i,4
  Next
  CpAna.AddField "质合形态",CpColCount+2

  CpAna.RowCount = CpRowCount
  CpAna.CreateTable()


  '==============算法主体============================
  For row = 0 to CpRowCount - 1
    ZSGS = 0    '质数个数
    ZSLB = ""   '质数列表 
    ZHXT = ""  

    For col = 0 to CpColCount - 1
      OpenNum = CpData.Code(row, col)
      If IsZS(OpenNum) then
        ZSGS = ZSGS + 1
        ZSLB = ZSLB & OpenNum & " "

        ZHXT = ZHXT & 1
        CpAna.Cell(row, "基" & col+1) =  1
      Else
        ZHXT = ZHXT & 0
        CpAna.Cell(row, "基" & col+1) =  0
      End If
    Next

    CpAna.Cell(row, "期号") = CpData.Seq(row)
    CpAna.Cell(row, "开奖号码") = CpData.CodeStr(row)

    CpAna.Cell(row, "质合形态") =  ZHXT
    CpAna.Cell(row, "质数个数") =  ZSGS
    CpAna.Cell(row, "质数列表") =  ZSLB
  Next
End Function

'==============辅助函数============================
'一些质数
ZS = Array(2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71)
'是否为质数
Function IsZS(Num)
  b = False
  For i = 0 to 19
    If ZS(i) = Num Then
      b = True
      Exit For
    End If
  Next
  IsZS = b
End Function


以上这段程序是一个彩票软件里面的，因为我不是搞程序的，虽然能看懂，但不明白
他首先建了表，然后算法主体里面是对表格进行操作，不明白的是他操作的表格不是数据库语言，想知道这是怎么回事？为什么可以每行都可以操作？后缀名是CODE，SEQ，CELL等等，不知道这是什么东西的属性？很想得到懂的朋友指点一二，急！
另外不知道有没有程序方面的人愿意合作，一起发彩票的财
联系邮箱zgcp11@163.com
QQ  88193151