随机遍历数组，很巧妙的算法

这块内容是在csdn论坛 的vb版碰巧看到的，觉的算法很巧妙，就记下来了。

<%

'随机遍历数组，很巧妙的算法

Dim i
Dim a(99), bound

bound = UBound(a)

For i = 0 To bound
    a(i) = i + 1
Next

Dim x
For i = bound To 0 Step -1
    x = CInt(Rnd*(i+1)) '记得这里 i要加上 1
    response.write a(x) & "<br>"
    '每次都把随机取到的数组内的某个值，用一个循环由下标从低到高依次替换；
    '这时候，随机取到的值就在当前循环中被去除了，不可能再次被随机到。
    For j = x To i-1
        a(j) = a(j+1)
    Next
Next


%>

<%
'随机遍历数组的另一种方法，但是破坏了原数组结构

Dim i, a(99), bound

bound = UBound(a)

For i = 0 To bound
    a(i) = i + 1
Next

For i = bound To 0 Step -1
    Dim x, temp

    x = CInt(Rnd * (i+1))
    response.write a(x) & "<br>"
    
    '把随机到的那个跟当前循环中下标最大的那个交换
    temp = a(x)
    a(x) = a(i)
    a(i) = temp
Next


%>