[RESOLVED] Loop thru textboxes to find missing digits

Ok. I'm stumped. I have a set of 10 textboxes.

the first 8 boxes will store a digit from 0 to 9.

the last two text boxes will be empty.

My issue: in the last (2) textboxes I want to find the missing values that where not entered in boxes 1 thru 8.

(EXAMPLE: if numbers 0 1 2 3 4 5 6 7, are listed in textboxes 1 thru 8 then the missing digits will be 8 & 9 to be displayed in the last two text boxes).

I tried looping but was not able to get it right. Any suggestions? Nested loops? Any help would be greatly appreciated.

'The following has no error detection yet.
'Place on the Form, a control array of textboxes called txtNumbers with Indexes 0 to 9

Code:

---

Option Explicit

Private Sub Command1_Click()
 Dim arrNumbers(0 To 9) As Boolean  'As each number is found the equivalent element of this boolean array is set to True
 Dim i As Integer
  'Clear boxes 8 and 9 so user can keep trying other numbers
  txtNumbers(8).Text = ""
  txtNumbers(9).Text = ""
  'Loop through the first 8 boxes
  For i = 0 To 7
    arrNumbers(CInt(txtNumbers(i).Text)) = True  'Whatever number was typed, set the equivalent element to True
  Next i
  'Now loop through the boolean array elements to see which are still False (means that number was not typed by user)
  For i = 0 To UBound(arrNumbers)
    If arrNumbers(i) = False Then
        If txtNumbers(8).Text = "" Then
          'Place the first missing number (not typed) into box 8  because we had not placed anything in 8 yet
          txtNumbers(8).Text = i
        Else
          'Place the 2nd missing number (not typed) into box 9  because we had already placed a number into box 8
          txtNumbers(9).Text = i
        End If
    End If
  Next i
End Sub

---

I have a simple suggestion
Let us keep the tags of the 2 empty text boxes as 0.

Dim i, j as integer
Dim sum as integer

For i = 0 to 9
Sum=0
For j=0 to 7
If textbox (j).text= i then
sum=sum+1
End If
Next j

If sum > 0 then
If emptytext1.tag=0 then
empty text1.tag=1
empty text1.text=i
else
empty text2.text=i
end if
end if

Next i


Now make a loop that runs 10 times
For each execution , let the loop concentrate on a specific number.
Inside the loop make another nested loop that checks each text box for the specific number .
If a number is absent,
Put that to the required text box and change its tag to 1, if it's tag is 0 .

I think in this case, a collection may be the easiest way to go. Most of this code is just setting up data to work with. The important part is within the cmdCheck_Click event. Attached is a functional sample.

Code:

---

Private Sub cmdAddRandom_Click()
    ' Add test numbers to the textboxes
    AddRandomNumbers
End Sub

Private Sub ClearTextBoxes()
Dim i As Integer

    For i = 0 To 9
        txtNumbers(i).Text = ""
    Next i
End Sub

Private Sub AddRandomNumbers()
Dim col As Collection
Dim i As Integer
Dim r As Integer

    ' Clear all textboxes to start with
    ClearTextBoxes

    Set col = GetCollection
   
    For i = 0 To 7
        ' Get a random index for the collection
        r = Int(Rnd() * col.Count) + 1
        ' Add that collection item to the textbox
        txtNumbers(i).Text = col(r)
        ' Remove the collection item so it isn't reused
        col.Remove (r)
    Next i
   
    ' Cleanup
    Set col = Nothing
   
End Sub

Private Function GetCollection() As Collection
Dim col As Collection
Dim i As Integer
   
    Set col = New Collection

    ' Create a collection to initialize the textboxes
    For i = 0 To 9
        col.Add CStr(i), CStr(i)
    Next i
   
    Set GetCollection = col
   
    Set col = Nothing
End Function

Private Sub cmdCheck_Click()
Dim i As Integer
Dim col As Collection

    Set col = GetCollection
   
    ' Remove items from the collection that are found in the textboxes
    For i = 0 To 7
        col.Remove txtNumbers(i).Text
    Next i
   
    ' Deal with the results
    txtNumbers(8).BackColor = vbGreen
    txtNumbers(8).Text = col(1)
   
    txtNumbers(9).BackColor = vbGreen
    txtNumbers(9).Text = col(2)
   
   
    ' Cleanup
    Set col = Nothing
End Sub

Private Sub Form_Load()
    Randomize
End Sub

---

Thanks for all who replied. Great coding tips. I was close on the looping but could not get the values without errors! Looping vs collections, I think both where great! You guys rock!! thanks again.