您现在的位置:软界网技术中心WEB开发ASP > 技术显示
一个不错的随机函数
2004-6-18 0:00:00   网友评论       阅读次数 点此评论
   <%
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
%>
 
      来源: 作者:
 
【评论查看】
更多关于 一个不错的随机函数  的技术