帮忙VBA编程,数据如下数字 权值1 5%2 15%3 30%4 50%随机产生一个0到1的小数if随机数0.05 && 随机数

Question

帮忙VBA编程,数据如下
数字 权值
1 5%
2 15%
3 30%
4 50%
随机产生一个0到1的小数
if随机数0.05 && 随机数

Answer 1

Sub 随机()
a = Rnd(1)
If a >= 0 Then b = 1
If a >= 0.05 Then b = 2
If a >= 0.2 Then b = 3
If a >= 0.5 Then b = 4
MsgBox (b)
End Sub