栏目列表
 
 
首页 > 站长学院 > ASP专区 > 一个不错的随机函数
 

一个不错的随机函数

日期：2004-06-18 00:00:00  来源：动网
请您记住思索网的网址： http://www.4so.net  [加入收藏夹]

    <%
Dim myarr
For i = 0 To 100
Randomize
no = Int((1000-1+1)*Rnd+1)
For j = 0 To i
If no <> myarr(j) And no <> "" Then
j = j + 1
Else
Exit For
End If
myarr(i) = no
Next
If i = 21 Then
Exit For
End If
Next
%>

  本文地址：http://www.4so.net/web/asp/297.html
将本页加入收藏夹  将地址复制到剪贴板发送给好友  若发现本文有误或版权问题点击这里

 
 
热门信息
 
相关文章
 
 
文章评论 收藏本文 打印本文 关闭窗口