VB 雙色球隨機選號 VB 雙色球隨機選號

frankyhui

图片：

回忆瞭一下VB的随機函数。此为简易的单注双色球随機选号。
关键的幾句代码：
<table cellspacing="0" class="t_table" style="width:98%"><tr><td>
復制代码 <ul type="1"><li>Private Sub Form_Load()<li>RedBalls = Array(1, 2, 3, 4, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33)<li>BullBalls = Array(1, 2, 3, 4, 7, 8, 9, 10, 11, 12, 13, 14, 15)</ul>
</td></tr></table>
<table cellspacing="0" class="t_table" style="width:98%"><tr><td>
復制代码 <ul type="1"><li>rarr = GetRndNotRepeat(0, UBound(RedBalls), 6)<li>  barr = GetRndNotRepeat(0, UBound(BullBalls), 1)</ul>
</td></tr></table>
<table cellspacing="0" class="t_table" style="width:98%"><tr><td>
復制代码 <ul type="1"><li>  Print Format(RedBalls(rarr(i)), 00)<li>    Print Format(BullBalls(barr(1)), 00)</ul>
</td></tr></table>
这个隻单单做个回顾，没什麼实际意义和作用。真正有点功能的双色球选号器应该分热冷号码区，频段，最近一年内的开奖数據库，可选择或屏蔽号码条件機选，復选，过滤、金额计算……等多功能。相应要復杂一些、需要些时间收集、研究一下彩票及相关就可以做得更好一些！