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交流群 (群號:198347485)       access源碼網店

最新評論 查看更多評論(3)

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

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

發表評論您的評論將提升作者分享的動力!快來評論一下吧!

用戶名:
密 碼:
內 容:
 

常見問答

技術分類

相關資源

關于我們 | 服務條款 | 在線投稿 | 友情鏈接 | 網站統計 | 網站幫助