clea
public myjh
rand(-1)=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期的數字，等等。有興趣的可以探討。