Office中国论坛/Access中国论坛

标题: 如何生成不重复的随机整数 [打印本页]

作者: lingjiang 时间: 2013-11-7 09:53
标题: 如何生成不重复的随机整数
本人遇到难题，如何生成成绩列，每列不同的随机整数

作者: 盗梦 时间: 2013-11-7 10:00
每次生成一个随机数，判断一下是否有生成过，有则放弃并重新生成

作者: lingjiang 时间: 2013-11-7 10:43
我的意思是当学号列输入学号时，成绩列产生一个40-60之间的随机整数，且不重复

作者: access学习交流 时间: 2013-11-7 11:14
本帖最后由 access学习交流于 2013-11-7 11:18 编辑

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)