Question

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

用vb编写个随机滚动抽取人名的抽奖系统，怎么样做到不重复并添加一个记录显示已抽到的人名
要在PPT中利用PPT控件直接做的哦 因为要和砸金蛋出现在同一页面 求好心的大哥哥写个代码呗 不是这个专业的伤不起啊

Answer 1

很简单。你先把所有的人名放在一个字符串数组里面。
然后用随机函数按照下标上限抽选中奖者。
选出一个后就可以记录、输出等等操作。
然后将他与最末尾的那个人对换。
下一次抽选时，抽选的下标上限降低一个人就可以了。

追问

不会写代码哦 能帮忙下么 我不是这些专业的

Answer 2

你这个才十分，编个程序起码半个小时

追问

呜呜，要不是为了年会我才不要这么累呢，身上就10分了，大哥能帮忙下不？

追答

现在没空，等有空的时帮你做下吧，下午

追问

哦，好的，谢谢大哥，你说老板让一个文科生做这个，哎！！主要三个功能：具有开始滚动再停止不重复抽名、记录显示已经抽到的人名单。其实最难主要要靠ppt中那么少的控件完成比较麻烦呢、

追答

在页面中加一个listbox,一个textbox,一个commandbutton
代码如下：
Dim a() As String, temp As String
Dim i As Integer, award As Integer
Dim Clickbutton As Boolean
Private Sub CommandButton1_Click()
If Clickbutton True Then
Open "E:\2.txt" For Input As #1‘把你的人员名单存在记事本中，一行一个人，路径你可以改一下
Do While Not EOF(1)
Line Input #1, temp
If temp "" Then
i = i + 1
ReDim Preserve a(i)
a(i) = temp
Debug.Print temp
End If
Loop
Close (1)
ListBox1.Clear
TextBox1.Text = ""
Clickbutton = True
End If
i = 0
If UBound(a) = 0 Then Exit Sub
Do
CommandButton1.Enabled = False
i = i + 1
DoEvents
award = Int(UBound(a) * Rnd + 1)
TextBox1.Text = a(award)
If i = 50 Then Exit Do
Loop

ListBox1.AddItem ListBox1.ListCount + 1 & ":" & TextBox1.Text
TextBox1.Text = ""
CommandButton1.Enabled = True
If award = UBound(a) Then
ReDim Preserve a(award - 1)
Debug.Print UBound(a)
Exit Sub
End If
For i = award To UBound(a) - 1
a(i) = a(i + 1)
Next
ReDim Preserve a(i - 1)
Debug.Print UBound(a)
End sub
你也可以给我个邮箱，我把做好的PPT给你，别忘了告诉我你用的PPT是2003的还是2007的

追问

邮箱是wangli19880515@126.com 用2003的。对了大哥，你怎么才一个按钮，那怎么实现滚动与按按钮停止呢？

追答

他会自动停止的啊，VBA没有timer，用两个按钮比较麻烦

追问

那能做到两个按钮么？还有我是想text里滚动好直接显示当前抽到人，然后等继续滚动，而list是想列份名单，把每次抽到的人都列在里面而不是就当前一次。我之前自己做的也是无法做到这点

追答

你自己再加个按钮，然后把程序换成下面的这个：
Dim a() As String, temp As String
Dim i As Integer, award As Integer
Dim Clickbutton As Boolean
Dim stp As Boolean
Private Sub CommandButton1_Click()
If Clickbutton True Then
Open "E:\2.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, temp
If temp "" Then
i = i + 1
ReDim Preserve a(i)
a(i) = temp
Debug.Print temp
End If
Loop
Close (1)
ListBox1.Clear
TextBox1.Text = ""
Clickbutton = True
End If
i = 0
If UBound(a) = 0 Then Exit Sub
stp = False
Do
CommandButton1.Enabled = False
DoEvents
award = Int(UBound(a) * Rnd + 1)
TextBox1.Text = a(award)
If stp = True Then Exit Do
Loop

ListBox1.AddItem ListBox1.ListCount + 1 & ":" & TextBox1.Text
TextBox1.Text = ""
CommandButton1.Enabled = True
If award = UBound(a) Then
ReDim Preserve a(award - 1)
Exit Sub
End If
For i = award To UBound(a) - 1
a(i) = a(i + 1)
Next
ReDim Preserve a(i - 1)
End Sub

Private Sub CommandButton2_Click()
stp = True
End Sub

追问

还是没解决其中重要一个问题，就是按停止后text里每次滚动停止直接显示在text里，而list是想列所有名单，比如抽了10个人，那list就显示1-10全部名单呢。又或者再加个list来显示之前所有抽到过的人名单，列份清单？是不是很难？

追答

难道list里没有显示列表？？？你确定只有1条？
把这句删掉
TextBox1.Text = ""

追问

嗯没有显示就1条，而且这句本来就没咯。还有我名单总共43个人抽了15人后就出现重复了，囧！！啊，怎么这么麻烦的，疯了，老板我恨你

追答

我重新给你个。。。我试验的时候都好好的，可以显示全，也没重复的。。。看邮件

Answer 3

楼上正解。
具体代码要看你有多少人了

追问

这个思路我也知道，不过不会编程呢，而且直接在ppt中做更不会，有43个人吧

追答

又满意就不要质问了么