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

<%

'
'菩萨保佑 我咸鱼咸鱼 翻身！
'
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