Помоги! Нужно 4 неповторяющихся числа.(RND())

[Тимофей_кг]

Помогите пожалста. А то я написал а у меня не работает.

[Alexander N. Samarin]

Randomize Timer
A1 = Rnd
A2 = Rnd
A3 = Rnd
A4 = Rnd

[Snussi]

В чем проблема-то?
Если в том, что при каждом запуске проги генерируются одни и те же числа - юзай Randomize timer перед инициализацией.
А если просто нужно, чтобы в пределах одного массива числа не повторялись - то

Код: Выделить всё

    Randomize Timer
    Dim arr(3) As Double
    Dim tmpNumber As Double
    Dim OK As Boolean
    Dim i As Long, j As Long
    For i = 0 To UBound(arr)
mmm:
        tmpNumber = Rnd
        OK = True
        For j = 0 To i
            If tmpNumber = arr(i) Then
                OK = False
                Exit For
            End If
        Next j
        If OK = False Then GoTo mmm
    Next i


Но, вообще-то, RND крайне редко повторяет значения.

[Alexander N. Samarin]

Но, вообще-то, RND крайне редко повторяет значения.

Всего лишь 1 из 10000000 раз

[uhm]

> Всего лишь 1 из 10000000 раз

Кто это тебе сказал??

[Snussi]

В принципе, не очень редко (благо само распределение - равновероятное), но редковато...

[Alexander N. Samarin]

> Всего лишь 1 из 10000000 раз

Кто это тебе сказал??

Это от балды сказано

[ism]

Использование оператора GoTo является дурным тоном.

Код: Выделить всё

Dim arr(3) As Double
    Dim tmpNumber As Double
    Dim OK As Boolean
    Dim i As Long, j As Long
    Randomize
   
    For i = 0 To UBound(arr)
        tmpNumber = Rnd
        OK = True
        For j = 0 To i
            If tmpNumber = arr(j) Then
                OK = False
                Exit For
            End If
        Next
        If OK Then arr(i) = tmpNumber Else i = i - 1
    Next

[Igor_123]

Использование оператора GoTo является дурным тоном

Между прочим

For i = 0 To UBound(arr)
...
If OK Then arr(i) = tmpNumber Else i = i - 1 <<< Ещё более дурной тон
Next

Автору удачи в исканиях

[Alexander N. Samarin]

Замучали бедного человека .......................

[Igor_123]

Который бедный

[Alexander N. Samarin]

Который бедный

Аффтар!

[Igor_123]

Ну на то он и аффтар!!!

[Тимофей_кг]

Спасибо вам от АФФТАРА.