做个抽奖程序有个问题 怎么让数字随即不重复出现
答案:1 悬赏:60 手机版
解决时间 2021-12-01 02:53
- 提问者网友：记得曾经
- 2021-11-30 19:45
做个抽奖程序有个问题 怎么让数字随即不重复出现
最佳答案
- 五星知识达人网友：何以畏孤独
- 2021-11-30 20:06
自己修改，看看有没有重复的
Private Sub Command1_Click()
Dim dic, n, a
Set dic = CreateObject("scripting.dictionary")
Do While True
Randomize
a = Int(120 * Rnd) + 1
If Not dic.Exists(a) Then
dic.Add a, ""
n = n + 1
End If
If n = 120 Then Exit Do
Loop
a = dic.keys
Text1 = Join(a, ",")
End Sub
Private Sub Command1_Click()
Dim dic, n, a
Set dic = CreateObject("scripting.dictionary")
Do While True
Randomize
a = Int(120 * Rnd) + 1
If Not dic.Exists(a) Then
dic.Add a, ""
n = n + 1
End If
If n = 120 Then Exit Do
Loop
a = dic.keys
Text1 = Join(a, ",")
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯