Генератор случайных чисел и одинаковая последовательность - VB

Формулировка задачи:

Есть генератор случайных чисел:
Function GenXzn(ByVal nLen As Long, Optional ByVal NoZero As Boolean = False) _
As Double
Dim s$, i%
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
Private Sub Form_Load()
Label1.Caption = GenXzn(1)
End Sub
При новой загрузки постоянно идет одна и таже последовательность 14,10,11,5,6,15,0 и.т.д. Как избежать этой постоянной последовательности, что бы действительно были случайные числа.

Код к задаче: «Генератор случайных чисел и одинаковая последовательность - VB»

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

10   голосов, оценка 3.600 из 5


СДЕЛАЙТЕ РЕПОСТ