怎样按概率产生随机数？

Question

划分区间，比如概率为a:30%, b:20%, c:50%，那么可以产生一个100以内的随机数，落在0-30中的为a, 30-50中的为b，50-100的为c

Answer 1

举个例子：
00: 30 %,  01:  20%,  02:50%
那么用
Dim num As Double
Randomize
num = Rnd
If num >= 0 And num <= 0.3
  result = "00"
ElseIf num > 0.3 And num <= 0.5
  result = "01"
ElseIf num > 0.5 And num <= 1
  result = "02"
End If

Answer 2

BrentIvan:我明白了！真的谢谢你！

Answer 3

DrentIvan:
我的OICQ：24570427。
我的E-mail：[email protected]。让我们做个朋友吧！

Answer 4

Ok :)
我不用OICQ， mail: [email protected],