[筆記] 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
 

 

 

 

You forgot to set the qrcode for Alipay. Please set it in _config.yml.
You forgot to set the qrcode for Wechat. Please set it in _config.yml.
You forgot to set the business and currency_code for Paypal. Please set it in _config.yml.
You forgot to set the url Patreon. Please set it in _config.yml.
Your browser is out-of-date!

Update your browser to view this website correctly. Update my browser now

×