随机抽取姓名小程序，怎么用vb编个随机抽取人名的小程序，做到不重复并能直接打印显示已抽到的人名？

qq随机选人小程序叫开始绘图。

然后进入聊天界面，点击右上角的个2小人物图标。然后你会发现在这些官方的群组应用中没有抽奖功能，所以我们可以找到上面的搜索栏。

搜索单词“draw”，你会看到下面有很多绘图工具。让我们打开第一个。然后可以为绘图范围设置一些规则。

然后单击“开始绘图”。如果小组中的其他人也需要抽签，他们只需要分享。小组里的每个人都可以抽签。

软件介绍

是1999年2月由腾讯自主开发的基于Internet的即时通信网络工具。QQ以前是模仿ICQ的，是国际的一个聊天工具，是I seek you（我寻找你）的意思，OICQ模仿ICQ它在ICQ前加了一个字母O，意为opening I seek you，意思是“开放的ICQ。

但被指出侵权行为，2000年11月腾讯推出QQ2000版本，OICQ正式更名为QQ。除了名字变化，腾讯QQ的标志却一直没有改，一直是小企鹅。因为标志中的小企鹅很可爱迷人而且很受女生的肯定，用英语来说就是cute，因为cute和Q是谐音的，所以小企鹅配QQ也是一个很好的名字。

Private Type student 

name As String * 10

End Type

Private Sub Command1_Click() '写入数据

Dim stu As student

Open "d:\student.txt" For Random As #1 Len = Len(stu)

For i = 1 To 60

stu.name = InputBox("请输入姓名")

Put #1, i, stu

Next i

Close #1

End Sub

Private Sub Command2_Click() '抽取

Randomize

Dim bb As student, n%

n = Int(Rnd * 60) + 1

Open "d:\student.txt" For Random As #1 Len = Len(bb)

Get #1, n, bb

Text1.Text = bb.name

Close #1

End Sub

var names = ['张三','李四','王五','赵六','田七'],
    tmp;

function select() {
  var l = names.length;
  var m = Math.floor(Math.random() * l); //随机抽一个
  tmp = names.splice(m,1); //将抽到的保存到tmp变量并从names数组中移除
  if(l !== 0) {
    document.title = '抽取到的人是：'+tmp+'。剩下的人还有：'+names;  
  } else {
    document.title = '抽完了';
  }
  
}

document.onclick = function() {
  select();  
};

可以用RAND函数还随机排序抽取，以下图中的姓名为例，要随机抽取5个人。

步骤1：B1输入一个字段名，如“排序”

步骤2：B2输入随机函数

=RAND()

公式下拉，如下图：

步骤3：选择B列任一单元格，如B2，再单击“数据”>>>“排序和筛选”组的“升序”或“降序”按钮（升、降序都可以），如下图：

现在姓名数据已经乱序了，随便连续5个就是随机的姓名，如A2:A6的姓名。

知识扩展：

RAND()：生成区间[0,1)的随机数字（大于或等于0且小于1），因此通过生成的随机小数进行排序，以达到打乱原顺序的目的（既随机抽取）。