先完成一个双色球机选程序（模拟小彩民的发财人生。。。。）

<%

'
'菩萨保佑 我咸鱼咸鱼 翻身！
'
total=0          '总计花多少钱 买彩票
huaxiaonum=0     '花销初始化
touzhunumber=10  '彩票投注数

for kk=1 to touzhunumber  
response.write "<br/>"& kk &"."   
total=total+yaojiang  '生成双色球 随机数
response.write "<hr>"& total &"<hr>"
huaxiaonum=kk
next

response.write "====================================<br>"
response.write "合计:共中奖" &  total &"元/花销(" & huaxiaonum*2 &"元)"

function  yaojiang
yaojiang=0
dim xuanhao(6)
'02 09 12 16 25 27   06
'06 12 15 18 29 32 + 10
 redboll ="01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33"
'blueboll="01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16"
'redboll ="01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33"
'redboll ="01,03,04,05,07,08,10,11,13,14,17,19,20,21,22,23,24,26,28,30,31,33"
'压偶数 压大 压小 （要坚持跟一个数 就有可能中将）
'blueboll="01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01"
'blueboll="02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02"
'blueboll="03,03,03,03,03,03,03,03,03,03,03,03,03,03,03,03"
'blueboll="04,04,04,04,04,04,04,04,04,04,04,04,04,04,04,04"
'blueboll="05,05,05,05,05,05,05,05,05,05,05,05,05,05,05,05"
'blueboll="06,06,06,06,06,06,06,06,06,06,06,06,06,06,06,06"
'blueboll="07,07,07,07,07,07,07,07,07,07,07,07,07,07,07,07"
'blueboll="08,08,08,08,08,08,08,08,08,08,08,08,08,08,08,08"
'blueboll="09,09,09,09,09,09,09,09,09,09,09,09,09,09,09,09"
'blueboll="10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10"
'blueboll="11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11"
'blueboll="12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12"
'blueboll="13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13"
'blueboll="14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14"
'blueboll="15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15"
blueboll="16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16"

redznum=0
blueznum=0
'第2010130期  01 02 07 15 21 31 + 16  
redzhao="01,02,07,15,21,31"
bluezhao="16"

Randomize()
xuanzhi=33
response.write "R: "
for i=0 to 5
xuanhao(i)=split(redboll,",")(int(xuanzhi*rnd))
if  xuanhao(i)="33" then
redboll=replace(redboll,"33","")
else
redboll=replace(redboll,xuanhao(i)&",","")
end if
xuanzhi=xuanzhi-1
zhong=0
for m=0 to 5
 if  split(redzhao,",")(m)=xuanhao(i) then  redznum=redznum+1 : zhong=1
next
if zhong=1 then
response.write  "<font color=red>"&xuanhao(i)&"</font>  "
zhong=0
else
response.write  xuanhao(i)&"  "
end if

next
response.write "<br/>"
blueballshuo=split(blueboll,",")(int(16*rnd))
if blueballshuo=bluezhao then 
response.write "B: <font color=red>" & blueballshuo &"</font><br/>"
blueznum=blueznum+1
else
response.write "B: " & blueballshuo &"<br/>"
end if

if redznum=6 and blueznum=1 then
yaojiang=5000000
   response.write "<font color=red>500万</font>"
elseif (redznum=6 and blueznum=0)  then
   response.write "<font color=red>当期高奖奖金的30%</font>"
yaojiang=1200000
elseif (redznum=5 and blueznum=1)  then
yaojiang=3000
   response.write "<font color=red>3000元</font>"
elseif (redznum=5 and blueznum=0) or (redznum=4 and blueznum=1) then
yaojiang=200
   response.write "<font color=red>200元</font>"
elseif (redznum=4 and blueznum=0) or (redznum=3 and blueznum=1) then
   response.write "<font color=red>10元</font>"
yaojiang=10
elseif (redznum<=2 and blueznum=1) or (redznum=1 and blueznum=1) then
   response.write "<font color=red>5元</font>"
yaojiang=5
else
   response.write "==============感谢捐助======================="
yaojiang=0
end if
response.write "<br>"
end function
%>

 

 

输出测试？？？？？？？？===========喔喔 我还是发不了财！！！！》》》》？？、？？、/

 

 

1.R: 14 07 21 09 17 02
B: 16
10元

2.R: 18 15 03 16 19 08
B: 16
5元

3.R: 04 10 05 22 14 13
B: 16
5元

4.R: 11 12 14 13 19 17
B: 16
5元

5.R: 21 02 05 19 10 17
B: 16
5元

6.R: 22 07 10 19 12 04
B: 16
5元

7.R: 20 18 02 01 06 19
B: 16
5元

8.R: 09 15 22 08 19 16
B: 16
5元

9.R: 01 05 06 08 17 15
B: 16
5元

10.R: 21 07 12 22 18 04
B: 16
5元
====================================
合计:中奖55元/花销(20元)

 

 ==========================

以上是假设猜中特征码的情况下

离发财梦还很远！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！