VB6.0实现彩票36选7选号程序

代码说明：

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) 第一维是注数