"Обнуление" функции Rnd

[a.v.a.x.]

Столкнулся с проблемой. При инициализации Vba.Randomize в функции модуля при работе в самих процедурах программы генерируется также произвольная, а не псевдопроизвольная последовательность. Вопросы такие:

1. Vba.Randomize рассчитана на всю программу при инициализации ее один раз или только в пределах конкретной функции (процедуры)?

2. Можно ли сбросить Vba.Randomize за пределами модуля в процедурах?

Заранее спасибо.

[tyomitch]

Vba.Randomize рассчитана на всю программу.
Что конкретно нужно автору, я не понял.

[a.v.a.x.]

Vba.Randomize рассчитана на всю программу.
Что конкретно нужно автору, я не понял.

Мне нужно следующее: в одной части программы используется псевдопроизвольный генератор числел, в функциях в модуле программы используется произвольный генератор чисел. После введения в модуле произвольного генератора чисел, как вы и сказали, числа генерируются произвольно во всей программе. Как сделать псевдопроизвольную и произвольную генерацию автономными друг от друга? Какой код дает относительно "произвольную" генерацию чисел без использования Vba.Randomize? У меня после Vba.Randomize "слетает" псевдопроизвольная генерация.

[Amed]

1) Что понимается под произвольной и псевдопроизвольной генерацией в данном случае?
2) Покажите код, как реализовано использование псевдопроизвольного и произвольного генератор чисел

[a.v.a.x.]

1) Что понимается под произвольной и псевдопроизвольной генерацией в данном случае?
2) Покажите код, как реализовано использование псевдопроизвольного и произвольного генератор чисел

1. Под псевдопроизвольной генерацией понимается такая генерация чисел, которая при повторном запуске программы не была бы отлична он генерации, созданной при предыдущем запуске. Достигается путем использования Vba.Randomize.

2.1 Исполнение псевдопроизвольного генератора

Dim K As Integer

K = Int(Rnd * 100)

2.2. Исполнение произвольного генератора

Dim K As Integer

Vba.Randomize

K = Int(Rnd * 100)

[tyomitch]

Генератор случайных чисел в VB один и глобальный.
Чтобы иметь несколько независимых генераторов, нужно реализовывать их самому.

[a.v.a.x.]

Генератор случайных чисел в VB один и глобальный.
Чтобы иметь несколько независимых генераторов, нужно реализовывать их самому.

Спасибо.