VB随机姓名抽取器的源码

Answer 1

首先你要有一个.txt文本格式的人员名单，一行一个人名，然后在下面的程序中更改名单路径、抽取人数就可以了

Option Explicit

Private Sub Command1_Click()
Dim nameArr(), mPath$, n%, k%, newDic, Temp$
mPath = "d:\Name.txt" '原始名单路径，每行一人
k = Int(InputBox("抽取的人数：")) '抽取的数目
'加载原始名单
Open mPath For Input As #1
Do While Not EOF(1)
n = n + 1
ReDim Preserve nameArr(1 To n)
Line Input #1, nameArr(n)
Loop
Close #1
'抽取人员
Set newDic = CreateObject("scripting.dictionary")
Do While newDic.Count < k
Randomize
Temp = nameArr(Int(Rnd * (UBound(nameArr) + 1)))
If newDic.Exists(Temp) = False Then newDic.Add Temp, ""
Loop
'输出
Temp = Join(newDic.keys, ", ")
Print n & "名人员中，" & k; "名被抽取，名单如下：" & vbCrLf & Temp
newDic = ""
End Sub

Answer 2

这个其实是很简单的，主要是要看你的“姓名”数据是怎样保存的、即姓名数据库的格式是怎样的，然后才能进行编程。