| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3204 人关注过本帖
标题:我用vfp做了一个简单的双色球彩票软件,谁有兴趣,可以继续合作开发研究.
只看楼主 加入收藏
hepu
Rank: 2
等 级:论坛游民
帖 子:62
专家分:27
注 册:2011-12-16
收藏
得分:0 
**下面是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"

**在工作台中运行的结果
图片附件: 游客没有浏览图片的权限,请 登录注册

图片附件: 游客没有浏览图片的权限,请 登录注册

2013-02-26 10:54
lvdongbin
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2015-5-18
收藏
得分:0 
本人爱好3d  但对编程不太懂,希望可以交流
2015-05-18 22:04
快速回复:我用vfp做了一个简单的双色球彩票软件,谁有兴趣,可以继续合作开发研究 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017451 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved