作者bennylu (Benny)
看板Visual_Basic
标题Re: [ASP ] 有关於乱数不重覆
时间Wed Mar 29 19:29:51 2006
生成不重复的乱数 我都习惯用字串来处理
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