luckbear 发表于 2018-1-3 08:39:07

VBA数字抽奖如何不重复

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


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


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

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

感激不尽！！！

mfkjatvfhp 发表于 2018-1-3 09:52:53

自顶，求大神

独来读网 发表于 2018-1-3 09:57:05

自顶，求大神

flyfgy 发表于 2018-1-3 09:59:20

PPT在此，请大神赐教

fengfen 发表于 2018-1-3 10:08:33

神出鬼没的大神呢

alec.flex 发表于 2018-1-3 10:22:06

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

zth445 发表于 2018-1-3 10:40:25

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

xiaosure 发表于 2018-1-3 10:56:14

见附件

qjxjwb 发表于 2018-1-3 11:18:19

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

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

点点儿 发表于 2018-1-3 11:19:18




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


请指教！
页: [1] 2
查看完整版本: VBA数字抽奖如何不重复