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优美的钢琴铺垫，使得整首歌显得优美而震撼。
随机
随机，指依照情势；自由组合。
