抽号码 手机号码抽奖活动是真的吗？

2020-05-16 10:24:39 来源：朵拉利品网

1, 手机号码抽奖活动是真的吗？

Const numb = 2000
Dim S(1 To numb) As String, C(1 To numb) As String "s（)为号码源，c（)为随机号码
Sub Main()
Dim k%, tmp%
k = 1
Do While k <= numb
Randomize "设置不重复随机取数
tmp = Int(Rnd() * 1999 + 1)
If S(tmp) <> "" Then
C(k) = S(tmp)
S(tmp) = ""
k = k + 1
End If
Loop
End Sub
因为c（)为随机取数，每次可以取前10个数作为一次抽奖结果，直到抽奖完

2, 我的抽奖号码是多少

1、前面99人抽到一张中奖卷的几率为1/99，但是里面还有一等奖的几率为1/99*(1/3)则最后一个抽奖的人中一等奖的概率为1/99*(1/3)*(1/99)
2、前面99人抽到两张中奖卷的几率为2/99，但是里面还有一等奖的几率为2/99*(1/3)则最后一个抽奖的人中一等奖的概率为2/99*(1/3)*(1/98)
3、前面99人抽到0张中奖卷的几率为（97/100）^99，则最后一个抽奖的人中一等奖的概率为（97/100）^99*(1/100)
所以，最后一个抽奖的人中一等奖的概率为（97/100）^99*(1/100)+2/99*(1/3)*(1/98)+1/99*(1/3)*(1/99)=0.0005782

名词解释

numb

《NUMB》收录于 linkin park2003年的专辑Meteora中，是专辑的第十三首歌曲。也是该专辑在全球最具影响力的歌曲。这首歌中，以双主唱之一的mike优美的钢琴铺垫，使得整首歌显得优美而震撼。

随机

随机，指依照情势；自由组合。

• 上一篇 挑数字 什么挑什么选,数字成语
• 下一篇 0到9随机数生成器 求0到9数字随即的已生成的程序