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
|