|
最近体育彩票的销售非常火爆，彩民选号也是五花八门，各显神通。不过，一位朋友对我说，有一次他精心选择了一组号码，结果发现这组号码是以前某期的特等奖中奖号。为了避免发生这样的事，就要与以往的中奖号码一一对照，手工对比会浪费许多时间。下面介绍一个利用 Foxpro 编制的小程序，可以辅助您选号，既能节省时间，又能增加您中奖概率。
建立“已中号码”表
启动 Foxpro，在“d:\”下，新建“Caipiao”文件夹。建立名为“已中号码”表，单击[保存]按钮。按以下所列建立表结构，字段名分别为：一、二、三、四、五、六、七，字段类型为“Numeric”，字段宽度为 2。然后，在表中依次输入以往各期的中奖号码即可。
输入程序
选择菜单“File\New...”，在“New”对话框中，选中[Program]单选按钮，再单击[New file]按钮。在“Program 1”窗口中输入以下程序：
dime b(7)
decl farray(7)
set defa to d:\caipiao
clear
b=0
i=1
＊产生七个随机数
do while i< 8
a=mod(int(100 ＊ RAND( )),37)
k=0
for j=1 to i
if a<>b(j) and a<>0 then
k=k＋1
if k=i then
b(i)=a
i=i＋1
endif
endif
endfor
enddo
＊ 递增排序
i=1
for j=6 to 1 step －1
for i=1 to j
if b(i)>b(i＋1)
temp=b(i)
b(i)=b(i＋1)
b(i＋1)=temp
endif
endfor
endfor
＊与以往中奖号码比较
use 已中号码
w=0
scan
w=w＋1
scatt to farray
k=0
for i=1 to 7
if b(i)=farray(i)
k=k＋1
if k=7
?″此号码在第″,w,″期已中特等奖。″
endif
loop
endif
endfor
endscan
use
＊显示结果
for j=1 to 7
?b(j)
endfor
运 行
可以将文件以“xuanhao”为文件名保存在“d:\caipiao”文件夹中。在 Foxpro 主窗口中单击[Run]按钮，就可以在窗口中看到选号结果。以后，每次需要计算机辅助选号时，只须启动 Foxpro，并且在命令窗口中输入“DO d:\caipiao\xuanhao.prg”，就可以得到选号结果。
补充说明
此程序只能保证所选号码，在以前各期没有中过特等奖。若要增加其他筛选条件，如不要与以往中奖号码有四个以上重号的号码组合，则要修改“与以往中奖号码比较”程序段。在此不再赘述。最后祝大家好运。
| 
