首页 相关文章 一个不错的随机函数

一个不错的随机函数

<%
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
%[ 查看全文 ]

2016-01-29 标签:

一个不错的随机函数的相关文章

手机页面
收藏网站 回到头部