|
发表于 2009-9-12 19:54:00
|
显示全部楼层
Re:某公司数值策划题
第一题
Sub gailv()
Dim 宝石 As Long
Dim p As Integer '等级2,3,4 ,5 is ok
Dim 几率(3) As Double
几率(0) = 0.9
几率(1) = 0.5
几率(2) = 0.2
p = 2
Dim all As Long
all = 0
For i = 1 To 100000
p = 2
宝石 = 0
Do
Select Case p
Case 2
If (Rnd) <= 几率(p - 2) Then
p = 3
End If
Case 3
If (Rnd) <= 几率(p - 2) Then
p = 4
Else
p = 2
End If
Case 4
If (Rnd) <= 几率(p - 2) Then
p = 5
Else
p = 3
End If
Case Else
MsgBox "adas"
End Select
宝石 = 宝石 + 1
Loop While p <> 5
all = 宝石 + all
Next i
MsgBox all / 100000
End Sub
21% 公式 几率(x) 微调 |
|