Перемешать данные в массиве

[Osteon]

Здравствуйте.
Собственно, в теме и весь вопрос - как перемешать данные в массиве случайным образом? Например, перемешать вопросы в тестировании, или файлы в папке, ну и многое подобное...
У меня нет лучшего решения, чем создать двумерный массив, в первую размерность которого записать данные нужного массива, во вторую - рандомные числа с соответствующей проверкой, чтобы не было совпадений, а затем отсортировать по второй размерности, перенести данные в одномерный массив, уничтожив двумерный. Ну, или не уничтожать двумерный, просто брать данные из первой размерности.
Мне кажется, что алгоритм несколько корявый... Есть ли более "красивые" решения?

[Хакер]

Бред какой-то.

Для 50 элементов, которые нужно расположить в случайном порядке, ты предлагаешь иметь двухмерный массив с 2500 элементами?
Красивых решений большое количество. Попробуй подумать получше или хотя бы погуглить.

[ger_kar]

А зачем данные вообще перемешивать непосредственно в массиве? Не проще ли, если нужны случайные данные из массива - просто выбирать данные из него по случайному индексу? Используя этот же прием можно и в новый массив данные переопределить.

[Mikle]

Можно просто несколько раз выбрать случайную пару индексов и поменять элементы местами.

[The trick]

Функция получения случайных чисел без повторения от 1 до максимального заданного при инициализации.

Код: Выделить всё

Private Sub Form_Load()
    Dim i       As Long
    Dim max     As Long
   
    ' Максимальное число
    max = 20
   
    ' Инициализация
    NextRnd True, max
   
    ' Получение
    For i = 0 To max - 1
        Debug.Print NextRnd
    Next
   
End Sub

' Для инициализации передаем первым параметром True, вторым максимальное число
Private Function NextRnd(Optional ByVal Reset As Boolean, Optional ByVal i As Long = 1000) As Long
    Static dat() As Long, Idx As Long, Count As Long
   
    If Reset Then Count = i: ReDim dat(Count - 1): Exit Function
    If Count = 0 Then MsgBox "Нет чисел": Exit Function
    Idx = Int(Rnd * Count): NextRnd = dat(Idx): Count = Count - 1
    If NextRnd = 0 Then NextRnd = Idx + 1
    If dat(Count) = 0 Then dat(Idx) = Count + 1 Else dat(Idx) = dat(Count)
End Function

[Qwertiy]

Вот несколько алгоритмов перемешивания. Переписать нужный на VB6 не должно стать проблемой.

PS: Ссылка взята отсюда.

[Osteon]

Не проще ли, если нужны случайные данные из массива - просто выбирать данные из него по случайному индексу?

Действительно, как-то даже не подумалось - можно рандомизировать цифирЬки, по количеству равных размеру массива, "номиналом" не больше размера массива... Потом по ним делать выборку...

Можно просто несколько раз выбрать случайную пару индексов и поменять элементы местами.

Мне кажется, это несколько сложнее реализовать программно... ИМХО, естественно...

Функция получения случайных чисел без повторения от 1 до максимального заданного при инициализации.

Тока я не знаю функцию NextRnd в VB6... А от более современных я далек весьма... Нашел http://www.cyberforum.ru/vba/thread1245137.html что-то похожее. Это та функция?

Вот несколько алгоритмов перемешивания. Переписать нужный на VB6 не должно стать проблемой.

Действительно, красивые решения...

Спасибо всем большое за наставления!

Отдельное спасибо вежливому, воспитанному, тактичному и педагогичному Хакеру-Телепату за всеобъемлющую и исчерпывающую консультацию любителю VB6, да не изотрутся его нежные пальчики о клавиатуру во веки веков!!!

[ger_kar]

Тока я не знаю функцию NextRnd в VB6...

NextRnd это не встроенная функция VB6, а функция написанная на VB6, которую написал The trick и привел пример её использования. В том куске кода которые он привел содержится и функция и пример.

[Osteon]

В том куске кода которые он привел содержится и функция и пример.

От я Тупорылкин!!! Не догадался скролл прокрутить...

[Osteon]

The trick, огромное спасибо за NextRnd! Обалденная штука! Вот только "Debug.Print" ничего не пишет, так же как и "Print". Но когда я начал присваивать значения функции элементам массива, все пошло как по маслу. Это именно то, что мне нужно, свою задачу я решил за 10 минут.