急，请高手指点。我想做对奖软件。遇到的问题就是要把很多人的身份证输入进去，然后抽取随机数。具体怎么操作。最好每个身份证都有机会抽

Question

很急，在线等

Answer 1

Private Sub Command1_Click()
 Randomize
Text1 = Rnd * 1E+15
End Sub

Answer 2

用一个数组如arr(),记录每个身份证号.
randomize
text1=arr(int(rnd()*ubound(arr)+1))

Answer 3

最好有个timer，我要求每秒都有很多个号码在屏幕上滚动呀

Answer 4

wangtao301301301(涛大) 
有个timer只是好看一点而已，或者说故弄玄虚。反正概率是一样的。

Answer 5

你把参加抽奖的身份证号码添加到一个listbox里面，然后用随机数参数一个listbox的index，这样就能够实现了！和上面用数组的差不多，不过好控制一点！
对于中奖的号码可以从listbox里面删除，不影响index的数目（此时产生的随机数的上限就是listbox的listcount），但是用数组就要重新生成新的数组了！！！！！！！！！
简单，方便！至于你说的屏幕上闪烁的号码吗，随便用一个timer控制随机数的产生、显示就行了！还有解释一下
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
我是要在输入的身份证中随机抽取其中的，不是随便抽取的呀
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
随机抽取不是随便抽取吗？？？？