[筆記] ASP 亂數陣列

尾牙可能會用到…

簡單說就是XX排序，不過我忘記那個名詞了.. (bubble ? )

dim myarray(60)

for i = 1 to 60

myarray(i) = i

Next

for j = 1 to 59

randomize

j1 = Int((60-1+1) * Rnd +1 )

k1 = Int((60-1-1)*Rnd+1)

t1 = myarray(j1)

myarray(j1) = myarray(k1)

myarray(k1) = t1

Next