求一个随机抽取姓名的软件 可以利用 office EXCEL来实现。在A列（A1、A2、A3等连续输入你要随机选取的名字）在B1单元格输入公式：=INDEX(A1：A4，INT(RAND()*(4-1)+1)，1)其中：A1：A4 是你在A列输入全部名字的范围，例如第一个填写名字的单元格是A1而最后一个名字的单元是A20，那么就是A1：A20。RAND()*(4-1)+1 的格式为 RAND()*(b-a)+a，在 a 与 b 个随机名字范围内随机抽取一个，假如第一个填写名字的单元格是A1而最后一个名字的单元是A20，那么a=1 b=20。每编辑公式一次（双击公式单元格，然后按回车），就得到一次随机抽取结果
求一个安卓手机能用的随机抽奖软件。 输入很多人名，然后在其中进行随机抽取的这种 写回答 有奖励 共3 3 热心网友 2017-05-19 用秒表软件吧！没人定一个数字，暂停的末尾是几就选谁 追问追答 qq136113641 LV.5 2014-10-19 。
用VB做一个姓名随机抽取的软件 但是 名字不能重复抽取谢谢 Private Sub Command1_Click()Dim i As Long，n As Long，y As Long，x As Long，a()As Integery=List1.ListCountn=Val(Text1.Text)'获取输入的数量，text1可以自己改If n输入数量不能为0If y抽取数量不能为大于已经存在姓名列表RandomizeFor i=0 To n-1x=Int((y-1+1)*Rnd+1)'随生成机数字ReDim Preserve a(i)a(i)=xFor j=0 To UBound(a)-1If x=a(j)Then i=i-1：Exit For '判断是否重复NextNextFor i=0 To UBound(a)List2.AddItem List1.List(a(i))'list1内抽取到的添加到list2，右边的 list1 和 list2 自己改NextEnd Sub
求一个随机抽取姓名的软件或系统，就是把我们班的全部同学的人名输进去，然后随机抽取让他们上来表演节目，不能重复。高分急求，请各路高手帮忙，解答详细点，谢谢拉， 。
求随机抽取名字的软件
有随机抽取名字的软件吗？ 可以利用EXCEL来实现。在A列（A1、A2、A3等连续输入你要随机选取的名字）在B1单元格输入公式：INDEX(A1：A4，INT(RAND()*(4-1)+1)，1)其中：A1：A4 是你在A列输入全部名字的范围，例如第一个填写名字的单元格是A1而最后一个名字的单元是A20，那么就是A1：A20。RAND()*(4-1)+1 的格式为 RAND()*(b-a)+a，在 a 与 b 个随机名字范围内随机抽取一个，假如第一个填写名字的单元格是A1而最后一个名字的单元是A20，那么a=1 b=20。每编辑公式一次（双击公式单元格，然后按回车），就得到一次随机抽取结果。
用VB做一个姓名随机抽取的软件 但是 名字不能重复抽取谢谢 用VB做一个姓名随机抽取的软件 但是 名字不能重复抽取谢谢 12345678910111213141516171819Private Sub Command1_。
