Ejemplos de For . Next en Visual Basic
Use For… Next estructura en la que se desea repetir un conjunto de instrucciones un número de veces.
En el ejemplo siguiente, la Index variable empieza con un valor de 1 y se incrementa con cada iteración del bucle, finalizando después del valor de index hasta 5.
VB
For index As Integer = 1 To 5
Debug.Write(index.ToString & " ")
Next
Debug.WriteLine("")
' Output: 1 2 3 4 5
En el ejemplo siguiente, la number variable empieza en 2 y se reduce por 0,25 en cada iteración del bucle, finalizando después del valor number de hasta 0. E step argumento de -.25 reduce el valor en 0,25 en cada iteración del bucle.
VB
For number As Double = 2 To 0 Step -0.25
Debug.Write(number.ToString & " ")
Next
Debug.WriteLine("")
' Output: 2 1.75 1.5 1.25 1 0.75 0.5 0.25 0
Anidar bucles
Puede anidar For bucles colocando un bucle dentro de otro. En el siguiente ejemplo se muestra For la instrucción anidada... Next estructuras que tienen valores de pasos diferentes. El bucle exterior crea una cadena para cada iteración del bucle. El bucle interno reduce una variable de contador de bucle para cada iteración del bucle.
VB
For indexA = 1 To 3
' Create a new StringBuilder, which is used
' to efficiently build strings.
Dim sb As New System.Text.StringBuilder()
' Append to the StringBuilder every third number
' from 20 to 1 descending.
For indexB = 20 To 1 Step -3
sb.Append(indexB.ToString)
sb.Append(" ")
Next indexB
' Display the line.
Debug.WriteLine(sb.ToString)
Next indexA
' Output:
' 20 17 14 11 8 5 2
' 20 17 14 11 8 5 2
' 20 17 14 11 8 5 2
Al anidar bucles, cada bucle debe tener una variable contourne única.
También puede anidar distintos tipos de estructuras de control.
Salir de y continuar para
La Exit For instrucción sale inmediatamente de For...Next bucle y transfiere el control a la instrucción que sigue¿ Next a la instrucción.
La Continue For instrucción transfiere el control inmediatamente a la siguiente iteración del bucle.
En el ejemplo siguiente se muestra el uso Continue For las Exit For instrucciones y.
VB
For index As Integer = 1 To 100000
' If index is between 5 and 7, continue
' with the next iteration.
If index >= 5 AndAlso index <= 8 Then
Continue For
End If
' Display the index.
Debug.Write(index.ToString & " ")
' If index is 10, exit the loop.
If index = 10 Then
Exit For
End If
Next
Debug.WriteLine("")
' Output: 1 2 3 4 9 10
En el ejemplo se For muestra un... Nextinstrucción que recorre en iteración en orden descendente. En el ejemplo se utiliza esta técnica removeAt porque el método hace que los elementos situados después del elemento quitado tengan un valor de índice inferior.
VB
Dim lst As New List(Of Integer) From {10, 20, 30, 40}
For index As Integer = lst.Count - 1 To 0 Step -1
lst.RemoveAt(index)
Next
Debug.WriteLine(lst.Count.ToString)
' Output: 0
En el ejemplo siguiente se recorre en iteración una enumeración declarada mediante una instrucción.
VB
Public Enum Mammals
Buffalo
Gazelle
Mongoose
Rhinoceros
Whale
End Enum
Public Sub ListSomeMammals()
For mammal As Mammals = Mammals.Gazelle To Mammals.Rhinoceros
Debug.Write(mammal.ToString & " ")
Next
Debug.WriteLine("")
' Output: Gazelle Mongoose Rhinoceros
End Sub
En el ejemplo siguiente, los parámetros de instrucción usan una clase que tiene sobrecargas de operador
+para -los >= operadores, <= , y.
VB
Private Class Distance
Public Property Number() As Double
Public Sub New(ByVal number As Double)
Me.Number = number
End Sub
' Define operator overloads to support For...Next statements.
Public Shared Operator +(ByVal op1 As Distance, ByVal op2 As Distance) As Distance
Return New Distance(op1.Number + op2.Number)
End Operator
Public Shared Operator -(ByVal op1 As Distance, ByVal op2 As Distance) As Distance
Return New Distance(op1.Number - op2.Number)
End Operator
Public Shared Operator >=(ByVal op1 As Distance, ByVal op2 As Distance) As Boolean
Return (op1.Number >= op2.Number)
End Operator
Public Shared Operator <=(ByVal op1 As Distance, ByVal op2 As Distance) As Boolean
Return (op1.Number <= op2.Number)
End Operator
End Class
Public Sub ListDistances()
Dim distFrom As New Distance(10)
Dim distTo As New Distance(25)
Dim distStep As New Distance(4)
For dist As Distance = distFrom To distTo Step distStep
Debug.Write(dist.Number.ToString & " ")
Next
Debug.WriteLine("")
' Output: 10 14 18 22
End Sub
Mas información🔽:
Que es el ciclo For
Estructura de el ciclo For
Codificación del Ciclo For
ResponderBorrar👍💪