【Access示例】生成不重复的随机数-will.miao
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-窗体/数据页


【Access示例】生成不重复的随机数

发表时间:2019/6/14 13:41:48 评论(3) 浏览(5883)  评论 | 加入收藏 | 复制
   
摘 要:生成不重复的随机数
正 文:

      我们在生成100以内的随机数时,直接用Int(Rnd() * 100 + 1),但实际应用中发现,老是会生成重复的数据,所以,我们就考虑是否可以让生成的一组数据不出现重复?

原理很简单,比如我们要生成10个随机数,生成一个随机数,我们就与已生成的随机去比较,看是否有重复,如果重复了,就返回重复生成一次,直到不重复。

这样的话,我们写下了下面的代码:

Dim a(9) As Integer, i As Integer, j As Integer

Private Sub Command85_Click()


    Dim strA As String
    strA = ""
    For i = 0 To 9
        a(i) = Int(Rnd() * 100 + 1)
        For j = 0 To i - 1
            If a(i) = a(j) Then
                i = i - 1
                Exit For
            End If
        Next j
    Next i
    For j = 0 To 9

        strA = strA & a(j) & ";"
    Next j
    Me.Label84.Caption = strA
End Sub

示例下载:

点击下载此附件


演示:


Access软件网交流QQ群(群号:198465573)
 
 相关文章
生成50个0到100以内的随机数  【宏鹏  2012/12/5】
解决网友Excel生成随机数的问题  【杏林求真  2013/6/22】
ACCESS2010 记录 乱序生成 随机数 就是让发出去的 记录...  【越来越自信  2013/9/7】
利用查询生成一列随机数,数值更改成随机数方法  【宏鹏  2017/6/28】
【Access基础】随机数函数--Rnd函数  【张迪  2019/2/18】
通过Rnd获取指定范围的随机数  【易勋  2019/5/23】
常见问答
技术分类
相关资源
文章搜索
关于作者

will.miao

文章分类

文章存档

友情链接