用VBA怎样随概率生成数值？

用VBA怎样随概率生成数值？

Sub aa()
Dim arr, i, j
arr = Array(1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 4, 4, 5, 6, 7, 8)
i = Int(Rnd * 24)
j = arr(i)
End Sub

既然是随机，你还要求概率，那随机出来有什么意义？追问就没一个按概率随机的吗？就比如把24分8份，第一第二份各占8，第三第四份各占2，第四第五第六第七第八各占1，也可以想象成1——24个数值，1——8为第一 9——16为第二 17——18第三 19——20第四 21，22，23，24个位五六七八，然后将这24个数值随机摇七次，每出一个对应的数值要依次减去前边摇出的对应部分，比如第一次随机摇出个8，那么往下随机就是24个数值减掉1——8