Combine While and If to search in an array : While « Statements « VB.Net Tutorial

1. VB.Net Tutorial
2. Statements
3. While

Imports System

Public Class WhileExample

    Shared Sub Main()
        Dim iCounter As Integer = 0
        Dim arrList(9) As String
        Dim iMatch As Integer = -1
        Dim sMatch As String

        sMatch = "A"
        arrList(0) = "A"
        arrList(1) = "B"
        arrList(2) = "C"
        arrList(3) = "D"
        arrList(4) = "E"
        arrList(5) = "G"
        arrList(6) = "H"
        arrList(7) = "I"
        arrList(8) = "J"
        arrList(9) = "K"

        While iCounter <= 9 AND iMatch = -1
            If arrList(iCounter) Like sMatch Then
                iMatch = iCounter
            Else
                iCounter = iCounter + 1
            End If
        End While

        If iMatch <> -1 Then
            System.Console.WriteLine("Matched " & iMatch)
        End If

    End Sub
End Class

Matched 0