怎么将1-100随机排列？

Private Sub Command1_Click()
Dim intArray(99) As Integer
Dim intIndex(1) As Integer
Dim intTemp As Integer
Dim i As Integer
For i = 0 To 99
     intArray(i) = i + 1
Next
Randomize
For i = 0 To 99
     intIndex(0) = Int(Rnd * 100)
     intIndex(1) = Int(Rnd * 100)
     intTemp = intArray(intIndex(0))
     intArray(intIndex(0)) = intArray(intIndex(1))
     intArray(intIndex(1)) = intTemp
Next
'输出数组的代码
End Sub

http://tieba.baidu.com/f?kz=200887314
4L

谢谢！
我非常抱歉挖了坟墓，但我一个星期只能用一次电脑，这是不得以为之，见谅