用vfp如何获取双色球彩票数据

这个问题很有趣。你是否要做一个模拟双色球摇奖的程序？我可以做哦

clea

public myjh

=messagebox("摇号开始",0+48+0)

yjh=1

myjh=''

for i=1 to 6

do while .t.

yjh=int(rand()*100)

if yjh<10

syjh='0'+str(yjh,1)

else

syjh=str(yjh,2)

endif

if yjh>33 or yjh=0 or at(syjh,myjh)<>0

loop

else

exit

endif

enddo

if yjh<10

syjh='0'+str(yjh,1)

else

syjh=str(yjh,2)

endif

myjh=myjh+syjh+spac(2)

endfor

do whil .t.

yjh=int(rand()*100)

if yjh>16 or yjh=0

loop

else

exit

endif

enddo

if yjh<10

syjh='0'+str(yjh,1)

else

syjh=str(yjh,2)

endif

myjh=myjh+"+"+syjh

=messagebox("摇号结果如下:"+chr(13)++myjh,0+48+0)

这个程序很简易，可以摇出一组号码，还可以完善一下，比如，输入几组幸运数字，或者排除最近n期的数字，等等。有兴趣的可以探讨。