ASP生成指定范围内指定个数不重复随机数 - TOMMYHU - 专注互联网开发及运营技术,提供相关资料及软件下载,奇趣网络时事评论!
Jul 2

ASP生成指定范围内指定个数不重复随机数 不指定

tommyhu , 16:21 , ASP , Comments(0) , Trackbacks(0) , Reads(8455) , Via Original Large | Medium | Small
ASP生成指定范围内指定个数不重复随机数

<%
'生成10个7到30间的不重复随机数
response.write RandomizeNum(10,7,30)
%>
<%
'生成规定范围内的多个不重复数字
Function  RandomizeNum(count,lownum,highnum)
  If  highnum<count then
    exit function
  End If
  redim n(count)
  Dim  i,q
  Dim  isok
  For i=1 to count
    Randomize
    n(i)=round((highnum-lownum)* Rnd)+lownum
    isok=false
    Do  while not isok
      For q=1 to i
        If n(i)=n(q-1) then
          n(i)=Int((highnum-lownum)* Rnd)+lownum
          isok=false
          exit for
        End If
        isok=true
      Next
    Loop
    If i=count Then
      RandomizeNum = RandomizeNum& n(i)
    Else
      RandomizeNum = RandomizeNum & n(i) &","            
    End If
  Next
end Function
%>

▲返回顶部
Last modified by tommyhu on2011/07/02 16:41

Add a comment

Nickname

emotemotemotemotemotemotemotemotemotemotemotemotemotemotemotemot