文件名称:VB6.0实现彩票36选7选号程序.rar
文件大小:127KB
文件格式:RAR
更新时间:2022-07-30 05:16:31
VB源码-算法相关
VB6.0实现彩票36选7选号程序,功能:生成14个过滤条件值保存DB,查询指定期的前X期开出的个数,七期随机选号法,统计每个号码出球规律,"随机选下注数据,从选定号码中遍历组合,在选中号码列表中继续筛选等。 程序主窗口中的TAB标签选项卡实属不错,你可把它用在你的应用程序中。 注:统一起见,下标全部从1用起,0下标不用命名中的Sum这里统一为 个数 的意思,Total一般的数值变量,尽量统一使用Long型,因为Long型的取值范围大,而且速度快一些,只是内存多一点。 1000个数 Quick最快,循环只有500多次 Bucket第二,循环只有999次 过滤操作具体执行过程 一个条件一个条件的全部过滤所有 一次一注号码轮流进行一个条件一个条件的过滤,一次一个条件过滤全部,保留下来的进行下一轮过滤,那容错就几乎无法实现了,如果要实现容错机制的话,应该是一注号码要通过全部过滤条件,然后可利用容错,符合条件和容错就保留下来,鉴于保存所有号码的数组是二维的,那么就直接对保存的二维数组进行各个条件过滤,不可能每次用一个一维数组保存,再用这个一维来过滤。用一个一维数组来记录容错情况,也就是符合多少个条件,比如14个条件,设定了容错率为6,那么只要有8个或以上过滤条件符合,就保留下来。放到一个新的二维数组中奇号个数,0-7 参数:二维数组(),存放一注号码,7个 返回值:奇号的个数,一个Variant数组,里面分别是每注的奇数的个数 UBound(Num, 1) 第一维是注数
【文件预览】:
codesc.net
----新林体彩36选7选号专家1()
--------Sort.bas(15KB)
--------Other()
--------ListBoxPro.ctl(11KB)
--------新林体彩36选7选号专家V1.vbp(2KB)
--------General.bas(18KB)
--------Matrixes.txt(104KB)
--------Lottery36Sel7.mdb(260KB)
--------frmChart.frm(24KB)
--------Filter.bas(12KB)
--------API.bas(220B)
--------Form1.frm(155KB)
--------Form3.frm(7KB)
--------Form1.frx(414B)
--------lottery.txt(11KB)
--------cIni.cls(3KB)
--------frmChart.frx(190B)
--------frmUpdate2.frm(7KB)
--------MSSCCPRJ.SCC(208B)
--------matrixes.dbf(334KB)
--------Chart.bas(196B)
--------新林体彩36选7选号专家V1.vbw(518B)
--------frmMatrix.frm(30KB)
--------frmUpdate.frm(10KB)
--------AdvanceFilter.bas(9KB)