VB中，如何随机抽取多组1-30之间的不重复的随机数。
用vb编写了这个随机抽取人名的抽奖系统，但会出现重复，怎么样做到不重复并添加一个记录显示已抽到的人名 我给你个简单的例子、你看下Option ExplicitDim jm(35)As StringDim i，cs As IntegerPrivate Sub Command1_Click()Timer1.Enabled=Truecs=cs+1Label1.Visible=TrueCommand1.Enabled=FalseCommand2.Enabled=TrueEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Command2_Click()Timer1.Enabled=Falsejm(i)=jm(32-cs)Command1.Enabled=TrueCommand2.Enabled=FalseStatusBar1.Panels.Item(3)=32-csEnd SubPrivate Sub Form_Load()jm(0)=\"李珊珊等《西游记》jm(1)=\"刘泽玉 小王佳《知足》jm(2)=\"小王佳 王敏《一个像夏天，一个像秋天》jm(3)=\"李铭 李兵《你是我心内的一首歌》jm(4)=\"刘泽玉 孙皓晨《因为爱情》jm(5)=\"赵京城《寻找》jm(6)=\"王振远 高磊《寂寞沙洲冷》jm(7)=\"李宗瑶《小星星》jm(8)=\"逯鹏 张志远《最美的太阳》jm(9)=\"李彤彤 葛文芮《BABY DON'T CRY》jm(10)=\"王敏 杨雪《夜夜夜夜》jm(11)=\"张月明 李晓雨 大王佳《过火》jm(12)=\"葛文芮 孙皓晨《Timeless》jm(13)=\"叶小雨 郭津铭《未完成的歌》jm(14)=\"逯鹏 孙杰《父亲》jm(15)=\"王昭政《那些年》jm(16)=\"叶小雨 高磊《奔跑》jm(17)=\"顾庆杰 韩曦《我们都一样。
vb怎么做一个抽奖的软件？要抽到的记录 不能重复的 随机抽取人名 用个随即函数就行了
用VB做一个姓名随机抽取的软件 但是 名字不能重复抽取谢谢 Private Sub Command1_Click()Dim i As Long，n As Long，y As Long，x As Long，a()As Integery=List1.ListCountn=Val(Text1.Text)'获取输入的数量，text1可以自己改If n输入数量不能为0If y抽取数量不能为大于已经存在姓名列表RandomizeFor i=0 To n-1x=Int((y-1+1)*Rnd+1)'随生成机数字ReDim Preserve a(i)a(i)=xFor j=0 To UBound(a)-1If x=a(j)Then i=i-1：Exit For '判断是否重复NextNextFor i=0 To UBound(a)List2.AddItem List1.List(a(i))'list1内抽取到的添加到list2，右边的 list1 和 list2 自己改NextEnd Sub
