Re: [ASP ] 有關於亂數不重覆
生成不重複的亂數 我都習慣用字串來處理
Dim str = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
Dim randomStr
Dim i
Randomize
For i = 1 to 10
randomStr = Mid( str , Int(rnd*Len(str)+1) , 1 )
str = Replace( str , randomStr , "")
Next
--
把這段code改成你的需求
--
Dim str = "0123456789"
Dim randomStr
Dim i
Randomize
For i = 1 to 8
randomStr = Mid( str , Int(rnd*len(str)+1) , 1 )
Response.write randomStr & ".gif"
str = Replace( str , randomStr , "")
Next
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.128.194.78
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 3 之 4 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
