ник: snipe
Dim VarName(1 to XX) As Doudle' тут вместо ХХ должно стоять конкретное число если не знаете
' какое - объявляйте массив с запасом либо читайте про динамические массивы
For i = 1 To XX
VarName(i) = (Int((YYY) * Rnd + 1))
Next i
целая часть числа YYY умноженная на случайное число в диапазоне от 0 до 1 плюс 1
непонятно