一个不错的随机函数

一个不错的随机函数 时间：2024-2-12作者：未知来源：三度网教程人气：

<%
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
%>

关键词： 一个不错的随机函数

免责声明：本站资源均来自互联网收集如有侵犯到您利益的地方请及时联系管理删除，敬请见谅!

QQ:1006262270 邮箱:kfyvi376850063@126.com 手机版