控制随机机率有关问题！

控制随机机率问题！？
现在有8个人员名称：
黄一明 ，黄二明 ，黄三明，黄四明，黄五明，黄六明，黄七明，黄八明 

将要进行抽奖 ，想控制他们被抽中的机率。

比如指定  黄一明 ，黄二明  有20%的机会被抽中。

 黄三明，黄四明，黄五明 有30%机会被抽中。

黄六明，黄七明，黄八明  有50%机会被抽中。

请问用VB 脚本 怎样实现呀，什么思路呢？

请大兄们 详说说和写下代码 小弟感激万分！！！！
------解决方案--------------------
2 dim array 
prizePool = new array(new array(1,2), new array(1,2), new array(3,4,5), new array(3,4,5), new array(3,4,5), new array(6,7,8), new array(6,7,8), new array(6,7,8), new array(6,7,8), new array(6,7,8))

randomize
tmp = prizePool(cint(rnd() * 9))
result = tmp(cint(rnd()*ubound(tmp) ))
------解决方案--------------------
就分为100份。
个位数是1和6的，在黄一明 ，黄二明里再选一个
个位数是2、3和7的，在黄三明，黄四明，黄五明里再选一个
个位数是4，5，8，9和0的， 黄六明，黄七明，黄八明 里再选一个