VB随机姓名抽取器的源码 首先你要有一个.txt文本格式的人员名单，一行一个人名，然后在下面的程序中更改名单路径、抽取人数就可以了Option ExplicitPrivate Sub Command1_Click()Dim nameArr()，mPath$，n%，k%，newDic，Temp$mPath=\"d：\\Name.txt\"'原始名单路径，每行一人k=Int(InputBox(\"抽取的人数：\"))'抽取的数目'加载原始名单Open mPath For Input As#1Do While Not EOF(1)n=n+1ReDim Preserve nameArr(1 To n)Line Input#1，nameArr(n)LoopClose#1'抽取人员Set newDic=CreateObject(\"scripting.dictionary\")Do While newDic.CountRandomizeTemp=nameArr(Int(Rnd*(UBound(nameArr)+1)))If newDic.Exists(Temp)=False Then newDic.Add Temp，\"Loop'输出Temp=Join(newDic.keys，\"，\")Print n&\"名人员中，\"&k；名被抽取，名单如下：\"&vbCrLf&TempnewDic=\"End Sub
用VB编程，随机抽取两个人的姓名？
用VB做一个姓名随机抽取的软件 但是 名字不能重复抽取谢谢 用VB做一个姓名随机抽取的软件 但是 名字不能重复抽取谢谢 12345678910111213141516171819Private Sub Command1_。
用vb编写了这个随机抽取人名的程序，要求一个文本框，一个按钮 Dim xm，n As IntegerPrivate Sub Command1_Click()Static kk=k+1If k Mod 2=1 ThenTimer1.Interval=20Command1.Caption=\"停ElseTimer1.Interval=0Command1.Caption=\"开始End IfEnd SubPrivate Sub Form_Load()xm=Array(\"张三\"，\"李四\"，\"王五\"，\"赵六\"，\"钱七\"，\"孙八\"，\"周九\"，\"吴十\"，\"郑土\")n=UBound(xm)+1Text1.FontSize=16Text1=\"Command1.Caption=\"开始End SubPrivate Sub Timer1_Timer()x=Int(Rnd*n)Text1=xm(x)End Sub
