注册 登录
  • 欢迎访问开心洋葱网站,在线教程,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站,欢迎加入开心洋葱 QQ群
  • 为方便开心洋葱网用户,开心洋葱官网已经开启复制功能!
  • 欢迎访问开心洋葱网站,手机也能访问哦~欢迎加入开心洋葱多维思维学习平台 QQ群
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏开心洋葱吧~~~~~~~~~~~~~!
  • 由于近期流量激增,小站的ECS没能经的起亲们的访问,本站依然没有盈利,如果各位看如果觉着文字不错,还请看官给小站打个赏~~~~~~~~~~~~~!

指定范围内指定个数不重复随机数ASP代码

其他 开心洋葱 2029次浏览 已收录 0个评论 手机上查看

<%
'生成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
%>


开心洋葱 , 版权所有丨如未注明 , 均为原创丨未经授权请勿修改 , 转载请注明指定范围内指定个数不重复随机数ASP代码
喜欢 (0)
[开心洋葱]
分享 (0)
关于作者:
开心洋葱,开心洋葱头,水墨

您必须 登录 才能发表评论!

……
加载中……