用VB怎么产生不重复的随机数？ vb随机抽取号数

怎么用vb编个随机抽取人名的小程序，做到不重复并能直接打印显示已抽到的人名 Dim n As IntegerDim a()Private Sub Command1_Click()If n=0 Then '第点击执行m=Val(Text1)ReDim a(1 To m)For i=1 To m '数组a元素1至mm数a(i)=iNextFor i=1 To m-1 '随机打乱数组a元素r=Int(Rnd*m+1)tmp=a(i)a(i)=a(r)a(r)=tmpNextEnd Ifn=n+1 '计数点击数If n>；Val(Text1)Then '数超指定数抽奖结束MsgBox\"抽奖结束Exit SubEnd IfText2=a(n)'数组抽第n数由于数组随机排列所相于随机数并且重复End Sub用VB如何做随机滚动整数号码抽取程序（1到70号的随机抽取） random-vb随机数生成在int（（70-1+1）*rnd+1)用VB怎么产生不重复的随机数？ Dim a(1 To 10)As IntegerPrivate Sub Command1_Click()Static n As Integern=n+1If n>；10 Then Exit SubDox=Int((10-1+1)*Rnd+1)j=TrueFor i=1 To n-1If x=a(i)Then j=False：Exit ForNext iLoop Until ja(n)=xCommand1.Caption=a(n)End SubPrivate Sub Form_Load()RandomizeEnd Sub用PPT制作摇号器抽奖选号，在举办一些大型活动的时候，例如公司年会、周年庆典等等，我们常会举办随机抽奖活动，收取幸运号码，发发奖品。一般我们会花钱请广告公司做一个。

#数组#sub