【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

示例下载：

点击下载此附件

演示：