如何生成不重复的随机整数

lingjiang

本人遇到难题，如何生成成绩列，每列不同的随机整数

盗梦

每次生成一个随机数，判断一下是否有生成过，有则放弃并重新生成

lingjiang

我的意思是当学号列输入学号时，成绩列产生一个40-60之间的随机整数，且不重复

access学习交流

Dim c As Collection
'初始化，定义产生随机数的最小值和最大值
Public Sub Init(min As Integer, max As Integer)
Set c = New Collection
Dim i As Integer
    For i = min To max
        c.Add i
    Next
End Sub
'产生不重复的随机数
Public Function RandomNext() As Integer
Dim i As Integer
Dim number As Integer, upperbound As Integer
    upperbound = c.Count
    If upperbound > 0 Then
        number = Int((upperbound) * Rnd + 1)
        RandomNext = CInt(c.Item(number))
        c.Remove (number)
    Else
        RandomNext = 0
    End If
End Function
Private Sub Class_Terminate()
    Set c = Nothing
End Sub


参考这个帖子：http://www.office-cn.net/forum.php?mod=viewthread&tid=79441