一个不错的随机函数
添加时间: 2006-5-4 23:44:26 作者: ASP教程 阅读次数:74 来源: http://d9soft.com
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
%>
上下文章:
上一篇文章: 一套加解密字符串的函数 下一篇文章: 按下回车键指向下一个位置的一个函数