Подскажите команду Любого числа (Random),
то есть к примеру любое число от 1 до 40

(0) создай таблицу значений от 1 до 40. Выбирай в ней число исходя из значения текущего времени

СП читай
ГенераторСлучайныхЧисел() вроде так

Книга знаний: Генератор случайных чисел в 1С

В 8.0 для получения случайных чисел можно использовать встроенный генератор GUID.
Вот пример простенькой функции:

//только для целых чисел
Функция ПолучитьСлучайноеЧисло(Мин,Макс)
   
   //вместо Randomize
   Для н = 1 По 100 Цикл
       Уник = Новый УникальныйИдентификатор;
   КонецЦикла;
   
       //генерируем GUID
   Уник = СокрЛП(Новый УникальныйИдентификатор);

       //оставляем только цифры
   Уник = СтрЗаменить(Уник,"-","");
   Уник = СтрЗаменить(Уник,"a","");
   Уник = СтрЗаменить(Уник,"b","");
   Уник = СтрЗаменить(Уник,"c","");
   Уник = СтрЗаменить(Уник,"d","");
   Уник = СтрЗаменить(Уник,"e","");
   Уник = СтрЗаменить(Уник,"f","");

   //знаменатель должен иметь такое же количество нулей + 1
   Знаменатель = 10;
   Для н = 2 По (СтрДлина(СтрЗаменить(Уник,Символы.НПП,""))) Цикл
       Знаменатель = Знаменатель * 10;
   КонецЦикла;
   
   Случ = Число(Уник) / Знаменатель; //здесь получается дробное случайное число от 0 до 1
   
   //преобразуем его в случайное число из заданного интервала, округляем до целого
   ЧислоИзИнтервала = Мин(Макс(Окр(Мин + (Макс-Мин)*Случ),Мин),Макс);
   
   Возврат ЧислоИзИнтервала;

КонецФункции

(1) проще создать 40 текстовых файлов с названием из 40 чисел. и выбирать файл и номер в названии исходя из фазы Луны и положении Венеры относительно созвездия Скорпиона

(4) качественнее заменит буквы их ASCII кодами

спасибо за быстрый ответ