Find first element in an array

[mary13]

I am using an array to go through a file containing the numbers, 3, 77, 0, 29, 28 and I want to find the index FIRST multiple of 7, but my code finds all the mulitples of seven and outputs the index of 28 instead of 77.

Here is the coding I have so far:


Dim target() As Double
Dim upperbound As Integer

Form Load
Dim sr As IO.StreamReader = IO.File.OpenText("multiples.txt")
Dim change As Double
Dim i As Integer

upperbound = 0
Do While (sr.Peek <> -1)
change = sr.ReadLine
upperbound += 1
Loop
sr.Close()

ReDim target(upperbound)
sr = IO.File.OpenText("multiples.txt")
For i = 0 To upperbound - 1
target(i) = sr.ReadLine
Next
sr.Close()
End Sub

Private Sub btnDisplay_Click
Dim maxindx As Integer
lstBox.Items.Clear()
lstBox.Items.Add(find(maxindx))
End Sub

Function find(ByVal maxindx As Double) As Double
Dim i As Integer
Dim found As Double

maxindx = 0
For i = 0 To upperbound - 1
If target(i) Mod 7 = 0 Then
found = target(i)
maxindx = i
End If
Next i
Return maxindx

End Function

Thanks for helping!

 

[PlausiblyDamp]

the for ... next loop will keep looping till all items in the array have been checked - you will need to either count backwards through the items or exit the loop when a match is found

For i = 0 To upperbound - 1
    If target(i) Mod 7 = 0 Then
        found = target(i)
        maxindx = i
        Exit For     'This should exit the loop after a match
    End If
Next i

 

[mary13]

Thanks!

Thanks for helping find the first element in an array, I got it working. Thanks again!
Mary