Генератор случайных чисел выдает одни и те же значения - Visual Basic .NET

Узнай цену своей работы

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

Вопрос по генератору случайных чисел! Скачал где-то код, подправил под свои нужды, но... Задача. Необходимо разместить 19 чисел (от 1 до 19) случайным образом. Повторения исключены и чисел должно быть именно 19. Каждое число записывается в отдельную переменную. При следующем обращении в этих переменных уже другие числа из заданного диапазона. Все работает, только генерируются 18 чисел и одно повторяется два раза. И еще не знаю, как этот массив разбить по разным переменным. Вот сам код

Решение задачи: «Генератор случайных чисел выдает одни и те же значения»

textual
Листинг программы
    Dim i, j, arr(18) As Integer
    Randomize
    For i = 0 To 18
        j = Int(Rnd * i)
        arr(i) = arr(j)
        arr(j) = i+1
    Next i

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

12   голосов , оценка 4 из 5
Похожие ответы