急用啊？？？各位大虾帮帮忙

Question

做一个有10000个元素的数组,然后再打乱顺序就可以了

Answer 1

Private Sub Command1_Click()
    Dim arr(9999) As Integer
    Dim i As Integer, j As Integer, tmp As Integer
    
    For i = 0 To 9999
        arr(i) = i + 1
    Next i
    
    Randomize Timer
    
    For i = 0 To 9999
        j = Int(Rnd() * 10000)
        tmp = arr(j)
        arr(i) = arr(j)
        arr(j) = tmp
    Next i    For i = 0 To 9999
        Debug.Print arr(i)
        If arr(i) = 10000 Then
            MsgBox "10000"
        End If
    Next i
End Sub