Генератор случайных чисел и одинаковая последовательность - VB
Формулировка задачи:
Есть генератор случайных чисел:
При новой загрузки постоянно идет
одна и таже последовательность
14,10,11,5,6,15,0 и.т.д.
Как избежать этой постоянной последовательности,
что бы действительно были случайные числа.
Решение задачи: «Генератор случайных чисел и одинаковая последовательность»
textual
Листинг программы
Function GenXzn(ByVal nLen As Long, Optional ByVal NoZero As Boolean = False) _ As Double Dim s$, i% Randomize Timer Do While (Len(s) < nLen) i = Int(Rnd * 20) If (CBool(i) Or Not (CBool(i) Or NoZero)) Then s = s & i Loop GenXzn = Int(s) End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д