VBA数字抽奖如何不重复

luckbear

新手VBA制作PPT抽奖，现在只是单纯的实现了随机数1-120抽奖，但是会出现重复数字。
现问题如下：
1.如何实现抽出一轮数字之后剔除掉而不影响接下来的抽奖。


2.另外如何把抽中的数字显示到一边？


3.在设计标签背景色透明时无法成功，于是选了黑色背景掩盖，请问如何设置透明色。

以上，请大神现身指点！！！

感激不尽！！！

mfkjatvfhp

自顶，求大神

独来读网

自顶，求大神

flyfgy

PPT在此，请大神赐教 号码抽奖如何不重复并显示抽奖结果.zip (880.86 KB, 下载次数: 194)

2018-3-26 10:14 上传

点击文件名下载附件

fengfen

神出鬼没的大神呢

alec.flex

过了腊八就是年，新人在此祝大家新年快乐，大吉大利

zth445

自顶一下，有没有哪位大神现身

xiaosure

见附件
号码抽奖如何不重复并显示抽奖结果.rar (860.32 KB, 下载次数: 111)

2018-3-26 10:14 上传

点击文件名下载附件

qjxjwb

感谢大神！代码标红的地方我目前还没学到，我正在百度学习！！！

Public a, b, c, d, e, f, i, j As Integer, s As New Collection, kk, l, Savetime As Single
Private Sub CommandButton1_Click()
b = 0
If j < 1 Then
    For i = 1 To 120
        s.Add i
    Next
    Slide2.Label3.Caption = &quot;&quot;
End If
Do While True
    a = s(Int(Rnd * s.Count + 1)): Label1.Caption = a
    c = s(Int(Rnd * s.Count + 1)): Label2.Caption = c
    d = s(Int(Rnd * s.Count + 1)): Label3.Caption = d
    e = s(Int(Rnd * s.Count + 1)): Label6.Caption = e
    f = s(Int(Rnd * s.Count + 1)): Label7.Caption = f
    Savetime = Timer
    While Timer < Savetime + 0.005
          DoEvents
    Wend
    If b = 1 Then Exit Do
Loop
End Sub

点点儿

大神，我试运行了一下，巧了发现两个重复的值，是不是五个LABEL单独不会重复，但是怎么避免他们五个会产生重复值呢？


请指教！