| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 789 人关注过本帖
标题:源程序代码
只看楼主 加入收藏
lvlin666
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2006-11-1
收藏
 问题点数:0 回复次数:9 
源程序代码

各位高手请问一下怎么做一个双色球分析表,可以通过输入一期到另一期来确认某一号出现的次数。
我是刚刚学的不知道怎么做希望高手帮个忙啊,谢谢了

搜索更多相关主题的帖子: 代码 
2006-11-01 15:52
lvlin666
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2006-11-1
收藏
得分:0 

怎么没人帮我啊 ???????????????

2006-11-01 16:21
pogai
Rank: 1
等 级:新手上路
威 望:1
帖 子:90
专家分:0
注 册:2006-3-3
收藏
得分:0 
不是说做就做的,要花一定的时间的。最好自己做,不懂的来这里问,这里的很多高手会帮忙的。
2006-11-01 18:38
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 

先将每期的号码存储在表中,然后用命令统计:
SELECT COUNT(*) AS 次数 FROM 表 WHERE INLIST(期,起始期,终止期) AND INLIST("01",号码1,号码2,号码3,...)


感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-11-01 20:31
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 

CREATE TABLE 双色球号码 (期 C(6),号1 C(2),号2 C(2),号3 C(2),号4 C(2),号5 C(2),号6 C(2),号7 C(2))
*以上建立一个表,并将开奖数据输入。我不知道双色球具体情况,上述表可修改
*然后利用楼上的代码统计号码为"01"的个数,其他类推。


感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-11-01 21:50
啸凡
Rank: 8Rank: 8
等 级:贵宾
威 望:45
帖 子:1356
专家分:885
注 册:2006-2-22
收藏
得分:0 

哈哈,本人刚好做了一个,不过是比较原始的,但也能统计出来。
大体如下:
Set talk off
clear
Sele ball
*****统计红球
Count for r1=1 or r2=1 or r3=1 or r4=1 or r5=1 or r6=1 to red1
Count for r1=2 or r2=2 or r3=2 or r4=2 or r5=2 or r6=2 to red2
Count for r1=3 or r2=3 or r3=3 or r4=3 or r5=3 or r6=3 to red3
Count for r1=4 or r2=4 or r3=4 or r4=4 or r5=4 or r6=4 to red4
Count for r1=5 or r2=5 or r3=5 or r4=5 or r5=5 or r6=5 to red5
Count for r1=6 or r2=6 or r3=6 or r4=6 or r5=6 or r6=6 to red6
Count for r1=7 or r2=7 or r3=7 or r4=7 or r5=7 or r6=7 to red7
Count for r1=8 or r2=8 or r3=8 or r4=8 or r5=8 or r6=8 to red8
Count for r1=9 or r2=9 or r3=9 or r4=9 or r5=9 or r6=9 to red9
Count for r1=10 or r2=10 or r3=10 or r4=10 or r5=10 or r6=10 to red10
Count for r1=11 or r2=11 or r3=11 or r4=11 or r5=11 or r6=11 to red11
Count for r1=12 or r2=12 or r3=12 or r4=12 or r5=12 or r6=12 to red12
Count for r1=13 or r2=13 or r3=13 or r4=13 or r5=13 or r6=13 to red13
Count for r1=14 or r2=14 or r3=14 or r4=14 or r5=14 or r6=14 to red14
Count for r1=15 or r2=15 or r3=15 or r4=15 or r5=15 or r6=15 to red15
Count for r1=16 or r2=16 or r3=16 or r4=16 or r5=16 or r6=16 to red16
Count for r1=17 or r2=17 or r3=17 or r4=17 or r5=17 or r6=17 to red17
Count for r1=18 or r2=18 or r3=18 or r4=18 or r5=18 or r6=18 to red18
Count for r1=19 or r2=19 or r3=19 or r4=19 or r5=19 or r6=19 to red19
Count for r1=20 or r2=20 or r3=20 or r4=20 or r5=20 or r6=20 to red20
Count for r1=21 or r2=21 or r3=21 or r4=21 or r5=21 or r6=21 to red21
Count for r1=22 or r2=22 or r3=22 or r4=22 or r5=22 or r6=22 to red22
Count for r1=23 or r2=23 or r3=23 or r4=23 or r5=23 or r6=23 to red23
Count for r1=24 or r2=24 or r3=24 or r4=24 or r5=24 or r6=24 to red24
Count for r1=25 or r2=25 or r3=25 or r4=25 or r5=25 or r6=25 to red25
Count for r1=26 or r2=26 or r3=26 or r4=26 or r5=26 or r6=26 to red26
Count for r1=27 or r2=27 or r3=27 or r4=27 or r5=27 or r6=27 to red27
Count for r1=28 or r2=28 or r3=28 or r4=28 or r5=28 or r6=28 to red28
Count for r1=29 or r2=29 or r3=29 or r4=29 or r5=29 or r6=29 to red29
Count for r1=30 or r2=30 or r3=30 or r4=30 or r5=30 or r6=30 to red30
Count for r1=31 or r2=31 or r3=31 or r4=31 or r5=31 or r6=31 to red31
Count for r1=32 or r2=32 or r3=32 or r4=32 or r5=32 or r6=32 to red32
Count for r1=33 or r2=33 or r3=33 or r4=33 or r5=33 or r6=33 to red33
****统计蓝球
Count for r7=1 to blue1
Count for r7=2 to blue2
Count for r7=3 to blue3
Count for r7=4 to blue4
Count for r7=5 to blue5
Count for r7=6 to blue6
Count for r7=7 to blue7
Count for r7=8 to blue8
Count for r7=9 to blue9
Count for r7=10 to blue10
Count for r7=11 to blue11
Count for r7=12 to blue12
Count for r7=13 to blue13
Count for r7=14 to blue14
Count for r7=15 to blue15
Count for r7=16 to blue16
T=Reccount()
For I=1 to 16
A=alltrim(str(66+I,2,0))
C=alltrim(str(I,2,0))
D=alltrim(str(82+I,2,0))
ThisForm.Text&A..value=str(blue&C,3,0)
ThisForm.Text&D..value=str((blue&C/T)*100,6,3)-'%'
Endfor
For I=1 to 33
B=alltrim(str(I,2,0))
C=alltrim(str(33+I,2,0))
ThisForm.Text&B..value=str(red&B,3,0)
ThisForm.Text&C..value=str((red&B/(T*6))*100,6,3)-'%'
Endfor

ThisForm.Refresh


两人行已有我师……
2006-11-02 08:08
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
啸凡跑到哪里去了,久不现身

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-11-02 11:19
啸凡
Rank: 8Rank: 8
等 级:贵宾
威 望:45
帖 子:1356
专家分:885
注 册:2006-2-22
收藏
得分:0 
唉,最近忙得真是连上论坛来看看的时间都没有。

两人行已有我师……
2006-11-02 19:51
fown
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:58
帖 子:1229
专家分:171
注 册:2005-5-26
收藏
得分:0 
双色球是啥东西?

有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2006-11-08 19:11
啸凡
Rank: 8Rank: 8
等 级:贵宾
威 望:45
帖 子:1356
专家分:885
注 册:2006-2-22
收藏
得分:0 
双色球呀,是给我们这些穷小子以发财希望的东西,只不过美梦总是枕黄梁。

两人行已有我师……
2006-11-09 08:21
快速回复:源程序代码
数据加载中...
 
   



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

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