Тебе надо показать пример использования функции rnd? Если так то держи(Из справочника Климова):
| Цитата |
Функция Rnd
Rnd[(Number)]
Функция Rnd(Random) служит для генерации случайных чисел
Возвращаемое значение
Функция Rnd возвращает значение в диапазоне от 0 до 1 типа Single, содержащее случайное число(причем 1 не входит в этот диапазон, а 0 входит). Строго говоря, функция возвращает псевдослучайные числа. При каждом запуске программы, функция генерирует одну и ту же последовательность случайных чисел. Во избежания этого явления используйте инструкцию Randomize
Примечание:Чтобы получить значения случайных чисел в интервале от min до max используйте формулу:
Int((max - min + 1) * Rnd + min),где min и max-минимальное и максимальное число соответственно
Параметры
Number
Необязательный аргумент представляет число типа Single или любое допустимое числовое выражение. Аргумент может принимать следующие значения:
Аргумент опущен или больше 0
Генерируется следующее случайное число в последовательности. При повторном запуске программы генерируется аналогичная последовательность случайных чисел
Аргумент отрицательный
Генерируется одно и то же число, используя аргумент как опорное число
Аргумент равен 0
Генерируется одно и то же число, используя число при предыдущем вызове функции
Пример
' Генерируем случайные числа от 1 до 7
Dim MyValue
MyValue = Int((7 * Rnd) + 1)
Print MyValue 'выводим число на форме
|
|
)