**下面是vfp程序插件
**彩票基本分析
*c=SECONDS()
SELECT 0
sjkm="LS"+allt(STR(RAND()*1000000))
USE cpk5
COPY TO &sjkm
USE
sql1="期号"
FOR i=1 TO gn前区位长
sql1=sql1+", W"+ALLT(STR(i))+" 前"+ALLT(STR(i))
NEXT i
FOR i=1 TO gn后区位长
sql1=sql1+", W"+ALLT(STR(gn前区位长+i))+" 后"+ALLT(STR(i))
NEXT i
sql1=sql1+",w1"
FOR i=2 TO gn前区位长
sql1=sql1+"+W"+ALLT(STR(i))
NEXT i
sql1=sql1+" 和值"
sql1=sql1+",MOD(w1"
FOR i=2 TO gn前区位长
sql1=sql1+"+W"+ALLT(STR(i))
NEXT i
sql1=sql1+",10) 和尾"
sql1=sql1+",w1"
FOR i=2 TO gn前区位长+gn后区位长
sql1=sql1+"+W"+ALLT(STR(i))
NEXT i
sql1=sql1+" 全和"
sql1=sql1+",MOD(w1,10)"
FOR i=2 TO gn前区位长+gn后区位长
sql1=sql1+"+MOD(W"+ALLT(STR(i))+",10)"
NEXT i
sql1=sql1+" 尾和"
sql1=sql1+",zhishu(w1)"
FOR i=2 TO gn前区位长
sql1=sql1+"+zhishu(W"+ALLT(STR(i))+")"
NEXT i
sql1=sql1+" 质数"
sql1=sql1+",mod(w1,2)"
FOR i=2 TO gn前区位长
sql1=sql1+"+mod(W"+ALLT(STR(i))+",2)"
NEXT i
sql1=sql1+" 奇数"
sql1=sql1+",gn前区位长-(mod(w1,2)"
FOR i=2 TO gn前区位长
sql1=sql1+"+mod(W"+ALLT(STR(i))+",2)"
NEXT i
sql1=sql1+") 偶数"
sql1=sql1+",w"+ALLT(STR(gn前区位长))+"-w1 跨度"
sql1=sql1+",ac8(w1,w2,w3,w4,w5,w6,w7,w8,"+ALLT(STR(gn前区位长))+") AC值"
LOCAL dh1
dh1=INT(gn前区最大数/2)
sql1=sql1+",iif(w1>dh1,1,0)"
FOR i=2 TO gn前区位长
sql1=sql1+"+iif(W"+ALLT(STR(i))+">dh1,1,0)"
NEXT i
sql1=sql1+" 大号数"
SELECT &sql1 FROM (sjkm) INTO table lsjbfx
IF USED("lsjbfx")
SELECT lsjbfx
USE
ENDIF
IF USED("cpk5")
SELECT cpk5
USE
ENDIF
ALTER TABLE lsjbfx alter 和值 N(4,0)
ALTER TABLE lsjbfx alter 和尾 N(4,0)
ALTER TABLE lsjbfx alter 全和 N(4,0)
ALTER TABLE lsjbfx alter 尾和 N(4,0)
ALTER TABLE lsjbfx alter 质数 N(4,0)
ALTER TABLE lsjbfx alter 奇数 N(4,0)
ALTER TABLE lsjbfx alter 偶数 N(4,0)
ALTER TABLE lsjbfx alter 跨度 N(4,0)
ALTER TABLE lsjbfx alter AC值 N(4,0)
ALTER TABLE lsjbfx alter 大号数 N(4,0)
USE
IF USED("lsjbfx")
SELECT lsjbfx
USE
ENDIF
DO ckyhb WITH "lsjbfx"
**在工作台中运行的结果
**彩票基本分析
*c=SECONDS()
SELECT 0
sjkm="LS"+allt(STR(RAND()*1000000))
USE cpk5
COPY TO &sjkm
USE
sql1="期号"
FOR i=1 TO gn前区位长
sql1=sql1+", W"+ALLT(STR(i))+" 前"+ALLT(STR(i))
NEXT i
FOR i=1 TO gn后区位长
sql1=sql1+", W"+ALLT(STR(gn前区位长+i))+" 后"+ALLT(STR(i))
NEXT i
sql1=sql1+",w1"
FOR i=2 TO gn前区位长
sql1=sql1+"+W"+ALLT(STR(i))
NEXT i
sql1=sql1+" 和值"
sql1=sql1+",MOD(w1"
FOR i=2 TO gn前区位长
sql1=sql1+"+W"+ALLT(STR(i))
NEXT i
sql1=sql1+",10) 和尾"
sql1=sql1+",w1"
FOR i=2 TO gn前区位长+gn后区位长
sql1=sql1+"+W"+ALLT(STR(i))
NEXT i
sql1=sql1+" 全和"
sql1=sql1+",MOD(w1,10)"
FOR i=2 TO gn前区位长+gn后区位长
sql1=sql1+"+MOD(W"+ALLT(STR(i))+",10)"
NEXT i
sql1=sql1+" 尾和"
sql1=sql1+",zhishu(w1)"
FOR i=2 TO gn前区位长
sql1=sql1+"+zhishu(W"+ALLT(STR(i))+")"
NEXT i
sql1=sql1+" 质数"
sql1=sql1+",mod(w1,2)"
FOR i=2 TO gn前区位长
sql1=sql1+"+mod(W"+ALLT(STR(i))+",2)"
NEXT i
sql1=sql1+" 奇数"
sql1=sql1+",gn前区位长-(mod(w1,2)"
FOR i=2 TO gn前区位长
sql1=sql1+"+mod(W"+ALLT(STR(i))+",2)"
NEXT i
sql1=sql1+") 偶数"
sql1=sql1+",w"+ALLT(STR(gn前区位长))+"-w1 跨度"
sql1=sql1+",ac8(w1,w2,w3,w4,w5,w6,w7,w8,"+ALLT(STR(gn前区位长))+") AC值"
LOCAL dh1
dh1=INT(gn前区最大数/2)
sql1=sql1+",iif(w1>dh1,1,0)"
FOR i=2 TO gn前区位长
sql1=sql1+"+iif(W"+ALLT(STR(i))+">dh1,1,0)"
NEXT i
sql1=sql1+" 大号数"
SELECT &sql1 FROM (sjkm) INTO table lsjbfx
IF USED("lsjbfx")
SELECT lsjbfx
USE
ENDIF
IF USED("cpk5")
SELECT cpk5
USE
ENDIF
ALTER TABLE lsjbfx alter 和值 N(4,0)
ALTER TABLE lsjbfx alter 和尾 N(4,0)
ALTER TABLE lsjbfx alter 全和 N(4,0)
ALTER TABLE lsjbfx alter 尾和 N(4,0)
ALTER TABLE lsjbfx alter 质数 N(4,0)
ALTER TABLE lsjbfx alter 奇数 N(4,0)
ALTER TABLE lsjbfx alter 偶数 N(4,0)
ALTER TABLE lsjbfx alter 跨度 N(4,0)
ALTER TABLE lsjbfx alter AC值 N(4,0)
ALTER TABLE lsjbfx alter 大号数 N(4,0)
USE
IF USED("lsjbfx")
SELECT lsjbfx
USE
ENDIF
DO ckyhb WITH "lsjbfx"
**在工作台中运行的结果