用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
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编写个随机滚动抽取人名的抽奖系统，怎么样做到不重复并添加一个记录显示已抽到的人名 你这个才十分，编个程序起码半个小时
