Курсовая работа на Visual Basic

    Генератор случайных чисел на Visual Basic. Функция Randomize инициализирует генератор случайных чмсел. Объявление функции Public Shared Sub Randomize ([ Number ])
    Если параметр Number опущен, то в качестве нового значения используется значение, возвращаемое системным таймером.
    Можно повторить сгенерированную последовательность случайных чисел. Для этого надо вызвать Rnd с отрицательным аргументом непосредственно перед вызовом Randomize с числовым аргументом.

    Оператор Random и функция Rnd (Visual Basic) генерируют определенный диапазон чисел с псевдослучайной последовательностью. Поэтому использовать их в шифровании и создании паролей можно с ограничениями.
    Пример, в котором оператор Randomize используется для инициализации генератора случайных чисел. Т.к. числовой аргумент Number опущен, функция Randomize в качестве нового начального значения использует значение, полученное от функции Timer.

    Randomize() - инициализация генератора
    Dim value As Integer = CInt(Int((6 * Rnd()) + 1)) - генерируем число от 1 до 6

    Наглядный пример - добавьте на форму кнопку и напишите для нее следующий код:

    Private Sub Command1_Click()

    Form1.Print Rnd
    Form1.Print Rnd
    Form1.Print Rnd
    Form1.Print Rnd
    Form1.Print Rnd
    Form1.Print Rnd

    End Sub

    При нажатии на кнопку Command1 в форму Form1 будет записано 6 случайных чисел.
    Чтобы сгенерировать более качественную последовательность случайных чмсел инициализируем начальный источник (initial seed) оператором Randomize
    Пример будет выглядеть так:

    Private Sub Command1_Click()

    Randomize
    Form1.Print Rnd
    Form1.Print Rnd
    Form1.Print Rnd
    Form1.Print Rnd
    Form1.Print Rnd
    Form1.Print Rnd

    End Sub

    Как сгенерировать случайное число в диапазоне [0-X], а не только [0-1]. Нужно просто округлить произведение Rnd*X

    Form1.Print Int(Rnd * 100)

    Этот код генерирует случайное число в диапазоне от 0 до 99 потому, что функция Int - отбрасывает дробную часть от вещественного числа.
    Чтобы сгенерировать числа в диапазоне 7-10 (пример) используем следующую запись на Visual Basic

    Form1.Print Int((10 - 7 + 1) * Rnd + 7)

    Найти еще про Randomize >>>>