请问如何按照一定的概率生成数字.

[bbk_simon]

请问,如何按照一定的概率生成随机数?
比如我要按照一定的规律随机成4个数字: 2,4,6,8
10%的概率生成2,20%生成4,30%生成6,40%生成8.

[jinhaiou]

i(变量)
j(概率)

i=200*j

[xieyj]

随机数本身是一个没有规律的东西，所以按概率生成似乎不大可能

[ziyaoshui]

按你的意思应该是这样：
randomize
result=0
p=cint(rnd()*100)
if p<10 then result=2
elseif p<30 then result=4
elseif p<60 then result=6
else
result=8
end if

[zhurenweile]

Call Randomize(Timer)
Private Function GetARndnum()
Dim intRnd
intRnd=CInt(Rnd*100)
If intRnd<=10 Then
GetARndnum=2
Exit Function
End If
If intRnd<=30 Then
GetARndnum=4
Exit Function
End If
If intRnd<=60 Then
GetARndnum=6
Exit Function
End If
GetARndnum=8
End Function