Access专家课堂周年庆
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:AccessoftChu    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-窗体/数据页

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

时 间:2019-06-14 13:41:48
作 者:缪炜   ID:24010  城市:江阴
摘 要:生成不重复的随机数
正 文:

      我们在生成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交流群 (群号:86789465)       access源码网店

最新评论 查看更多评论(3)

2019/6/26 20:37:39商量不下来
感谢分享。

2019/6/14 21:18:28ntrt
在循环体外先生成a(0)

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

最新帖子

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助