很久沒寫程式了
所以我只是大約看了一下
我也沒VB

不過我記得rnd 亂數好像是常態分佈
所以本身的机率就不公平
要用另一種才對