Список проголосовавших за комментарий "ES1667, по уму, так надо вынести генератор в отдельные циклы перед основным:<br/> Dim dXX#(), dYY#()<br/> ReDim dXX(2 To iMax): ReDim dYY(2 To iMax)<br/> <br/> Randomize ' инициализация Rnd<br/> For i = 2 To iMax<br/> dXX(i) = Rnd<br/> Next<br/> <br/> Randomize ' инициализация Rnd<br/> For i = 2 To iMax<br/> dYY(i) = Rnd<br/> Next<br/> <br/> а в основном цикле убрать генерирование на лету, и подсталять элементы массивов."