Visual Basic 6
Sintaxis basica

declaración if / else

If condition Then 
    code to execute if true
ElseIf condition Then
    code
Else
    code to execute if conditions are both false
End If

en bucle

For I as Integer = 1 To 10 Step 1
    code to execute
Next

El paso es opcional y el paso 1 es el predeterminado. El paso le dice cómo contar, por lo que -1 lo haría restar 1 cada vez y el paso 5 lo haría sumar 5 cada vez a través del bucle.

En caso de que el bucle deba detenerse, entonces se puede usar la instrucción Exit For , como en el siguiente ejemplo;

Dim iIndex as integer

For I as Integer = 1 To 10 Step 1

Debug.Print  I     
iIndex = I * 10

If iIndex > 90 Then
    Exit For
End If

Loop

Aquí, en lugar de imprimir de 1 a 10, se detendrá en 9, ya que la condición le dijo al proceso que se detuviera cuando iIndex alcance 90.

Hacer bucle

Otro tipo común de bucle en Visual Basic es el DO loop , que ejecutaría una parte del código continuamente hasta que se le indique que se detenga. Al contrario de algunos otros bucles en los que los índices se utilizan para detener el proceso, en este bucle particular, se debe indicar que se detenga.

Un ejemplo simple que ilustra el bucle es el siguiente

Dim iIndex1 As Integer
iIndex1 = 1
   
Do
   Debug.Print iIndex1 
   iIndex1 = iIndex1 + 1

   If iIndex1 = 10 Then
      Exit Do
   End If
Loop

El fragmento de código anterior tomará un Índice, se inicializará a 1, y lo incrementará. Un Debug.Print ayudará a imprimir el índice para acumular el bucle. En cada bucle, el código verificará si el índice ha alcanzado 10 y si, y solo si la condición es verdadera, se ejecutará el Exit Do , que detendrá el bucle.

Declaración de caso selecto

    Dim number As Integer = 8
    Select Case number
        Case 1 To 5
            Debug.WriteLine("Between 1 and 5, inclusive")
            ' The following is the only Case clause that evaluates to True.
        Case 6, 7, 8
            Debug.WriteLine("Between 6 and 8, inclusive")
        Case 9 To 10
            Debug.WriteLine("Equal to 9 or 10")
        Case Else
            Debug.WriteLine("Not between 1 and 10, inclusive")
    End Select