Поделиться
82. Microsoft Excel.doc
Генерация случайных чисел
|
В примере, в диапазон A1:A10 выводятся случайные числа от 1 до 1000 view plainprint? 1. Sub RandomNumbers() 2. Dim Rand As Range 3. Randomize 4. For Each Rand In Range("A1:A10") 5. Rand = (Int(1 + (Rnd() * 1000))) 6. Next Rand 7. End Sub |
Скачано с www.znanio.ru
Материалы на данной страницы взяты из открытых источников либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.
