如何要随机抽取

来源：百度知道 编辑：UC知道 时间：2024/05/17 18:16:03
我想随机抽取几个人的QQ号码参加某个活动，不过为了公平公正，我想随机抽取，比如我把这些QQ号码都输入进去，一点击这个程序，就随机出来几个，有这样的东西吗

建Command1,Text1,代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Option Explicit

Private Sub Command1_Click()
Dim a
a = Split(Text1.Text, ",")
MsgBox "抽取的号码为：" & a(Int(Rnd * UBound(a)))
End Sub

Private Sub Form_Load()
Randomize
MsgBox "请在文本框中输入QQ号码，用英文逗号分隔。"
End Sub

可以用vb做一个

要想真正公正公开的话还不如写在纸上在大家面前抽呢