Question

用vb编写了这个随机抽取人名的抽奖系统，但会出现重复，怎么样做到不重复并添加一个记录显示已抽到的人名

求代码咯 新手

Answer 1

我给你个简单的例子、你看下
Option Explicit
Dim jm(35) As String
Dim i, cs As Integer

Private Sub Command1_Click()
Timer1.Enabled = True
cs = cs + 1
Label1.Visible = True
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
jm(i) = jm(32 - cs)
Command1.Enabled = True
Command2.Enabled = False
StatusBar1.Panels.Item(3) = 32 - cs
End Sub

Private 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) = "顾庆杰 韩曦《我们都一样》"
jm(18) = "张遵策 郭津铭《心跳》"
jm(19) = "张遵策《空城》"
jm(20) = "逯鹏 李宗瑶《江南》"
jm(21) = "郅睿 王敏《会呼吸的痛》"
jm(22) = "韩绍飞 吕典杰《水手》"
jm(23) = "郅睿 张东剑《后会无期》"
jm(24) = "大王佳 韩曦《小酒窝》"
jm(25) = "赵文青 时静璐《遗失的美好》"
jm(26) = "甄岳《没有什么不同》"
jm(27) = "吴巧 李晓慧《我的歌声里》"
jm(28) = "李瑶 李姗姗《最炫民族风》"
jm(29) = "大王佳 侯家慧《星空》"
jm(30) = "三组全体《大笑江湖》"
jm(31) = "大王佳 张锋《肩上蝶》"
End Sub

Private Sub Timer1_Timer()
Randomize
i = Int(Rnd * (32 - cs))
Label1.Caption = jm(i)
If 32 - cs <= 0 Then
Timer1.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
MsgBox "节目已完成，感谢你使用本程序！"
Command3.Value = True
End If
End Sub

追问

我已经写了抽奖程序了怎么加入不重复代码与显示已经抽过奖的LABEL 你这个有显示LABEL 但少个抽奖过程中的循环label或textbox 还有为什么又三个按钮？

追答

我给你的是我做过的例子，让你看下我是用的什么方法让数据不重复的。我告诉你的是方法，学习就是要多思考嘛，呵呵……如果你看的不是很明白，我可以把你的那个给改了。不过，我觉得，还是自己动手比较好，呵呵

追问

我写的很简单的 我发你看看指点下咯？
Private Sub CommandButton1_Click()
flag = True
tzh1:
For i = 1 To 2
DoEvents
Select Case i
Case 1
TextBox1.Text = "王 力"
Case 2
TextBox1.Text = "林 敏"
End Select
Beep
If flag = False Then Exit Sub
Next
If flag = True Then GoTo tzh1
End Sub
Private Sub CommandButton2_Click()
flag = False
End Sub

追答

你直接说说你的想法吧，总共要随机出现多少名字？是按一下按钮随机出现个名字，然后名字用label记录下来，再后面随机抽名字时，出现过的名字不再被抽取是这意思吗？按照你程序的方法很难把已经显示的名字剔除，因为循环都被你写死了。

追问

嗯 我编的这个是一个开始按钮然后循环滚动然后按停止就显示人名 我总共要做年会34人的抽奖 我想用开始停止按钮实现滚动不重复抽奖 每次一个名字 前面抽中过的我想用个Label显示在下方 上方是一个Textbox显示滚动的 万分感谢啊 主要我不是学这个的 而且要直接在PPT上做 所以只能通过按钮控件来实现了

追答

晕，那你直接用我的那个程序就好了，那就是我帮一个网友做的，年会抽节目的，你直接在哪上面添加一个现实刚刚抽过的节目标签就好了啊。

追问

你看看我这个程序怎么改好？多学点么 主要添加一个显示标签的不是要保留下来的那不会做

追答

Private Sub CommandButton2_Click()
flag = False
在这里添加文本显示的内容就好了
End Sub

追问

不是啊 上面的i会变的啊 添加了没用的咯 还有我这个程序是会重复抽的 大哥你能不能在我程序基础上修改下咯？实现上方滚动停止显示后下方有能保留记录显示的 要不重复哦 还有你的程序我试用了下那个Timer1未定义说因为我是直接用PPT里的控件箱的按钮做的

追答

你在PPT里面那样写我觉得有问题
1.文字换转不清楚，而且老是BEEP的吵得不行。
2.宏内部控件本来就少，想做的漂亮点比较困难，我推荐你在PPT内添加一个按钮直接用SHELL函数呼出exe文件。这样既能满足你PPT随意放置按钮的目的，也可以使界面好看，字不会都看不清楚。
你自己考虑下，需要的话，我帮你做。

Answer 2

其实我很想帮你的，但是。。。。你至少要写点东西出来吧？要完全的代码不太好吧？

追问

我随机抽取的已经做好了 就不知道怎么样写做到不重复 还想旁边弄个LABEL什么的来记录显示已经抽到过的

追答

dim Str as string，N

for i = 1 to 10 ‘假设抽取十个人。
n=rnd() ‘自己写完整

if instr(str,n)=0 then '在 str里面查找本次抽到的数，如果找不到

str=str & " " & n ' 把本次抽取的数加入

else
i=i-1 ’重新抽取

end if

next
label1.caption =str

追问

Dim flag As Boolean, i As Integer
Private Sub CommandButton1_Click()
flag = True
tzh1:
For i = 1 To 3
DoEvents
Select Case i
Case 1
TextBox1.Text = "王 力"
Case 2
TextBox1.Text = "林 敏"
Case 3
TextBox1.Text = "马鹏飞"
End Select
Beep
If flag = False Then Exit Sub
Next
If flag = True Then GoTo tzh1
End Sub
要怎么放入你的程序？