Генератор случайных чисел и одинаковая последовательность - 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

Оцени полезность:

10   голосов , оценка 3.6 из 5
Похожие ответы