Non-repeating Random No's

[Gary Collantine]

Apart from being a complete beginner with VB, I would like to know how to generate a group of 6 random numbers (displayed in 6 labels) with none of those numbers being the same.

I am already aware of the Int(RND * 49)+1 code line that creates a random number between 1 and 49. How can i get non-repeating numbers in my question above?

You could try the following:

Dim x As Integer
Dim y As Integer
Dim Numbers(1 To 50) As Boolean
Dim Labels(1 To 6) As Integer
Dim TempInt As Integer
For x = 1 To 50
   Numbers(x) = False
Next x
x = 0
Do
   x = x + 1
   TempInt = Int((Rnd * 49) + 1)
   For y = 1 To 50
      If TempInt = y Then
         If Not Numbers(y) Then
            Numbers(y) = True
            Labels(x) = TempInt
            Exit For
         Else
            x = x - 1
            Exit For
         End If
      End If
   Next y
Loop Until x = 6
Label1.Caption = Labels(1)
Label2.Caption = Labels(2)
Label3.Caption = Labels(3)
Label4.Caption = Labels(4)
Label5.Caption = Labels(5)
Label6.Caption = Labels(6)

------------------
Boothman

There is a war out there and it is about who controls the information, it's all about the information.

[RenegadeMike]

Try this, but first put the labels into an array:

Randomize Timer
For i = 0 To 5
again:
Label1(i).Caption = Int(Rnd * 6) + 1
For j = 0 To 5
If i = j Then GoTo skip
If Label1(i) = Label1(j) Then GoTo again
skip:
Next j
Next i