作者terrybob (翔翔)
看板Web_Design
标题[问题]乱数取3个
时间Thu Oct 18 03:14:20 2007
大家好，我又来发问了…@@！以下是asp程式语法
txt=10
dim aSum(2)
k=0
while k<3
Randomize()
a=1+int(rnd()*txt)
aSum(k)=a
k=k+1
wend
但这样仍然会有重复，因为没有比对，但我加了比对後，变成输出只有某一特定数字…
如下：
1 txt=10
2 dim aSum(2)
3 k=0
4
5 while k<3
6 Randomize()
7 a=1+int(rnd()*txt) '1~最大笔数
8 aSum(k)=a '5,10,2
9 for j=0 to uBound(aSum)
10 if aSum(j)=a then
11 aSum(j)=""
12 else
13 k=k+1
14 end if
15 next
16 k=k+1
17 wend
= =，後来发现，因为第10行，第一次比对时，
本来就会跟第8行求出的随机数字一样，所以三次输出，都会一样…> <…
後来我就想，大概是要三次随机数字都存入aSum阵列之後，
再作资料比对…但是，若是比对有重复，又要再跑随机？= =
我卡住了…> <！有没有高手可以提示我，该怎麽作…？呜~~~
--
朝叩朱门吃余餐
嗟来冷眼有德颜
归途踏尽金砖路
漫天彩霞不用钱
吾乃…富贵乞丐-花爵百链生
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 203.67.54.148
1F：推 TKirby:aSum(k)=a摆在比对後就好啦 10/18 03:51
2F：推 dingyuchi:Randomize 移到while外面 10/18 14:18
3F：推 yanli2:直接把1-10放进某个阵列，然後打乱该阵列排序,最後取前三 10/18 20:16