明輝手游網(wǎng)中心：是一個免費提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺！

一個不錯的隨機函數(shù)

發(fā)表時間：2023-08-13 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：

[摘要]<%Dim myarrFor i = 0 To 100Randomizeno = Int((1000-1+1)*Rnd+1)For j = 0 To iIf no <> myarr...
<%
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
%>