|
一个不错的随机函数 |
<%
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
%>
|
|
更新日期：2004-12-17 |
其它相关文章 |
·一个不错的随机函数 (2004-12-17) ·利用随机函数获取某一范围的整数及其应用 (2002-10-2)
|
|
|
| |
