**下面是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"

**在工作台中运行的结果

本人爱好3d  但对编程不太懂,希望可以交流