Как сгенерировать 17-ти значное число?

[Yuri_S]

Надо сгенерировать с помощью rnd 17-ти значное число, но в форме прямого числа, без всяких експонент типа 7,05547511577606E+15....надо просто число( например 5263820183745638).Как такое устроить?

[mad_Max]

Генерируешь Randomom 17 цифр от 0 до 9 (кроме первого - оно не должно быть нулем), переводишь их в String функцией Cstr() и складываешь в один String.
Примерчик (за правильность не ручаюсь, но идея та же):
dim tmpStr as string
dim i as integer
dim j as integer
randomize
for i = 1 to 17
j = rnd*9
tmpStr = tmpStr & cstr(j)
next i
msgbox tmpStr
Если тебе надо выполнять математические операции с ентим числом, то переводишь его из String в соответствующий тип.

[Yuri_S]

а спасибо.......попробую