一個不錯的隨機(jī)函數(shù)
發(fā)布時間：2008-07-09 閱讀數(shù)： 次 來源：網(wǎng)樂原科技
<%
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
%>
桂公網(wǎng)安備45010502000253號
電子營業(yè)執(zhí)照
