Compile Error: Next without For

[techgnome]

close... after setting your boolean when you find the duplicate, you need to exit the for loop... otherwise when it checks the next number, it DOESN'T match and it re-sets your boolean.

The alternative is to set the boolean to FALSE before you start you loop AND ONLY change it when you find a match.

or both... which is probably how I'd do it given the code you have.

Dim FoundDuplicate as boolean
While (i < 28)
Ge&#231;ici(i) = RandomSayi(0, 80)
  FoundDuplicate = False 'assume no duplicate
    For k = 0 To i - 1 Step 1
       If (Ge&#231;ici(i) = Ge&#231;ici(k)) Then
         FoundDuplicate = True ' set a flag showing we found a duplicate
         exit For ' this exits the for loop... since we found a duplicate, there's no point in checking the rest.
       End If
     Next k
     If not FoundDuplicate  Then 'if no duplicate was found
        Kalıcı(i) = Ge&#231;ici(i)
        lbIndis.AddItem (Str(Kalıcı(i)))
        i = i + 1 ' move on to the next one
    End If
   
Wend

\-tg