Не совпадающие числа

[neic]

Как сделать так чтобы в списке не совпадли числа при добавлении в список сгенерированых чисел?

[Морфий]

Каждый раз циклом просматривать каждое число из списка и сравнивать его с сгенерированным.

[neic]

...просматривать каждое число из списка и сравнивать его с сгенерированным.

Ваще-то у меня это и не получаеться!

[Морфий]

А где ты хранишь сгенерированные числа? В массиве?

[Jenizix]

А это не поможет?

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


Private Sub Command1_Click()
    For i = 0 To List1.ListCount
        If List1.List(i) = CStr(Rnd) Then Exit For
    Next
    List1.AddItem Rnd
End Sub


[_Мика_]

Private Sub Command1_Click()
For i = 0 To List1.ListCount
If List1.List(i) = CStr(Rnd) Then Exit Sub
Next
List1.AddItem Rnd
End Sub

[Jenizix]

Мика, ты че?! Я же тоже самое написал!!!

[GSerg]

Во-первых, он написал не то же самое, а во-вторых, ни то, ни другое работать не будет Хотя бы потому, что при каждом вызове Rnd будет возвращать новое число. Нужно его запоминать в переменную для начала

[Cryonyx]

А ещё можно искать через SendMessage...
Быстрее будет

[Memfivosfey]

На форме List1:

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

Private Sub Form_Load()
    Dim X As Long
    Dim J As Integer
    Dim Count As Integer
   
    Dim ExistInArray As Boolean
   
    Count = 100

    For J = 0 To Count
        Do
            ExistInArray = False
            Randomize Timer
            X = CLng(Rnd * Count)
            For I = 0 To List1.ListCount - 1
                If Val(List1.List(I)) = X Then ExistInArray = True: Exit For
            Next I
            If ExistInArray = False Then Exit Do
        Loop
        List1.AddItem X
    Next J
End Sub