Utilice una estructura While...End While si desea repetir un conjunto de instrucciones un número indefinido de veces, siempre que una condición sea True. Instrucción Do...Loop (Visual Basic). Instrucción For...Next (Visual Basic) suele ser mejor opción.

While también se utiliza en Instrucción Do...Loop (Visual Basic), Skip While (Cláusula, Visual Basic) y Take While (Cláusula, Visual Basic).

Si condition es True, se ejecutan todas las statements hasta que se encuentra la instrucción End While While el fragmento, y condition se comprueba de nuevo. condition aún es True, se repite el proceso. False, el control que se va a extraer que sigue el fragmento de End While .

El fragmento de While comprueba siempre la condición antes de iniciar el bucle. True. condition es False cuando primero entra en el bucle, no ejecuta incluso una vez.

condition resultados general de una comparación de dos valores, pero puede ser cualquier expresión que se evalúa como Boolean (Tipo de datos, Visual Basic) un valor (True o False). Boolean.

Se pueden anidar bucles While colocando un bucle dentro de otro. También puede anidar distintos tipos de estructuras de control dentro de otras. Estructuras de control anidadas (Visual Basic).

El fragmento de Salida mientras puede proporcionar otra forma de salir de un bucle de While . Exit Whiletransfiere el control inmediatamente al extraer que sigue el fragmento de End While .

Normalmente se utiliza Exit While después de que se evalúe alguna condición (por ejemplo, en una estructura deIf...Then...Else ). Por ejemplo, puede ser conveniente salir de un bucle si se detecta una condición que hace que sea innecesario o imposible continuar la iteración, como puede ser un valor erróneo o una solicitud de finalización. Exit While cuando se prueba para una condición que podría provocar un bucle infinito, que es un bucle que puede ejecutar un número muy grande o incluso infinito de veces. Exit Whilepara que el bucle.

index es superior a 10.

Dim index As Integer = 0
While index <= 10
    Debug.Write(index.ToString & " ")
    index += 1
End While

Debug.WriteLine("")
' Output: 0 1 2 3 4 5 6 7 8 9 10 

Continue While y Exit While.

Dim index As Integer = 0
While index < 100000
    index += 1

    ' If index is between 5 and 7, continue
    ' with the next iteration.
    If index >= 5 And index <= 8 Then
        Continue While
    End If

    ' Display the index.
    Debug.Write(index.ToString & " ")

    ' If index is 10, exit the loop.
    If index = 10 Then
        Exit While
    End If
End While

Debug.WriteLine("")
' Output: 1 2 3 4 9 10

En el ejemplo siguiente se leen todas las líneas de un archivo de texto. OpenText abre el archivo y devuelve un StreamReader que lee los caracteres. While , el método de Peek deStreamReader determina si contiene caracteres adicionales.

Private Sub ShowText(ByVal textFilePath As String)
    If System.IO.File.Exists(textFilePath) = False Then
        Debug.WriteLine("File Not Found: " & textFilePath)
    Else
        Dim sr As System.IO.StreamReader = System.IO.File.OpenText(textFilePath)

        While sr.Peek() >= 0
            Debug.WriteLine(sr.ReadLine())
        End While

        sr.Close()
    End If
End Sub