Перемешивание значений массива - Visual Basic .NET

Формулировка задачи:

Имеется массив нужно перемешивать их значения. помогите пожалуйста!

 Dim myarray(15) As Integer
        For i = 1 To 15
            myarray(i) = i
        Next

Решение задачи: «Перемешивание значений массива»

textual
                            Листинг программы 
                        

                            Sub ShuffleArray(arr As Integer())
    Dim rnd As New Random
    For I = 0 To arr.Length - 1
        Dim idx As Integer = rnd.Next() Mod arr.Length
        Dim temp As Integer = arr(I)
        arr(I) = arr(idx)
        arr(idx) = temp
    Next
End Sub
                        

Оцени полезность:

10 голосов , оценка 4.2 из 5

Похожие ответы