set of random ints

[moonguy]

so what am i doing wrong here:


Dim arr(9) As Integer
Dim i As Integer
Dim j As Integer
Dim nxt As Integer

Private Sub Form_Load()
i = 0
Randomize
Do While i < 10
For j = 0 To i
nxt = Rnd * 10 \ 1
If nxt = arr(j) Then
Else: arr(i) = nxt
End If
i = i + 1
Next
Loop
End Sub