如何把数组随机排列

如何把数组随机排列？

很基础的，我用vb编写。

Private Sub Command1_Click()

Dim a(10) As Integer, i As Integer, j As Integer

Randomize

Print "初始顺序的数字:"

For i = 1 To 10

a(i) = 20 Int(61 * Rnd())

Print a(i)

Next i

Print

For i = 1 To 5

j = a(i): a(i) = a(11 - i): a(11 - i) = j

Next i

Print "颠倒后的数字:"

For i = 1 To 10

Print a(i)

Next i

Print

End Sub