Функция Rnd

Функция Rnd (Random) служит для генерации случайных чисел

Функция Rnd возвращает значение в диапазоне от 0 до 1 типа Single, содержащее случайное число (причем 1 не входит в этот диапазон, а 0 входит). Строго говоря, функция возвращает псевдослучайные числа. При каждом запуске программы, функция генерирует одну и ту же последовательность случайных чисел. Во избежания этого явления используйте инструкцию Randomize

Примечание:Чтобы получить значения случайных чисел в интервале от min до max используйте формулу:

Int((max - min + 1) * Rnd + min)

Number

Необязательный аргумент представляет число типа Single или любое допустимое числовое выражение. Аргумент может принимать следующие значения:

Аргумент опущен или больше 0	Генерируется следующее случайное число в последовательности. При повторном запуске программы генерируется аналогичная последовательность случайных чисел
Аргумент отрицательный	Генерируется одно и то же число, используя аргумент как опорное число
Аргумент равен 0	Генерируется одно и то же число, используя число при предыдущем вызове функции

' Генерируем случайные числа от 1 до 10
Dim MyValue As Byte
MyValue = Int((10 * Rnd) + 1)