如何用VB 取得M--N（0<=M<N）之间的S个不重复的随机数？

来源：百度知道 编辑：UC知道 时间：2024/06/15 12:07:59
如何用VB 取得M--N（0<=M<N）之间的S个不重复的随机数？
比如：要求取得10个，10<=？<=99 的不重复随机数？
我水平较低，请写上注释，谢谢！

Function RndS(M,N,S)As String
Dim tr(m) As Boolean
Dim i,temp As Integer
RndS=""
temp=int(rnd*(N-M)+M) '随机数M--N
For i=1 to S
if tr(temp)=0 then '判断是否已经有过该随机数
tr(temp)=1
RndS=RndS + " " & temp '没有则加入列表
Else
i = i - 1 '第二次修正
End If
Next
End Function

已经进行了第二次修正